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

2 votes244 views2 answers
Excel vba if sunday or staurday
VBA
0 vote234 views1 answer
Vbnet click on dgv cells
VBA
3 votes269 views1 answer
Excel vba make long from two shorts
VBA
0 vote222 views1 answer
Vba test optional argument
VBA
0 vote208 views2 answers
Excel vba copy paste after last row
VBA
0 vote199 views1 answer
Vba argument is set
VBA
0 vote211 views1 answer
Vb net check if file exists
VBA
0 vote206 views1 answer
Vbnet add new ecel sheet
VBA
0 vote213 views1 answer
Select case vba
VBA
3 votes226 views1 answer
Extract the nth word from a text string
VBA