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

0 vote173 views1 answer
Excel vba protect content
VBA
6 votes140 views1 answer
Excel vba get the path of current workbook
VBA
0 vote128 views1 answer
Excel R1C1 mode
VBA
2 votes121 views1 answer
Excel vba extract file name
VBA
0 vote135 views1 answer
Supprimer la valeur de celule vba
VBA
0 vote130 views1 answer
Columns dont autoresize on program start vb.net
VBA
0 vote127 views1 answer
Switch pictures with buttons vb.net
VBA
0 vote119 views1 answer
Vba file size
VBA
0 vote134 views1 answer
VBA
VBA
1 vote137 views2 answers
Excel vba password protect
VBA