保存演示> H列表框放置:如何在每张幻灯片的顶部保留一些空间(请参阅测试脚本)?嗨,JMP社区,
我有一个显然无法解决的简单问题:我构建了一个简单的脚本,将来自不同期刊的绘图收集到PowerPoint演示文稿的单个幻灯片中。到目前为止,一切工作正常,除了所有图都卡在每张幻灯片的顶部->避免在我的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
回复:“保存演示文稿”>“ 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" );
