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

2 votes287 views1 answer
Vba ado ace sql alias ignored for calculated column
VBA
0 vote279 views1 answer
Windows Presentation Foundation dark title bar
VBA
0 vote289 views1 answer
Vbnet add axis labels to chart
VBA
0 vote287 views1 answer
How to get value from clipboard in vbnet
VBA
0 vote305 views1 answer
Iterate all file in a folder vba
VBA
0 vote330 views1 answer
Filesystemobject vba reference
VBA
0 vote270 views2 answers
Excel vba prevent save
VBA
8 votes325 views1 answer
Excel vba determine number of elements in a 1D array
VBA
0 vote302 views1 answer
Excel vba urlmon
VBA
0 vote309 views2 answers
Vb.net include quotes in string
VBA