正文

VBA 删除Excel中所有的图片

IP云
IP云V管理员/5 阅读
11/01
提示：扫一扫查出行
【扫一扫了解最新限行尾号】
复制提示

Sub DeletePic()
    Dim p As Shape
    For Each p In Sheet1.Shapes
        If p.Type = Then
            p.Delete
        End If
    Next
End Sub

附上删除的图形类型见下表：