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 vote241 views1 answer
Vba range clear formatting
VBA
0 vote222 views1 answer
Dynamic array vba
VBA
0 vote239 views1 answer
Tester si une case est vide vba
VBA
0 vote237 views1 answer
Weekday vba
VBA
0 vote229 views1 answer
Combobox dropdown search visual basic -excel -C#
VBA
4 votes219 views2 answers
Vba array length
VBA
0 vote229 views1 answer
VBA OR vb6 find OR replace string from the end
VBA
2 votes220 views2 answers
Vba code to remove duplicates from a column
VBA
1 vote220 views1 answer
Highlight selected cell in excel vba
VBA
0 vote245 views1 answer
Vba table header name
VBA