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 vote182 views1 answer
Vba parameter adodb null value
VBA
0 vote198 views1 answer
Vba listbox remove all items
VBA
0 vote180 views1 answer
Do while not vb.net
VBA
0 vote170 views1 answer
How to make a if statement with vbs
VBA
0 vote194 views1 answer
Sort dictionary by key vba
VBA
0 vote192 views1 answer
Vba word open document read only
VBA
1 vote182 views1 answer
What does vbs stand for
VBA
2 votes195 views1 answer
Excel vba check if string entirely alpha
VBA
0 vote196 views1 answer
Dynamically change drop down list visual basic
VBA
1 vote186 views1 answer
How to put a gridpain in a vbox
VBA