📜  在工作表中选择图像的 vba 代码 - VBA 代码示例

📅  最后修改于: 2022-03-11 14:51:53.961000             🧑  作者: Mango

代码示例1
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