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 vote334 views1 answer
System.InvalidOperationException: 'Row associated with the currency manager's position cannot be made invisible.
VBA
0 vote326 views1 answer
Compare dates vb
VBA
0 vote351 views1 answer
Loop through lines in text file vb net
VBA
2 votes330 views2 answers
Vba code to remove duplicates from a column
VBA
0 vote322 views1 answer
Visual stuiod not recognising desgined labels
VBA
0 vote346 views1 answer
System.Runtime.InteropServices.COMException: 'Call was rejected by callee. (Exception from HRESULT: 0x80010001
VBA
0 vote317 views1 answer
Vbnet dynamically change excel sheet name
VBA
0 vote323 views1 answer
Find days in month vba
VBA
0 vote300 views1 answer
Excel vba concatenate range
VBA
4 votes338 views1 answer
Vba create directory
VBA