Plots プロパティ

オブジェクト：Graph

• Read Only
  As Object (Collection)
• 構文: Graph object.Plots

指定した Graph オブジェクトの Plots コレクションを返します。グラフ内にある個々の Plot オブジェクトを取得するには、インデックスを使用します。

Example

• 現在開いているページ内にあるプロットの一覧をユーザーに提示します。リストで選択したプロットは、現在のプロットに設定されます。

  Dim x As Long
  x=ActiveDocument.CurrentPageItem.GraphPages(0).Graphs(0).Plots.Count
  Dim SPPlot As Object
  Set SPPlot = ActiveDocument.CurrentPageItem.GraphPages(0).Graphs(0)
  Dim plotobj As Object
  Dim plotlist$(ActiveDocument.CurrentPageItem.GraphPages(0).Graphs(0).Plots.Count)
  Dim i
  For i=0 To x-1
  plotlist$(i)=SPPlot.Plots(i).Name
  Next i
  Begin Dialog UserDialog 310,133,"Set Current Plot" ' %GRID:10,7,1,1
  GroupBox 20,14,160,105,"Available Plots",.GroupBox1
  ListBox 30,28,140,84,plotlist(),.ListBox1
  OKButton 210,21,80,21
  CancelButton 210,56,80,21
  End Dialog
  Dim dlg As UserDialog
  Dialog dlg
  Dim index As Long
  index=dlg.ListBox1
  ActiveDocument.CurrentPageItem.GraphPages(0).Graphs(0).Plots(index).SetObjectCurrent