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 vote163 views1 answer
Handling a click event anywhere inside a panel vb
VBA
0 vote180 views1 answer
Vba min
VBA
0 vote117 views1 answer
Vba select file in folder
VBA
2 votes159 views1 answer
Vba split string
VBA
1 vote173 views1 answer
Excel vba force recalculation
VBA
0 vote160 views1 answer
Excel VBA web scraping
VBA
0 vote179 views1 answer
Sendkeys vba selenium
VBA
0 vote161 views1 answer
Excel vba address not absolute
VBA
0 vote167 views1 answer
Vba verticalalignment
VBA
5 votes179 views1 answer
Excel vba low byte from INTEGER
VBA