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

4 votes130 views2 answers
Vba create folder if not exist
VBA
0 vote122 views1 answer
Vba test optional argument
VBA
1 vote141 views1 answer
Sort using vba
VBA
0 vote126 views1 answer
Backspace key has stopped working visual studio
VBA
0 vote132 views1 answer
Vba get application version
VBA
0 vote138 views1 answer
Filesystemobject vba reference
VBA
3 votes140 views1 answer
Vba continue for each loop
VBA
-1 vote121 views1 answer
Vba sendkeys
VBA
8 votes210 views1 answer
Excel vba determine number of elements in a 2D array
VBA
0 vote127 views1 answer
Excel vba current folder
VBA