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 vote333 views1 answer
Excel vba automatic calculation
VBA
0 vote313 views1 answer
Create new worksheet excel visual basic
VBA
8 votes412 views1 answer
Excel vba determine number of elements in a 2D array
VBA
0 vote355 views1 answer
Check if cell is dbnullvb.net
VBA
8 votes509 views1 answer
Excel vba make word from bytes
VBA
0 vote321 views1 answer
Do until vb.net
VBA
0 vote339 views1 answer
Do while not vb.net
VBA
1 vote322 views1 answer
Close form vba
VBA
1 vote322 views1 answer
Textbox find and replace vb
VBA
0 vote342 views1 answer
Switch pictures with buttons vb.net
VBA