Follow along with the video below to see how to install our site as a web app on your home screen.
Note: This feature may not be available in some browsers.
[blue]Public Sub doit()
Dim MySlide As Slide
Dim myShape As Shape
For Each MySlide In ActivePresentation.Slides
For Each myShape In MySlide.Shapes
Debug.Print MySlide.Name & ":" & myShape.Name & ":" & myShape.AlternativeText
Next
Next
End Sub[/blue]