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

31 votes410 views1 answer
Excel-vba how to convert a column number into an excel column
VBA
0 vote296 views1 answer
Vba get application version
VBA
0 vote275 views1 answer
Do until vb.net
VBA
0 vote310 views1 answer
How to mount floppy disks in vb.net
VBA
0 vote320 views1 answer
Vba find last column in a row with data
VBA
0 vote289 views1 answer
Label de tableau dans des label.text en VBA
VBA
5 votes283 views1 answer
Excel vba high word from Long Integer
VBA
5 votes291 views1 answer
Excel vba how to unit test vba code
VBA
0 vote344 views1 answer
Filesystemobject vba reference
VBA
1 vote301 views1 answer
How to INPUT text in shape with enter and spacein vba
VBA