📅  最后修改于: 2022-03-11 14:51:53.961000             🧑  作者: Mango
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