次の方法で共有

Connects.FromSheet プロパティ (Visio)

  • [アーティクル]

1 つまたは複数の接続の接続元となっている図形を返します。 読み取り専用です。

構文

式。FromSheet

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

戻り値

Shape

注釈

Connect オブジェクトの FromSheet プロパティは単純です。 このプロパティは常に Connect オブジェクトの接続元となる図形を返します。

Connects コレクションは、複数の接続を表します。 コレクションで表されるすべての接続の接続元が同じ図形の場合、コレクションの FromSheet プロパティはその図形を返します。 それ以外の場合、FromSheet プロパティは Nothing を返し、例外は発生しません。

例

この Microsoft Visual Basic for Applications (VBA) マクロは、FromSheet プロパティを使用して、Microsoft Visio 図面から、Connect オブジェクトの接続元である図形を検索します。 この例では、接続情報はイミディエイト ウィンドウに表示されます。

この例は、接続された図形を少なくとも 2 つ含むアクティブな図面があることを前提としています。 [組織図] ステンシルの図形を 2 つ接続すると、最適な結果を得ることができます。

 
Public Sub FromSheet_Example() 
 
 Dim vsoShapes As Visio.Shapes 
 Dim vsoShape As Visio.Shape 
 Dim vsoConnectFrom As Visio.Shape 
 Dim vsoConnects As Visio.Connects 
 Dim vsoConnect As Visio.Connect 
 Dim intCurrentShapeIndex As Integer 
 Dim intCounter As Integer 
 
 Set vsoShapes = ActivePage.Shapes 
 
 For intCurrentShapeIndex = 1 To vsoShapes.Count 
 Set vsoShape = vsoShapes(intCurrentShapeIndex) 
 Set vsoConnects = vsoShape.Connects 
 
 For intCounter = 1 To vsoConnects.Count 
 Set vsoConnect = vsoConnects(intCounter) 
 Set vsoConnectFrom = vsoConnect.FromSheet 
 
 'Print the name of the shape the 
 'Connect object originates from. 
 Debug.Print vsoConnectFrom.Name 
 
 Next intCounter 
 
 Next intCurrentShapeIndex 
 
End Sub

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

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