AddVariableExpression メソッド

オブジェクト：TransformItem

• タイプ: Sub
• 構文: TransformItem object.AddVariableExpression(variable name string, variable value variant)

指定したトランスフォームの任意の変数に値を代入できるようにします。

Examples

• 配列 HistogramParameters を宣言し、その値をトランスフォーム関数 histogram のパラメータ値として使います。

  Dim SPTransform As Object
  Set SPTransform = ActiveDocument.NotebookItems.Add(9)
  SPTransform.Open
  SPTransform.Text = "col(c)=histogram(col(r),b)" + vbCrLf
  Dim HistogramParameters(2)
  HistogramParameters(0) = "1"
  HistogramParameters(1)= "col(2)"
  HistogramParameters(2)= "3"
  SPTransform.AddVariableExpression("r", HistogramParameters(0))
  SPTransform.AddVariableExpression("b", HistogramParameters(1))
  SPTransform.AddVariableExpression("c", HistogramParameters(2))
  SPTransform.Execute
  SPTransform.Close(False)
  

• 以下のマクロは、ダイアログから取得した値を使用してトランスフォーム関数 gaussian のパラメータに代入するものです。

  Dim SPTransform As Object
  Set SPTransform = ActiveDocument.NotebookItems.Add(9)
  SPTransform.Open
  SPTransform.Text = "col(c)=gaussian(n,0/0,m,s)" + vbCrLf
  Begin Dialog UserDialog 320,126,"Normally Distributed Numbers" ' %GRID:10,7,1,1
  OKButton 210,7,90,21
  CancelButton 210,35,90,21
  TextBox 100,7,90,21,.n
  TextBox 100,35,90,21,.mean
  TextBox 100,63,90,21,.stddev
  TextBox 100,91,90,21,.Results
  Text 10,10,80,14,"Number",.Text1
  Text 10,38,60,14,"Mean",.Text2
  Text 10,66,90,14,"Std Dev",.Text4
  Text 10,94,80,14,"Results Col",.Text3
  End Dialog
  Dim dlg As UserDialog
  dlg.n = "100"
  dlg.mean = "1"
  dlg.stddev = ".25"
  dlg.Results = "1"
  Dialog dlg
  SPTransform.AddVariableExpression("n", dlg.n)
  SPTransform.AddVariableExpression("m", dlg.mean)
  SPTransform.AddVariableExpression("s", dlg.stddev)
  SPTransform.AddVariableExpression("c", dlg.Results)
  SPTransform.Execute
  SPTransform.Close(False)