253577_zh-TW

liliconcom

Save Presentation > H List Box Placement：如何在每張幻燈片的頂部留出一些空間（參見測試腳本）？

嗨 JMP 社區，

 

我有一個看似簡單但無法解決的問題：我構建了一個簡單的腳本來將來自不同期刊的圖表收集到 PowerPoint 演示文稿中的單張幻燈片中。 到目前為止，除了繪圖都卡在每張幻燈片的頂部之外，一切都很好 -> 在我的 H 列錶框或我的陣容框中包含一個 Spacer 以避免這個問題的最佳方法是什麼？

 

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

 

 

回复：保存演示文稿 > 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" );