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 vote134 views1 answer
Change "location" of binding navigator vb
VBA
-1 vote129 views1 answer
Text to speech vb.net
VBA
0 vote146 views1 answer
Excel delete ever other vba
VBA
0 vote97 views1 answer
Vba code to remove leading and trailing spaces
VBA
0 vote139 views1 answer
Loop through each cell in dgv vbnet
VBA
20 votes268 views1 answer
Excel vba recursive example factorial function
VBA
0 vote151 views1 answer
Power query M substract minimum value of column -dax
VBA
2 votes95 views2 answers
Vba exit loop
VBA
15 votes261 views2 answers
Xl vba dynamic string array
VBA
0 vote144 views1 answer
Search in richtextbox vb.net
VBA