Data3 プロパティ (Visio)Shape.Data3 property (Visio)

図形オブジェクトのData3フィールドの値を取得または設定します。Gets or sets the value of the Data3 field for a Shape object. 値の取得と設定が可能です。Read/write.


expression.expression. Data3

Shape オブジェクトを表す変数を取得します。expression A variable that represents a Shape object.

戻り値Return value



Data3プロパティを使用して、図形に関する追加情報を提供します。Use the Data3 property to supply additional information about a shape. このプロパティには、最大 64 KB の文字を格納できます。The property can contain up to 64 KB of characters. テキスト コントロールに 3,000 文字を超える文字列を入力する場合は注意が必要です。Text controls should be used with care with a string that is greater than 3,000 characters. Data3プロパティの設定は、[データ] ダイアログボックス ([開発] タブ**** の [図形のデザイン] で [図形名] をクリック) の [データ 3 ] ボックスに情報を入力した場合と同じです。Setting the Data3 property is equivalent to entering information in the Data 3 box in the Special dialog box (click Shape Name in the Shape Design group on the Developertab).


次の Microsoft Visual Basic for Applications (VBA) マクロは、図形のData1Data2、およびData3の各プロパティを設定する方法を示しています。This Microsoft Visual Basic for Applications (VBA) macro shows how to set a shape's Data1, Data2, and Data3 properties. このマクロでは、これらのプロパティの値を [イミディエイト] ウィンドウに表示します。It prints the values of these properties in the Immediate window. [オブジェクト情報] ダイアログ ボックスを開いて、これらの値が設定されたことを確認することもできます。You can also verify that these values have been set by opening the Special dialog box.

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

サポートとフィードバックSupport and feedback

Office VBA またはこの説明書に関するご質問やフィードバックがありますか?Have questions or feedback about Office VBA or this documentation? サポートの受け方およびフィードバックをお寄せいただく方法のガイダンスについては、Office VBA のサポートおよびフィードバックを参照してください。Please see Office VBA support and feedback for guidance about the ways you can receive support and provide feedback.