Re：ボタンクリックで起動し、現在のレポートを.pptとして保存するスクリプト<< SavePresentation（）メッセージは表示ボックスオブジェクトに有効なので、作成したプラットフォームからレポートを取得するには次のようなものが必要になります。
(obj << Report) << Save Presentation( "$DOCUMENTS/report.pptx" )
あるいは、Current Report（）を使用することもできますが、レポートを作成した後でPowerpointをエクスポートする前に何か他のことをすると、いくつかの問題が発生します。 同じことがあなたのレポートの作成にも当てはまります - おそらくそれを使うのは良い考えです：
obj = dt << Gaussian Process(...)
'dt'は正しいテーブルが使用されていることを確認するのに役立ちます。作成したこれらのJSL変数が他のものと競合しないようにするには、上部にNames Default To Here（1）を追加します。
Re：ボタンクリックで起動し、現在のレポートを.pptとして保存するスクリプトこんにちは、明快さを本当にありがとう。私はあなたが提案した変更を実装しましたが、まだ.pptxとしてレポートの保存を開始するためのボタンクリックを得ることができません。クリックするとマイクロ秒の間ロードされたように見えますが、デスクトップには何も保存されません。
// "//!" placed at the first line of script results in auto-run rather than to open the script
// //!
Names Default To Here(1);
//opens a new window
w = New Window( "Load Your Data Table",
Text Box( "Choose an Excel file in which your data is linearized into
columns and transformed into Log10[x]." ),
//button to load data
Button Box( "1. Load data table", dt = Open( ) ),
//button to set column type
Button Box( "2. Set column type to Numeric/Continuous", dt = current data table();
for (i = 1, i <= ncols(dt), i++, column(dt, i) << data type(numeric);
column(dt, i) << set modeling type(continuous))),
//button to initiate Gaussian modeling
Button Box( "3. Gaussian modeling", obj = dt << Gaussian Process(Estimate Nugget(1),
Set Correlation Function("Cubic"), Profiler(1),
SendToReport( Dispatch( {}, "Model Report", OutlineBox, {Close( 1 )})),
//automatically saves the Gaussian analysis as a script to the data table
<< Save Script to Data Table(
"Gaussian modeling",
<<PROMPT></PROMPT>
ボタンクリックでトリガーされる、現在のレポートを.pptとして保存するためのスクリプト*私は過去に解決された2つの非常によく似た投稿を見つけました、しかし私は解決策を利用することに失敗しました....これが重複した投稿であることを残念。
Gaussianプロセスモデリングから生成された現在開いているレポートを.pptxファイルとして保存することができるボタンクリックでトリガーされるスクリプトを追加しようとしています。<<プレゼンテーションの保存に関連する例を見つけました（... ）スクリプトインデックスにありますが、これをボタンボックスの機能的な引数として配置することはできません（ "test"、[here]）。
これが私のスクリプトです。
// "//!" placed at the first line of script results in auto-run rather than to open the script
// //!
//opens a new window
w = New Window( "Load Your Data Table",
Text Box( "Choose an Excel file in which your data is linearized into
columns and transformed into Log10[x]." ),
//button to load data
Button Box( "1. Load data table", dt = Open( ) ),
//button to set column type
Button Box( "2. Set column type to Numeric/Continuous", dt = current data table();
for (i = 1, i <= ncols(dt), i++, column(dt, i) << data type(numeric);
column(dt, i) << set modeling type(continuous))),
//button to initiate Gaussian modeling
Button Box( "3. Gaussian modeling", obj = Gaussian Process(Estimate Nugget(1),
Set Correlation Function("Cubic"), Profiler(1),
SendToReport( Dispatch( {}, "Model Report", OutlineBox, {Close( 1 )})),
//automatically saves the Gaussian analysis as a script to the data table
<< Save Script to Data Table(
"Gaussian modeling",
<<PROMPT></PROMPT>
