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

1 vote229 views1 answer
Extract the second word in a text in excel
VBA
1 vote229 views1 answer
Excel vba array remove first
VBA
0 vote227 views2 answers
Get excel file from email attachment in vba
VBA
0 vote230 views1 answer
Vba test optional argument
VBA
0 vote239 views1 answer
Vba horizontalalignment
VBA
1 vote222 views1 answer
Excel vba last column in range
VBA
0 vote247 views2 answers
Checking and changing system volume vb.net
VBA
0 vote183 views1 answer
How to sort datagridview in vb.net
VBA
1 vote197 views1 answer
Vba Remove Case Sensitivity
VBA
0 vote219 views1 answer
Excel vba chrw max value
VBA