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 vote219 views1 answer
Vbs run with cscript
VBA
0 vote191 views1 answer
Vba first cell in range
VBA
5 votes231 views1 answer
Excel vba how to unit test vba code
VBA
0 vote204 views1 answer
Nested if else in vb.net
VBA
4 votes195 views1 answer
Excel vba check cell not empty
VBA
2 votes188 views2 answers
Constructor vb.net
VBA
11 votes470 views1 answer
Excel vba How to URL encode a string
VBA
0 vote195 views1 answer
Vbs exec hidden
VBA
3 votes200 views1 answer
Vba make long from two shorts
VBA
1 vote199 views1 answer
Excel vba Run a Macro every time sheet is changed
VBA