在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

我希望能够删除已添加的标签，但是我还不知道该怎么做。我尝试了以下方法：

假设我要删除幻灯片索引5中的标签“测试标签”，那么我的第一个猜测就是：

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

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

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

但是没有成功。关于如何解决这个问题的任何建议？ Thx

Answer 1

尝试一下

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