Delete/Remove 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

我想删除我添加的标签。

假设我想删除标签 "Test tag" 和 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 (Name, Value)

试试这个

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

Delete/Remove VBA 中的 Powerpoint 幻灯片标签

Delete/Remove Powerpoint slide tag in VBA

tags

excel

powerpoint

vba