NotebookItems プロパティ

オブジェクト：Notebook

• Read Only
  As Object (collection)
• 構文: Notebook object.NotebookItems

Notebook オブジェクトの NotebookItems コレクションを返すプロパティです。NotebookItems コレクションを使って、各種ノートブックアイテムにアクセスします。ワークシート、ページ、方程式、レポート、マクロ、セクション、ノートブックフォルダはいずれもノートブックアイテムのひとつなのでオブジェクトとして取得できます。

Example

• この例は、現在開いているノートブックにあるノートブックの全てのアイテムを名称別に一覧表示するものです。

  Dim NotebookItems$()
  ReDim NotebookItems$(ActiveDocument.NotebookItems.Count)
  Dim Index
  Index = 0
  Dim Item
  For Each Item In ActiveDocument.NotebookItems
  NotebookItems$(Index) = ActiveDocument.NotebookItems(Index).Name
  Index = Index + 1
  Next Item
  Begin Dialog UserDialog 320,119,"Items in Active Notebook" ' %GRID:10,7,1,1
  OKButton 210,14,90,21
  ListBox 20,14,170,91,NotebookItems(),.ListBox1
  End Dialog
  Dim dlg As UserDialog
  Dialog dlg