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 vote221 views1 answer
Excel vba join variant array
VBA
1 vote214 views1 answer
Vbs run
VBA
0 vote222 views1 answer
Vba simple quote
VBA
1 vote221 views1 answer
Vba refresh pivot table
VBA
0 vote240 views1 answer
Programmatically copy data from one workshet to another excel
VBA
0 vote220 views1 answer
Build an index all files of a FTP site
VBA
0 vote210 views1 answer
Label de tableau dans des label.text en VBA
VBA
0 vote212 views1 answer
Vba full date format
VBA
0 vote201 views1 answer
Excel vba range contains
VBA
0 vote267 views1 answer
Application.ExecutablePath VB.NET
VBA