253577_es-ES

liliconcom

Guardar presentación> Colocación de cuadro de lista H: ¿Cómo dejar algo de espacio en la parte superior de cada diapositiva (ver script de prueba)?

Hola comunidad JMP:

 

Tengo un problema aparentemente simple que no he podido resolver: construyo un script simple para reunir tramas de diferentes revistas en diapositivas individuales en una presentación de PowerPoint. Hasta ahora, las cosas funcionan bien, excepto que las parcelas están todas pegadas en la parte superior de cada diapositiva -> ¿cuál es la mejor manera de incluir un espaciador en mi cuadro de lista H o mi cuadro de alineación para evitar este 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));
 
); 

Gracias por tu ayuda.

TS

 

 

Re: Guardar presentación> Colocación de cuadro de lista H: ¿Cómo dejar algo de espacio en la parte superior de cada diapositiva (ver script de prueba)?

Aquí hay un ejemplo simple de cómo hago el espacio que estás buscando

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