Свойство Shape.Text (Visio)

Статья
04/07/2023

Возвращает весь текст фигуры. Для чтения и записи.

Синтаксис

expression. Текст

выражение Переменная, представляющая объект Фигура.

Возвращаемое значение

String

Замечания

В тексте, возвращаемом свойством Text объекта Shape, поля представлены escape-символом (30 (&H1E)). Например, если текст объекта Shape содержит поле, отображающее имя файла документа, свойство Text объекта Shape возвращает escape-символ, в котором это поле вставляется в текст. Если вы хотите, чтобы текст содержал развернутое поле, получите свойство Символы фигуры , а затем — свойство Text результирующего объекта Characters .

Если фигура является группой, возвращаемый текст зависит от значения ячейки IsTextEditTarget.

Если параметр IsTextEditTarget имеет значение True, свойство Text объекта Shape возвращает текст группы.
Если isTextEditTarget имеет значение False, свойство Text объекта Shape возвращает текст фигуры в группе в верхней части порядка стека.

Объекты из других приложений и направляющих не имеют свойства Text .

Если решение Visual Studio содержит ссылку microsoft.Office.Interop.Visio, это свойство сопоставляется со следующими типами:

Microsoft.Office.Interop.Visio.IVShape.Text

Пример

Этот макрос Microsoft Visual Basic для приложений (VBA) показывает, как получить свойство Text фигуры.

 
Public Sub ShapeText_Example()  
 
    Dim vsoRectangle As Visio.Shape  
    Dim vsoOval As Visio.Shape  
    Dim vsoShapeFromCell As Visio.Shape  
    Dim vsoShapeFromCharacters As Visio.Shape  
    Dim vsoCell As Visio.Cell  
    Dim vsoCharacters As Visio.Characters  
 
    'Create 2 different shapes and add different text to each shape. 
    Set vsoRectangle = ActivePage.DrawRectangle(2, 3, 5, 4)  
    Set vsoOval = ActivePage.DrawOval(2, 5, 5, 7)  
    vsoRectangle.Text = "Rectangle Shape"  
    vsoOval.Text = "Oval Shape"  
 
    'Get a Cell object from the first shape. 
    Set vsoCell = vsoRectangle.Cells("Width")  
 
    'Get a Characters object from the second shape. 
    Set vsoCharacters = vsoOval.Characters  
 
    'Use the Shape property to get the Shape object. 
    Set vsoShapeFromCell = vsoCell.Shape  
    Set vsoShapeFromCharacters = vsoCharacters.Shape  
 
    'Use each shape's text to verify the proper Shape 
    'object was returned.  
    Debug.Print vsoShapeFromCell.Text  
    Debug.Print vsoShapeFromCharacters.Text  
 
End Sub

Поддержка и обратная связь

Есть вопросы или отзывы, касающиеся Office VBA или этой статьи? Руководство по другим способам получения поддержки и отправки отзывов см. в статье Поддержка Office VBA и обратная связь.

Поделиться через