次の方法で共有

Pages.Item プロパティ (Visio)

コレクションからアイテムを返します。 Item プロパティはすべてのコレクションの既定のプロパティです。 読み取り専用です。

構文

式。Item (NameUIDOrIndex)

表現Pages オブジェクトを表す変数。

パラメーター

名前 必須 / オプション データ型 説明
NameUIDOrIndex 必須 バリアント型 取得するオブジェクトの名前、一意の ID、またはインデックスを格納します。

戻り値

Page

解説

コレクションからオブジェクトを取得する場合、Item はすべてのコレクションの既定のプロパティであるため、式から省略できます。 次のステートメントは上記の構文の例に相当します。

objRet = object(index)  
objRet = object(stringExpression)

Variant の文字列式としてオブジェクトの名前を渡すと、Addons、Documents、Fonts、Hyperlinks、Layers、Masters、MasterShortcuts、OLEObjects、Pages、Shapes、Styles コレクションのオブジェクトを取得できます。

Item プロパティに ID 文字列を渡す方法の詳細については、このリファレンスの UniqueID プロパティのトピックを参照してください。

注:

Microsoft Visio 2000 以降では、ローカル名とユニバーサル名の両方を使用して、Visio の図形、マスター、ドキュメント、ページ、行、アドオン、セル、ハイパーリンク、スタイル、フォント、マスター ショートカット、UI オブジェクト、レイヤーを参照できます。 たとえば、ユーザーが図形に名前を付けると、ユーザーはローカル名を指定します。 Microsoft Office Visio 2003 以降、シェイプシート スプレッドシートには、セルの数式と値にユニバーサル名のみが表示されます。 (以前のバージョンでは、ユニバーサル名はユーザー インターフェイスに表示されませんでした)。

汎用名をプログラム内で使用すると、ソリューションをローカライズするたびに名前を変更する必要がなくなります。 コレクションのローカル名を使用して Masters、Pages、Shapes、Styles、Layers、または MasterShortcuts コレクションのオブジェクトにアクセスする場合は、Item プロパティを使用します。 オブジェクトの汎用名を使用してこれらのいずれかのコレクションのオブジェクトにアクセスする場合は、ItemU プロパティを使用します。

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

  • Microsoft.Office.Interop.Visio.IVPages.this[object]

例

この Microsoft Visual Basic for Applications (VBA) マクロは、Item プロパティを使用して、作業中の文書の Pages コレクションから Page オブジェクトを取得する方法と、Page オブジェクトの Shapes コレクション内のすべての Shape オブジェクトを取得する方法を示しています。 マクロは、イミディエイト ウィンドウの 1 ページ目にすべての図形の名前を出力します。

このマクロを実行する前に、アクティブな図面の 1 ページ目に図形があることを確認してください。

 
Public Sub Item_Example() 
  
    Dim intCounter As Integer 
    Dim intShapeCount As Integer 
    Dim vsoShapes As Visio.Shapes  
 
    Set vsoShapes = ActiveDocument.Pages.Item(1).Shapes  
 
    Debug.Print "Shape Name List For..." 
    Debug.Print "Document: "; ActiveDocument.Name  
    Debug.Print "Page: "; ActiveDocument.Pages.Item(1).Name  
 
    intShapeCount = vsoShapes.Count  
 
    If intShapeCount > 0 Then 
        For intCounter = 1 To intShapeCount  
            Debug.Print " "; vsoShapes.Item(intCounter).Name  
        Next intCounter  
    Else 
        Debug.Print " No Shapes On Page"  
    End If   
 
End Sub

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

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

  • Last updated on