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 vote207 views1 answer
Vba extract filename from path
VBA
3 votes239 views1 answer
Vba continue for each loop
VBA
0 vote202 views1 answer
Vba table header name
VBA
1 vote205 views1 answer
Vba date to unix timestamp
VBA
0 vote193 views1 answer
Excel vba Column Name to Column Number
VBA
3 votes203 views1 answer
Extract the nth word from a text string
VBA
0 vote199 views1 answer
Arq linux
VBA
3 votes202 views1 answer
Excel insert blank row for value change in column
VBA
0 vote221 views1 answer
If statement vdhl
VBA
0 vote222 views1 answer
Vbs run with cscript
VBA