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 vote183 views1 answer
Dynamic array vba
VBA
0 vote178 views1 answer
Loop through each cell in dgv vbnet
VBA
0 vote180 views1 answer
Vba string
VBA
-1 vote166 views1 answer
For i in range vba
VBA
0 vote180 views1 answer
Vba copy file
VBA
0 vote183 views1 answer
Excel vba unmerge sheet
VBA
0 vote183 views1 answer
How to make a a msgbpx in vbs
VBA
2 votes171 views2 answers
Excel vba copy values range to another range
VBA
0 vote169 views2 answers
Delete all controls from list of control vb.net
VBA
1 vote172 views1 answer
How to INPUT text in shape with enter and spacein vba
VBA