CurrentPageObject プロパティ

オブジェクト：Page

• Read Only
  As Object
• 構文: ObjectVar = GraphItem object.CurrentPageObject(ObjectType variant)

現在開いているグラフの中から "ObjectType" で指定したオブジェクトを返します。ObjectType に代入できる値には、GPT_PAGE, GPT_GRAPH, GPT_AXIS, GPT_PLOT, GPT_TUPLE, GPT_LINE, GPT_OBJECT があります。取得したオブジェクトに対して操作を行うには、通常、SetCurrentObjectAttribute メソッドを使います。

Example

• X 軸と Y 軸の両タイトルを変更するダイアログを開きます。

  Dim xname,yname
  ActiveDocument.CurrentPageItem.SetCurrentObjectAttribute(GPM_SETPLOTATTR, SLA_SELECTDIM, 1)
  xname=ActiveDocument.CurrentPageItem.GraphPages(0).CurrentPageObject(GPT_AXIS).Name
  ActiveDocument.CurrentPageItem.SetCurrentObjectAttribute(GPM_SETPLOTATTR, SLA_SELECTDIM, 2)
  yname=ActiveDocument.CurrentPageItem.GraphPages(0).CurrentPageObject(GPT_AXIS).Name
  Begin Dialog UserDialog 400,84,"Axis Titles" ' %GRID:10,7,1,1
  Text 30,14,50,14,"X-Axis:",.Text1
  Text 30,49,40,14,"Y-Axis:",.Text2
  TextBox 90,14,170,21,.TextBox1
  TextBox 90,49,170,21,.TextBox2
  OKButton 310,14,70,21
  End Dialog
  Dim dlg As UserDialog
  dlg.TextBox1=xname
  dlg.TextBox2=yname
  Dialog dlg
  ActiveDocument.CurrentPageItem.SetCurrentObjectAttribute(GPM_SETPLOTATTR, SLA_SELECTDIM, 1)
  ActiveDocument.CurrentPageItem.GraphPages(0).CurrentPageObject(GPT_AXIS).Name=dlg.TextBox1
  ActiveDocument.CurrentPageItem.SetCurrentObjectAttribute(GPM_SETPLOTATTR, SLA_SELECTDIM, 2)
  ActiveDocument.CurrentPageItem.GraphPages(0).CurrentPageObject(GPT_AXIS).Name=dlg.TextBox2