Vba code to select image in sheet

Sub SelectPictureAtActiveCell()
  Dim Pic As Shape
  For Each Pic In ActiveSheet.Shapes
    If Pic.TopLeftCell.Address = ActiveCell.Address Then
      If Pic.Type = msoPicture Then
        Pic.Select
        Exit For
      End If
    End If
  Next
End Sub

Source: mrexcel.com

Similar codes

5 votes175 views2 answers
Excel vba write to the windows registry
VBA
0 vote154 views1 answer
Excel vba disable keyboard input
VBA
0 vote188 views1 answer
Amd64 vs arm64 linux
VBA
20 votes299 views1 answer
Excel vba recursive example factorial function
VBA
0 vote148 views1 answer
Make all controls in an area not visable vb
VBA
0 vote147 views1 answer
Quit excel with save changes dialog vb.net
VBA
0 vote183 views1 answer
Vba cell all borders
VBA
0 vote174 views2 answers
Checking and changing system volume vb.net
VBA
0 vote158 views1 answer
Vba type
VBA
0 vote161 views1 answer
Vba array dimensions
VBA