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

7 votes169 views1 answer
Vba array declaration
VBA
0 vote163 views1 answer
Vba verticalalignment
VBA
0 vote183 views1 answer
If statement vdhl
VBA
5 votes183 views1 answer
Excel-vba get integer high byte
VBA
0 vote158 views1 answer
How to use VBA to add new record in MS Access?
VBA
0 vote256 views1 answer
Find the name of the last excel sheet vb
VBA
0 vote172 views1 answer
Vba exit while
VBA
2 votes166 views1 answer
Vba ado ace sql alias ignored for calculated column
VBA
0 vote119 views1 answer
Excel vba arrondir
VBA
0 vote150 views1 answer
Vba argument is set
VBA