253577_ja-JP

liliconcom

[プレゼンテーションの保存] > [H リスト ボックスの配置]: 各スライドの上部にスペースを残す方法 (テスト スクリプトを参照)。

こんにちは、JMP コミュニティです。

 

私には、解決できていない一見単純な問題があります。さまざまなジャーナルからのプロットを PowerPoint プレゼンテーションの 1 つのスライドに収集するための簡単なスクリプトを作成しています。 これまでのところ、プロットがすべて各スライドの上部に固定されていることを除いて、物事はうまく機能しています。この問題を回避するには、H リスト ボックスまたはラインアップ ボックスにスペーサーを含める最良の方法は何ですか?

 

Names Default to Here (1);

dummy = H List Box ();

dummy << Save Presentation ("$Desktop/TEMP PNG/Z1.pptx", Outline Titles (Top Left));

jrn1 = Get Window("FIRST_JOURNAL");
jrn2 = Get Window("SECOND_JOURNAL");

For (i = 1, i <=5, i++, 
 Plot1 = jrn1 [PictureBox(i)];
 Plot2 = jrn2 [PictureBox(i)];

 MylpBox = Lineup Box (N Col (2));
 MylpBox << Append (Plot1);
 MylpBox << Append (Plot2);

 myhlb = H List Box ();
 myhlb << Append (Spacer Box (0,1)); // this does not work
 myhlb << Append (MylpBox << get picture);
 myhlb << Save Presentation ("$Desktop/TEMP PNG/Z1.pptx", append, Outline Titles (Top Left));
 
); 

ご協力ありがとうございました。

TS

 

 

Re: プレゼンテーションの保存 > H リスト ボックスの配置: 各スライドの上部にスペースを残す方法 (テスト スクリプトを参照)。

これは、あなたが探している間隔をどのように行うかについての簡単な例です

Names Default To Here( 1 );

Open( "$SAMPLE_DATA/big class.jmp" );

// Create the output you need
biv = bivariate( x( :height ), y( :weight ) );
plot1 = Report( biv );

// Create a display area with the spacer box in it 
vlb = V List Box( nn = V List Box( Spacer Box( size( 1, 50 ) ) ) );

// add in the part of the display that you want to be lower
nn << append( plot1[Picture Box( 1 )] );

// Add the display area to the outline box that has the title 
plot1[Outline Box( 1 )] << prepend( vlb << get picture );

// Delete the area of the display that you have turned
// into a picture object and placed it just below the outline box
plot1[Picture Box( 1 )] << delete;

plot1 << Save Presentation( "$TEMP/Z1.pptx", append, Outline Titles( Top Left ) );


Open( "$TEMP/Z1.pptx" );