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 vote283 views1 answer
Send text to clipboard vb.net
VBA
0 vote292 views1 answer
Add text to Shape VBA
VBA
0 vote252 views1 answer
Create new worksheet excel visual basic
VBA
3 votes300 views1 answer
Excel vba make long from two shorts
VBA
0 vote267 views1 answer
Vba code to open a file with login rights
VBA
1 vote284 views1 answer
Vb.net get name by Selection Changed
VBA
0 vote265 views1 answer
Check range is in another range vba
VBA
0 vote269 views1 answer
Telephon call in vba
VBA
3 votes279 views1 answer
Extract the nth word from a text string
VBA
20 votes383 views1 answer
Excel vba factorial
VBA