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 vote355 views1 answer
Vb run command
VBA
0 vote399 views1 answer
Vba count all row
VBA
0 vote345 views1 answer
Excel vba hide columns
VBA
0 vote371 views1 answer
Vbnet add axis labels to chart
VBA
25 votes497 views2 answers
Excel vba folder exist
VBA
0 vote348 views1 answer
Windows Presentation Foundation dark title bar
VBA
0 vote351 views1 answer
Excel PasteSpecial Format:= can't find the argument
VBA
1 vote430 views1 answer
Vba login website
VBA
0 vote355 views1 answer
Vba paste values
VBA
0 vote361 views2 answers
Get excel file from email attachment in vba
VBA