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 vote128 views1 answer
Vbnet make a string to unicode converter
VBA
0 vote163 views1 answer
Excel vba paste all to each sheet in workbook
VBA
0 vote150 views1 answer
Menus act like radio buttons vb.net
VBA
1 vote148 views1 answer
Excel vba get column number from column name
VBA
0 vote153 views1 answer
Excel vba copy entire sheet paste values
VBA
6 votes158 views1 answer
Excel vba check if a string only contains letters
VBA
0 vote224 views1 answer
Application.ExecutablePath VB.NET
VBA
3 votes143 views1 answer
Excel vba read registry key value
VBA
1 vote157 views1 answer
Excel vba array remove first
VBA
0 vote155 views1 answer
Vbscript Trim
VBA