ItemType プロパティ

オブジェクト：ExcelItem, FitItem, GraphItem, MacroItem, NativeWorksheetItem, NotebookItem, ReportItem, SectionItem, TransformItem

• Read Only
  As Integer
• 構文: NotebookItems object.ItemType

NotebookItems コレクションの全てのオブジェクトに共通のプロパティです。そのアイテムやオブジェクトのタイプをあらわす整数値を返します。

• SPWNotebookComponentType: Notebook Item Type 定数

Example

• 以下のマクロは、ノートブックの全てのアイテムをダイアログに番号順で一覧表示し、ItemType プロパティコードにマッピングされた各アイテムのタイプを文字列として返すものです。

  Dim Items$()
  ReDim Items(ActiveDocument.NotebookItems.Count)
  Dim Index
  Index = 0
  While Index<=>ActiveDocument.NotebookItems.Count
  Items$(Index) = CStr(Index)
  Index = Index + 1
  Wend
  Begin Dialog UserDialog 250,154,"Select the Item Number" ' %GRID:10,7,1,1
  OKButton 150,14,90,21
  ListBox 10,14,110,126,Items(),.ItemNumber
  End Dialog
  Dim dlg As UserDialog
  Dialog dlg
  Dim ItemTypeName$
  Select Case ActiveDocument.NotebookItems(CLng(dlg.ItemNumber)).ItemType
  Case 1
  ItemTypeName$ = "SigmaPlot Worksheet"
  Case 2
  ItemTypeName$ = "Graphics Page"
  Case 3
  ItemTypeName$ = "Section"
  Case 4, 5
  ItemTypeName$ = "Report"
  Case 6
  ItemTypeName$ = "Equation"
  Case 7
  ItemTypeName$ = "Notebook"
  Case 8
  ItemTypeName$ = "Excel Worksheet"
  Case 9
  ItemTypeName$ = "Transform"
  Case 10
  ItemTypeName$ = "Macro"
  Case Else
  ItemTypeName$ = "No Item"
  End Select
  
  MsgBox "The item type is "+ItemTypeName$