Add Method (Tags Object) Example

This example adds a tag named "Priority" and sets the value of the name tag for slide one in the active presentation.

With Application.ActivePresentation.Slides(1).Tags
'Sets value for name tag
    .Add "Name", "New Figures"
'Adds "Priority" tag with value "Low"
    .Add "Priority", "Low"
End With