Solved: Tags or Names

[John Wilson]

We don't have any Andy. We do have a simple homegrown add in for adding tags to either a selected shape or a range of shapes and a similar one for tagging slides but its pretty basic just based on

Dim oShpR As ShapeRange'or sliderange
Set oShpR = ActiveWindow.Selection.ShapeRange 'or sliderange
For i = 1 To oShpR.Count
    Set oshp = oShpR(i)
    oshp.Tags.Add strTName, strTVal
Next

I'd be interested in anything you produce though!