Свойство Shape.Data1 (Visio)
Возвращает или задает значение поля 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 и обратная связь.