A family of Microsoft presentation graphics products that offer tools for creating presentations and adding graphic effects like multimedia objects and special effects with text.
If you are not an experienced coder you might find it easier to create a csv file on the desktop like this. CSV files will open in Excel
Sub recorder(oshp As Shape)
Dim intFile As Integer
Dim strText As String
Dim strPath As String
strPath = Environ("USERPROFILE") & "\Desktop\Data.csv"
strText = oshp.Name & "," & oshp.Parent.SlideIndex
intFile = FreeFile
Open strPath For Append As intFile
Print #intFile, strText
Close intFile
End Sub