删除 Powerpoint 演示文稿中的命名对象

Question

我在 PowerPoint 演示文稿中有一些名为 "MYobject" 的对象。我需要一个宏来删除那些名为 "Myobject" 的对象。我该怎么做？

我用来标记对象的代码：

Sub TagObject()

On Error GoTo ErrorHandler

    Dim oSh As Shape

    For Each oSh In ActiveWindow.Selection.ShapeRange
        oSh.Tags.Add "Myobject", "YES"
    Next
    MsgBox "Done! Object has now been tagged.", vbInformation
    Exit Sub

ErrorHandler:

    MsgBox "Please select an object before tagging.", vbExclamation
    End Sub

Answer 1

这将删除所有带有 Myobject 标签的形状 = "YES"

Sub DeleteMyObjects()

    Dim oSl As Slide
    Dim oSh As Shape
    Dim x As Long

    ' note that this will not delete shapes
    ' within groups
    For Each oSl In ActivePresentation.Slides
        For x = oSl.Shapes.Count To 1 Step -1
            If UCase(oSl.Shapes(x).Tags("Myobject")) = "YES" Then
                oSl.Shapes(x).Delete
            End If
        Next    ' Shape
    Next    ' Slide

End Sub

删除 Powerpoint 演示文稿中的命名对象

Deleting named objects in a Powerpoint presentation

powerpoint

vba

object