Symbols プロパティ

オブジェクト：Plot

• Read Only
  As Object
• 構文: Plot object.Symbols

指定した Plot オブジェクトから Symbol オブジェクトを返します。

Example

• 現在開いているページの各プロットで使用されているシンボルの形状を一覧表示します。

  Dim SPPlot As Object
  Set SPPlot = ActiveDocument.CurrentPageItem.GraphPages(0).Graphs(0)
  Dim symtype,i As Long
  Dim SymbolShape(ActiveDocument.CurrentPageItem.GraphPages(0).Graphs(0).Plots.Count)
  Dim msgtxt As String
  For i=0 To SPPlot.Plots.Count-1
  symtype=SPPlot.Plots(i).Symbols.GetAttribute(SSA_SHAPE,SymbolShape(i))
  msgtxt=msgtxt + SPPlot.Plots(i).Name + ": " + CStr(symtype) + vbCr
  Next i
  MsgBox msgtxt,"Symbol Shapes"