Access of Text in an Excel Autoshape with vba

ber999 

For example:

    Dim strText As String
    strText = ActiveSheet.Shapes(1).TextFrame2.TextRange.Text

If you know the name of the shape, you can use that: change Shapes(1) to Shapes("Flussdiagramm: Prozess 1")