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 vote348 views1 answer
Vba variable number of arguments
VBA
3 votes357 views1 answer
Vba double quote
VBA
0 vote341 views1 answer
Vba round to 2 decimals
VBA
0 vote333 views2 answers
Vba remove line breaks
VBA
1 vote332 views1 answer
VBA Loop through recordset
VBA
0 vote335 views1 answer
Vba get relative cell address
VBA
3 votes338 views1 answer
Vba not equal
VBA
1 vote335 views1 answer
Excel vba array remove first
VBA
2 votes335 views2 answers
Excel vba copy values range to another range
VBA
0 vote321 views1 answer
Excel vba copy entire sheet paste values
VBA