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 vote156 views1 answer
Add items to combobox vb.net
VBA
0 vote172 views1 answer
How to get value from clipboard in vbnet
VBA
0 vote153 views1 answer
Excel VBA web scraping
VBA
0 vote160 views1 answer
Vbs send keys
VBA
0 vote162 views1 answer
Vba html document reference
VBA
31 votes306 views1 answer
Vba how to convert a column number into an Excel column
VBA
0 vote162 views1 answer
Vba pass named range to function
VBA
0 vote159 views1 answer
Vba timestamp -- milliseconds
VBA
1 vote157 views1 answer
Add control vb
VBA
0 vote172 views1 answer
Reset border color textbox vba
VBA