Макрос. Получить содержимое фигурного текста.

[Roman_engineer]

Подскажите пожалуйста!
Как получить текст из фигурного текста?

Пытался так. Но не работает.

Text = ActiveShape.Text

 

[_MBK_]

Немного не так
ActiveShape.Text.Story.Words.Text

 

[Roman_engineer]

Немного не так
ActiveShape.Text.Story.Words.Text

Такое

Dim Text As String
Text = ActiveShape.Text.Story.Words.Text

Выдает ту же ошибку. Что объект не поддерживает это свойство или метод.

 

[_MBK_]

А вы уверены что вы выделили именно Artistic text не переведенный в кривые и не групированный ни с чем?

 

[_MBK_]

Вот так попробуйте еще
Text = ActiveShape.Text.Story.Text

 

[Roman_engineer]

Вот так попробуйте еще
Text = ActiveShape.Text.Story.Text

Спасибо! Так заработало.