excel - 在 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

Answer 1

expression.Add (Name, Value)

尝试这个

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

如果你添加使用say， .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