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 vote346 views2 answers
Excel vba protect cells with formula
VBA
0 vote347 views1 answer
Excel run macro every 5 minutes
VBA
1 vote333 views1 answer
Textbox find and replace vb
VBA
0 vote376 views1 answer
Tester si une case est vide vba
VBA
0 vote339 views1 answer
Find days in month vba
VBA
3 votes406 views1 answer
Extract word in a text in excel
VBA
31 votes485 views1 answer
Excel-vba how to convert a column number into an excel column
VBA
0 vote375 views1 answer
Vbnet cycle through charaters in string
VBA
0 vote392 views1 answer
Method showalldata of object _worksheet failed vba
VBA
1 vote368 views1 answer
Excel vba Refreshing all pivot tables in workbook
VBA