Wordart/Autoshapes and VBA

[Boozer]

I need to rummage through hundreds of excel spredsheets and determine if there is an autoshape/wordart (are they considered the same type of object in VBA?) If there is wordart I need the text contained in the wordart. I know how to open and search the spreadsheets, I just need to know what object or type autoshapes/wordart are and what to use to retrieve the text from the wordart. Thanks in advance for your help!

 

[Ivan F Moala]

Sub GetT()
Dim sh As Shape

For Each sh In ActiveSheet.Shapes
    '// msoTextEffect
    If sh.Type = 15 Then
        MsgBox sh.TextEffect.Text
    End If
Next
    
End Sub