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 vote137 views1 answer
Columns dont autoresize on program start vb.net
VBA
5 votes134 views1 answer
Excel-vba get integer high byte
VBA
0 vote136 views1 answer
Vbs exec hidden
VBA
0 vote131 views1 answer
Vba remove the first character of string
VBA
4 votes132 views1 answer
Excel vba Imitating the "IN" operator from python
VBA
4 votes130 views2 answers
Excel vba last column with data
VBA
1 vote117 views1 answer
Excel vba Populating a combobox on a userform from a range of cells
VBA
0 vote112 views1 answer
Excel vba current folder
VBA
0 vote113 views1 answer
Vba apostrophe chr
VBA
0 vote128 views1 answer
Check if cell is dbnullvb.net
VBA