253577_de-DE

liliconcom

Präsentation speichern > H-Listenfeldplatzierung: Wie lasse ich oben auf jeder Folie etwas Platz (siehe Testskript)?

Hallo JMP-Community,

 

Ich habe ein scheinbar einfaches Problem, das ich nicht lösen konnte: Ich erstelle ein einfaches Skript, um Handlungsstränge aus verschiedenen Zeitschriften in einzelnen Folien in einer PowerPoint-Präsentation zusammenzufassen. Bisher funktioniert alles gut, außer dass die Plots alle oben auf jeder Folie hängen bleiben -> Wie füge ich am besten einen Abstandshalter in meine H-Listenbox oder meine Aufstellungsbox ein, um dieses Problem zu vermeiden?

 

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));
 
); 

Ich danke Ihnen für Ihre Hilfe.

TS

 

 

Betreff: Präsentation speichern > H-Listenfeldplatzierung: Wie lässt man oben auf jeder Folie etwas Platz (siehe Testskript)?

Hier ist ein einfaches Beispiel dafür, wie ich den von Ihnen gesuchten Abstand mache

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" );