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 vote164 views1 answer
Visual basic msdos
VBA
1 vote180 views1 answer
Vba date to unix timestamp
VBA
0 vote182 views1 answer
Excel vba round to whole number
VBA
-1 vote158 views2 answers
How close excel through visual basic
VBA
0 vote172 views1 answer
String contins in vba
VBA
4 votes186 views2 answers
Vba create folder if not exist
VBA
0 vote202 views1 answer
Vbs run with cscript
VBA
0 vote187 views1 answer
Excel vba protect sheet
VBA
0 vote184 views1 answer
Excel vba protect scenarios
VBA
3 votes164 views1 answer
Vba request json
VBA