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 vote198 views1 answer
Vbnet display all axis labels in cahrt
VBA
5 votes237 views1 answer
Excel vba tool to help with refactoring code
VBA
0 vote204 views1 answer
Excel vba assign shortcut key to button
VBA
0 vote224 views1 answer
Programmatically copy data from one workshet to another excel
VBA
5 votes239 views1 answer
Excel vba last byte from INTEGER
VBA
0 vote242 views1 answer
VBA Sort RossetaCode
VBA
0 vote213 views1 answer
Vba remove last vbcrlf
VBA
0 vote201 views1 answer
Vb check if row has column
VBA
0 vote231 views1 answer
Add Formula to Shape Text in VBA
VBA
1 vote203 views1 answer
Vba declare api 64 bit 32 bit
VBA