Characters.Text プロパティ (Visio)

Characters オブジェクトによって表されるテキストの範囲を返します。この範囲は図形のテキストのサブセットであり、Characters オブジェクトの Begin および End プロパティの値によって異なります。値の取得および設定が可能です。

構文

式。テキスト

式Characters オブジェクトを表す変数。

戻り値

バリアント型

注釈

Characters オブジェクトのテキストは、String ではなく String 型の Variant で返されます。 Microsoft Visual Basic を使用している場合、このテキストは通常透過的に使用できます。

Characters オブジェクトによって返されるテキストでは、フィールドは、図面ウィンドウに表示される文字数まで拡張されます。 たとえば図形のテキストに図面のファイル名を表示するフィールドが含まれている場合、Characters オブジェクトの Text プロパティによって、展開されたファイル名が返されます (Begin および End プロパティが変更されていない場合)。

Characters オブジェクトがグループになっている図形のテキストを表す場合は、常にグループのテキストが返されます。

その他のアプリケーションやガイドのオブジェクトには Text プロパティはありません。

Visual Studio ソリューションに Microsoft.Office.Interop.Visio リファレンスが含まれている場合、このプロパティは次の種類にマップされます。

• Microsoft.Office.Interop.Visio.IVCharacters.Text

例

この Microsoft Visual Basic for Applications (VBA) マクロは、Characters オブジェクトの Text プロパティを取得する方法を示しています。

 
Public Sub CharactersText_Example()  
 
    Dim vsoOval As Visio.Shape  
    Dim vsoCharacters As Visio.Characters  
 
    'Create a shape and add text. 
    Set vsoOval = ActivePage.DrawOval(2, 5, 5, 7)  
    vsoOval.Text = "Oval Shape"  
 
    'Get a Characters object from the shape. 
    Set vsoCharacters = vsoOval.Characters  
 
    'Get the text from the Characters object. 
    Debug.Print vsoCharacters.Text  
 
End Sub

サポートとフィードバック

Office VBA またはこの説明書に関するご質問やフィードバックがありますか？ サポートの受け方およびフィードバックをお寄せいただく方法のガイダンスについては、Office VBA のサポートおよびフィードバックを参照してください。