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 vote155 views1 answer
How to correct a number to 2 decimal places in vba
VBA
0 vote189 views1 answer
Vbnet add axis labels to chart
VBA
0 vote154 views1 answer
Combobox dropdown search visual basic -excel -C#
VBA
0 vote152 views1 answer
Vba extract filename from path
VBA
0 vote156 views1 answer
Vba integer to double
VBA
0 vote159 views1 answer
VBA
VBA
0 vote153 views1 answer
WGET FTP
VBA
0 vote149 views1 answer
Vb check if row has column
VBA
0 vote136 views1 answer
Vbnet display all axis labels in cahrt
VBA
22 votes284 views1 answer
Excelvba check for directory
VBA