CurrentItem プロパティ

オブジェクト：Notebook

• Read Only
  As Object
• 構文: Notebook object.CurrentItem

このプロパティは、現在開いているノートブックアイテムをその種類を問わずオブジェクトとして返します。ActiveDocument プロパティを使って現在アクティブなノートブックを指定する必要があります。

Examples

• 現在開いているノートブックアイテムの名称を変更するインプットボックスを開きます。

  Dim CurrentItem As Object, ItemName As String
  Set CurrentItem = ActiveDocument.CurrentItem
  ItemName = InputBox$("Rename Current Item","Notebook Item Name",CurrentItem.Name)
  If CurrentItem.Name = ItemName Then
  GoTo Finish
  Else
  CurrentItem.Name = ItemName
  End If
  Finish:
  

  

• 以下のコードは、現在開いているノートブックアイテムのアイテムタイプを表示するものです。

  Dim CurrentItem As Object, TypeOfItem$, ItemCode As Integer
  ItemCode = ActiveDocument.CurrentItem.ItemType
  Select Case ItemCode
  Case 1
  TypeOfItem = "SigmaPlot Worksheet"
  Case 2
  TypeOfItem = "Graph Page"
  Case 3
  TypeOfItem = "Section"
  Case 4
  TypeOfItem = "SigmaStat Report"
  Case 5
  TypeOfItem = "SigmaPlot Report"
  Case 6
  TypeOfItem = "Equation"
  Case 7
  TypeOfItem = "Notebook"
  Case 8
  TypeOfItem = "Excel Worksheet"
  Case 9
  TypeOfItem = "Transform"
  Case 10
  TypeOfItem = "Macro"
  End Select
  MsgBox "Current Item is a " + TypeOfItem,,"Current Item"