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

Статья
04/07/2023

Возвращает объект Characters , представляющий текст фигуры. Только для чтения.

Синтаксис

выражение. Characters

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

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

Символы

Замечания

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

Microsoft.Office.Interop.Visio.IVShape.Characters

Пример

В следующем макросе Microsoft Visual Basic для приложений (VBA) показано, как использовать свойство Characters фигуры для получения объекта Characters. После извлечения объекта Characters в примере используется свойство Shape объекта Characters для получения фигуры, содержащей символы, и демонстрируется, что содержащая фигура была получена путем печати текста в окне Интерпретация.

 
Public Sub Characters_Example() 
  
    Dim vsoOval As Visio.Shape  
    Dim vsoShapeFromCharacters As Visio.Shape  
    Dim vsoCharacters As Visio.Characters  
 
    'Create a shape and add text to it. 
    Set vsoOval = ActivePage.DrawOval(2, 5, 5, 7)  
    vsoOval.Text = "Rectangular Shape"  
 
    'Get a Characters object from the oval shape. 
    Set vsoCharacters = vsoOval.Characters  
 
    'Set the Begin and End properties so that we can 
    'replace the word "Rectangular" with "Oval" 
    vsoCharacters.Begin = 0 
    vsoCharacters.End = 11 
    vsoCharacters.Text = "Oval" 
 
    'Use the Shape property of the Characters object 
    'to get the Shape object. 
    Set vsoShapeFromCharacters = vsoCharacters.Shape  
 
    'Print the shape's text to verify that the proper Shape 
    'object was returned.  
    Debug.Print vsoShapeFromCharacters.Text 
  
End Sub

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

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

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