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 vote187 views1 answer
Dlete rows with blanks and space " " vba
VBA
31 votes325 views1 answer
Excel-vba how to convert a column number into an excel column
VBA
5 votes194 views1 answer
Excel vba tool to help with refactoring code
VBA
0 vote176 views1 answer
Excel vba cell on change
VBA
0 vote172 views1 answer
Vba open report
VBA
0 vote189 views1 answer
Thread sleep vb
VBA
1 vote170 views1 answer
What does vbs stand for
VBA
1 vote170 views1 answer
Excel vba hide zero values
VBA
0 vote179 views1 answer
Excel PasteSpecial Format:= can't find the argument
VBA
1 vote174 views1 answer
Highlight selected cell in excel vba
VBA