Run メソッド

オブジェクト：MacroItem , Smoother , FitItem

• タイプ: Function
  As Boolean
• 構文: MacroItem/FitItem object.Run

FitItem オブジェクトやマクロを実行します。オブジェクトは Finish するまで閉じません。

Example

• 現在開いているワークシートの最初の２列にあるデータに二次曲線を当てはめます。

  Dim Selection(3)
  Selection(0) = 0
  Selection(1) = 0
  Selection(2) = 1
  Selection(3) = &H7FFFFFF
  ActiveDocument.CurrentDataItem.SelectionExtent = Selection
  Dim ActiveDoc As Object
  Dim CurItem As Object
  Set ActiveDoc = ActiveDocument
  Set CurItem = ActiveDocument.CurrentItem
  Notebooks.Open(path+"\Standard.jfl")
  ActiveDoc.Activate
  CurItem.IsCurrentItem = True
  Dim FitObject As Object
  Set FitObject = Notebooks(path+"\Standard.jfl").NotebookItems("Quadratic")
  FitObject.Open
  FitObject.Variable("x") = "col(1)"
  FitObject.Variable("y") = "col(2)"
  FitObject.Run
  FitObject.Finish
  

• 以下のサンプルは、フィットウィザードの実行に至る過程をマクロレコーダーで記録した内容を示すものです (コメントは除く)。カーブフィットのセットアップに必要な各種命令文に加えて、"Run" および "Finish" メソッドが含まれていることが分かります。

  ' Remember the current item and document
  Dim CurItem As Object
  Set CurItem = ActiveDocument.CurrentItem
  Dim ActiveDoc As Object
  Set ActiveDoc = ActiveDocument
  
  ' Open the fit file containing the fit we want to run.
  Notebooks.Open(path+"\Standard.jfl")
  Dim FitFile As Object
  Set FitFile = Notebooks("C:\Data\PROJ\spw32\Standard.jfl")
  
  ' Reset the current document and worksheet to get fit data from.
  ActiveDoc.Activate
  CurItem.IsCurrentItem = True
  
  ' Open the fit we want to run.
  Dim FitObject As Object
  Set FitObject = Notebooks(path+"\Standard.jfl").NotebookItems("Single, 2 Parameter")
  FitObject.Open
  
  ' Set the data format and set the variables
  FitObject.DatasetType = CF_XYPAIR
  FitObject.Variable("x") = "col(1)"
  FitObject.Variable("y") = "col(2)"
  
  ' Run the fit. (This computes the fit results but
  ' does not output graphs, data, or reports.
  FitObject.Run
  ' Set the output parameters
  FitObject.OutputReport = False
  FitObject.OutputEquation = False
  FitObject.ResidualsColumn = -2
  FitObject.PredictedColumn = -2
  FitObject.ParametersColumn = -2
  FitObject.OutputGraph = True
  FitObject.OutputAddPlot = True
  FitObject.AddPlotGraphIndex = -1
  FitObject.XColumn = -1
  FitObject.YColumn = -1
  FitObject.ZColumn = -2
  
  ' Output the results (this would also "Run" the fit if
  ' we hadn't already done that.
  FitObject.Finish
  
  ' Close the fit file and set the variable to "Nothing" to make sure the
  ' fit file is completely released. (We would not be able to reopen it
  ' until this is done or this macro finishes). 
  FitFile.Close(True)
  Set FitFile = Nothing