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 vote291 views1 answer
Convert unix to date vba
VBA
0 vote297 views1 answer
Vba get workbook name
VBA
15 votes394 views2 answers
Xl vba dynamic string array
VBA
1 vote322 views1 answer
Vba login website
VBA
0 vote294 views1 answer
Excel vba disable keyboard input
VBA
1 vote287 views1 answer
Excel vba autofit
VBA
0 vote309 views1 answer
Vba variable number of arguments
VBA
0 vote292 views1 answer
Remove series name from legendvbnet
VBA
0 vote292 views1 answer
Vbnet make a string to unicode converter
VBA
0 vote294 views1 answer
Vba change named range address
VBA