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 vote165 views1 answer
Vba apostrophe chr
VBA
0 vote186 views1 answer
Vb net dgv doesn't keep currency format
VBA
0 vote250 views1 answer
Vba array of integers
VBA
0 vote210 views1 answer
Como ler subitem de um array em json usando vbnet
VBA
0 vote183 views1 answer
Vba shape transparent
VBA
3 votes194 views1 answer
Extract word in a text in excel
VBA
0 vote198 views1 answer
Sort dictionary by key vba
VBA
0 vote196 views1 answer
Search for text in every worksheet excel visual basic
VBA
0 vote183 views1 answer
Vba variable number of arguments
VBA
1 vote196 views1 answer
How to remove zeros in excel
VBA