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 vote297 views1 answer
Vb net show lines for all axis labels in chart
VBA
1 vote280 views1 answer
Vba listindex select multiple items vba
VBA
0 vote316 views1 answer
Write listbox to text file vb.net
VBA
3 votes299 views1 answer
Excel vba read registry key value
VBA
-1 vote312 views2 answers
Excel vba delete empty rows
VBA
0 vote326 views1 answer
Vba keep command window open
VBA
0 vote306 views1 answer
Vbnet line graph smooth lines
VBA
0 vote380 views1 answer
Excel vba delete columns in range
VBA
0 vote312 views1 answer
Vbnet add axis labels to chart
VBA
0 vote336 views1 answer
Vba count all row
VBA