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

Статья
04/07/2023

Возвращает или задает значение поля Data1 для объекта Shape . Для чтения и записи.

Синтаксис

выражение. Data1

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

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

Строка

Замечания

Используйте свойство Data1 для предоставления дополнительных сведений о фигуре. Свойство может содержать до 64 КБ символов. Текстовые элементы управления следует использовать с осторожностью со строкой, которая превышает 3000 символов. Задание свойства Data1 эквивалентно вводу сведений в поле Данные 1 в диалоговом окне Специальные (щелкните Имя фигуры в группе Конструктор фигуры на вкладке Разработчик ).

Пример

В этом макросе Microsoft Visual Basic для приложений (VBA) показано, как задать свойства Data1, Data2 и Data3 фигуры. Он выводит значения этих свойств в окне Интерпретация. Вы также можете убедиться, что эти значения заданы, открыв диалоговое окно Специальные .

Public Sub Data123_Example() 
 
 Dim vsoPage As Visio.Page 
 Dim vsoShape As Visio.Shape 
 
 Set vsoPage = Documents.Add("").Pages(1) 
 Set vsoShape = vsoPage.DrawRectangle(3, 3, 5, 5) 
 
 'Use the Data1, Data2, and Data3 properties to set 
 'the shape's Data fields. 
 vsoShape.Data1 = "Data1_String" 
 vsoShape.Data2 = "Data2_String" 
 vsoShape.Data3 = "Data3_String" 
 
 'Use the Data1, Data2, and Data3 properties to verify 
 'the shape's Data field values. 
 Debug.Print vsoShape.Data1 
 Debug.Print vsoShape.Data2 
 Debug.Print vsoShape.Data3 
 
End Sub

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

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

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