GetAttribute メソッド

オブジェクト：Solid , Tuple , Text , Function , Page , Graph , Symbol , Group , GraphObject , Plot , Line , Axis

• タイプ: Function
  As Long
• 構文: Page object/child object.GetAttribute(attribute, parameter)

GetAttribute メソッドは、グラフページの全てのオブジェクトについて、現在設定されている属性 attribute の内容を取得するのに使用します。属性の戻り値は数値ですが、それぞれに定数が割り当てられています。属性と定数の全リストについては、SigmaPlot の定数をご覧ください。

メッセージの転送：GetAttribute メソッドを使って属性値を取得する場合、現在のオブジェクトにその属性が存在しなければ、そのメッセージは、メッセージ転送表の仕様に従ってその属性をもつオブジェクトに渡されます。

Object Browser を使用して定数を表示する

現在の属性値を選択した状態で Object Browser ボタンをクリックすると、その属性や定数の代替値を表示させることができます。利用できる全ての代替値が一覧で表示されます。表示された値をコピーしてコードにペーストしてください。

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,"Available Plots" ' %GRID:10,7,1,1
  ListBox 30,28,140,84,plotlist(),.ListBox1
  OKButton 210,21,80,21
  CancelButton 210,56,80,21
  End Dialog
  Dim dlg1 As UserDialog
  Dialog dlg1
  Dim index As Long
  index=dlg1.ListBox1
  Set SPPlot=ActiveDocument.CurrentPageItem.GraphPages(0).Graphs(0).Plots(index)
  Dim SymbolShape,SymbolColor,SymbolSize,LineType,LineShape,LineColor
  Dim sshape,scolor,ssize,ltype,lshape,lcolor
  sshape=SPPlot.Symbols.GetAttribute(SSA_SHAPE,SymbolShape)
  scolor=SPPlot.Symbols.GetAttribute(SSA_COLOR,SymbolColor)
  ssize=SPPlot.Symbols.GetAttribute(SSA_SIZE,SymbolSize)
  ltype=SPPlot.Line.GetAttribute(SEA_LINETYPE ,LineType)
  lcolor=SPPlot.Line.GetAttribute(SEA_COLOR ,LineColor)
  lshape=SPPlot.Line.GetAttribute(SLA_LINEPATH ,LineShape)
  Begin Dialog UserDialog 360,175,"Plot Summary" ' %GRID:10,7,1,1
  GroupBox 20,14,150,105,"Symbols",.GroupBox1
  Text 30,35,130,14,"Size: "+CStr(ssize),.Text1
  Text 30,63,130,14,"Shape: "+CStr(sshape),.Text2
  Text 30,91,130,14,"Color: "+CStr(scolor),.Text3
  GroupBox 190,14,150,105,"Lines",.GroupBox2
  OKButton 130,133,100,28
  Text 200,35,130,14,"Type: "+CStr(ltype),.Text4
  Text 200,63,130,14,"Shape: "+CStr(lshape),.Text5
  Text 200,91,130,14,"Color: "+CStr(lcolor),.Text6
  End Dialog
  Dim dlg As UserDialog
  Dialog dlg
  

  ↓