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

1 vote234 views1 answer
Excel vba unload userform
VBA
0 vote250 views1 answer
Vba cell all borders
VBA
2 votes230 views1 answer
Vba round number
VBA
0 vote229 views1 answer
Vbscript check if string contains
VBA
0 vote239 views1 answer
Excel vba formatconditions positive
VBA
0 vote272 views1 answer
Windows Forms dark title bar
VBA
0 vote225 views1 answer
Excel vba copy entire sheet paste values
VBA
0 vote223 views1 answer
Vba loop through textboxes
VBA
0 vote246 views1 answer
Excel vba copy range with filter
VBA
0 vote251 views1 answer
How to mount floppy disks in vb.net
VBA