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 vote390 views1 answer
Export datagridview to excel vb.net
VBA
0 vote375 views1 answer
Date as number vb
VBA
0 vote384 views2 answers
Excel vba number format file size
VBA
5 votes381 views1 answer
Excel vba highlight cells using the hex color value within the cells
VBA
0 vote378 views1 answer
Excel vba protect sheet
VBA
3 votes398 views1 answer
Vba post request json
VBA
1 vote353 views1 answer
Vba compile error object required
VBA
0 vote499 views1 answer
Vba change active sheet
VBA
0 vote341 views1 answer
Dynamically change drop down list visual basic
VBA
0 vote354 views2 answers
Excel vba protect cells with formula
VBA