Supercharge your PowerPoint productivity with
Supercharge your PPT Productivity with PPTools - Click here to learn more.

Proud member of


Image Export converts PowerPoint slides to high-quality images.

PPT2HTML exports HTML even from PowerPoint 2010 and 2013, gives you full control of PowerPoint HTML output, helps meet Section 508 accessibility requirements

Merge Excel data into PowerPoint presentations to create certificates, awards presentations, personalized presentations and more

Resize your presentations quickly and without distortion

Language Selector switches the text in your presentation from one language to another

FixLinks prevents broken links when you distribute PowerPoint presentations

Shape Styles brings styles to PowerPoint. Apply complex formatting with a single click.

Using Tags

Tags are like sticky notes that you can tack onto a presentation, a slide or any shape on a slide.

There's no user interface, so for all intents and purposes, they're invisible to users.

To programmers, they're hugely useful for identifying specific shapes or storing information about shapes, slides or presentations within the shapes, slides, presentations themselves.

Here are a few simple examples that demonstrate how you can display and set tags:

Sub ShowTags()
' Show me the tag name and value for each tag on each shape
' that has a tag on the currently displayed slide

    Dim x As Long
    Dim oSh As Shape

    For Each oSh In ActiveWindow.View.Slide.Shapes
        If oSh.Tags.Count > 0 Then
            With oSh.Tags
                For x = 1 To .Count
                    MsgBox oShName & vbtab & .Name(x) & vbTab & .Value(x)
                Next ' x
            End With
        End If
     Next   ' oSh

End Sub

Sub AddTag()
' Adds the tag "TAGNAME" with value "TAGVALUE"
' to the currently selected shape

    With ActiveWindow.Selection.ShapeRange(1)
        .Tags.Add "TagName", "TagValue"
    End With

End Sub

Sub ShowTagValue()
' Displays the current value of tag "TagName" on the selected shape

    With ActiveWindow.Selection.ShapeRange(1)
        MsgBox .Tags("TagName")
    End With
End Sub

Did this solve your problem? If so, please consider supporting the PPT FAQ with a small PayPal donation.
Page copy protected against web site content infringement by Copyscape Contents © 1995 - 2022 Stephen Rindsberg, Rindsberg Photography, Inc. and members of the MS PowerPoint MVP team. You may link to this page but any form of unauthorized reproduction of this page's contents is expressly forbidden.

Supercharge your PPT Productivity with PPTools

content authoring & site maintenance by
Friday, the automatic faq maker (logo)
Friday - The Automatic FAQ Maker

Using Tags
Last update 07 June, 2011