253577_it-IT

liliconcom

Salva presentazione > Posizionamento casella di riepilogo H: come lasciare un po' di spazio nella parte superiore di ogni diapositiva (vedere lo script di test)?

Ciao comunità JMP,

 

Ho un problema apparentemente semplice che non sono riuscito a risolvere: sto costruendo un semplice script per raccogliere trame da diverse riviste in singole diapositive in una presentazione PowerPoint. Finora, le cose stanno funzionando bene, tranne per il fatto che le trame sono tutte bloccate nella parte superiore di ogni diapositiva -> qual è il modo migliore per includere uno spazio nella mia casella di riepilogo H o nella mia casella di selezione per evitare questo problema?

 

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

Grazie per l'aiuto.

ST

 

 

Oggetto: Salva presentazione > Posizionamento casella di riepilogo H: come lasciare un po' di spazio nella parte superiore di ogni diapositiva (vedere lo script di test)?

Ecco un semplice esempio di come faccio la spaziatura che stai cercando

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