Thanks Steve for pointing out that I forgot to paste in my version
Sub Iterate_Through_All_Shapes_And_Read_Tags()
'PURPOSE: Refers to EACH object on EACH page and checks for a tags
..name
'Then if it is a StickyStyle Name
'Developer: Brian Reilly January 2001
Dim iShape As Integer
Dim iSlide As Integer
Dim iTags As Integer
For iSlide = 1 To ActivePresentation.Slides.Count
With ActivePresentation.Slides(iSlide)
For iShape = 1 To
ActiveWindow.Presentation.Slides(iSlide).Shapes.Co unt
'No need to select the object in order to use strShape
With
ActiveWindow.Presentation.Slides(iSlide).Shapes(iS hape)
'''''''''''Substitute whatever code to the End of Substitute
For iTags = 1 To .Tags.Count
If .Tags.Name(iTags) = "STICKYSTYLE" Then
MsgBox "The shape " &
ActiveWindow.Presentation.Slides(iSlide) _
.Shapes(iShape).Name & " has a
Tags.Name of " & Chr(13) _
& .Tags.Name(iTags) & Chr(13) _
& "and has a Tags.Value of " &
Chr(13) & .Tags.Value(iTags)
''PROCEED WITH NEXT TAG AND NEXT OBJECT
End If
Next iTags
End With
''''''''''''End of Substitute
Next iShape
End With
Next iSlide
End Sub
|