| サイトマップ | |
||
トップ | オブジェクト | プロパティ | メソッド | 定数 |
Run メソッド |
オブジェクト:MacroItem , Smoother , FitItem
FitItem オブジェクトやマクロを実行します。オブジェクトは Finish するまで閉じません。
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
' 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