在VBA中删除/删除Powerpoint幻灯片标签

Question

我有代码标记PowerPoint主文件中的幻灯片。

例如，我基于主文件的标签创建较小的PowerPoint演示文稿（如果有人感兴趣，我可以共享代码）。我有遍历所有标签的循环，而且如果永不删除标签，恐怕将来该循环将花费很长时间才能执行。

Sub Newtag()

Dim slidename As String
slidename = Application.ActiveWindow.View.Slide.Name

Dim Newname As String

Newname = InputBox("Give new name")
If Trim(Newname) = "" Then Exit Sub
ActivePresentation.slides(slidename).Tags.Add "Tag", Newname

End Sub

我想删除我添加的标签。

假设我要删除标签“测试标签”和slideindex 5。

我尝试过：

ActivePresentation.slides(5).Tags.Delete ("Test tag")

ActivePresentation.slides(5).Tags.Value(1).Delete

ActivePresentation.slides(5).Tags.Value("Test tag").Delete

Answer 1

expression.Add（名称，值）

尝试此

ActivePresentation.Slides(1).Tags.Delete ("TAG")

如果使用说来添加，请.Tags.Add "Andreas", "Sid"然后使用

ActivePresentation.Slides(1).Tags.Delete ("Andreas")

或只是循环并删除

Sub Sample()
    Dim i As Long

    With ActivePresentation.Slides(1)
        .Tags.Add "Tag", "Sid"

        Debug.Print .Tags.Count

        For i = .Tags.Count To 1 Step -1
            .Tags.Delete (.Tags.Name(i))
        Next i

        Debug.Print .Tags.Count
    End With
End Sub