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 vote265 views1 answer
Vbnet check if string is only letters
VBA
0 vote247 views2 answers
Excel vba protect cells with formula
VBA
27 votes505 views2 answers
Vba check if file exists
VBA
0 vote247 views1 answer
Excel last used row
VBA
0 vote283 views1 answer
Excel vba protect sheet
VBA
0 vote225 views1 answer
Docker vboxmanage not found
VBA
8 votes518 views1 answer
Vba convert 2 bytes to an integer
VBA
0 vote240 views1 answer
Dlete rows with blanks and space " " vba
VBA
1 vote272 views1 answer
Vba format string as cash
VBA
1 vote236 views1 answer
Vba date to unix timestamp
VBA