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 votes241 views1 answer
Excel vba extract file name
VBA
0 vote249 views1 answer
Vba clear collection
VBA
3 votes302 views1 answer
Excel vba make long from two shorts
VBA
0 vote221 views1 answer
Select case vba
VBA
5 votes244 views1 answer
Xlvba double quotes in string literal
VBA
0 vote261 views1 answer
Vba DisplayGridlines
VBA
0 vote230 views1 answer
Vbscript check if string is empty
VBA
0 vote213 views1 answer
Excel vba concatenate range
VBA
0 vote225 views1 answer
Excel vba existence of a file
VBA
0 vote246 views1 answer
.net dark title bar
VBA