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 vote253 views1 answer
Vbnet check if string is only letters
VBA
6 votes251 views1 answer
Excel vba isalpha
VBA
0 vote216 views1 answer
Get current year vb
VBA
7 votes239 views1 answer
Excerl vba array to range
VBA
0 vote220 views1 answer
VB get external IP address
VBA
0 vote234 views1 answer
Write listbox to text file vb.net
VBA
1 vote222 views1 answer
Excel vba close form escape key
VBA
0 vote227 views1 answer
Delete rows in excel vba code
VBA
0 vote221 views1 answer
How to convert weeks to days into textbox with VB site:stackoverflow.com
VBA
0 vote241 views1 answer
Vba multiple optional arguments
VBA