253577_fr-FR

liliconcom

Enregistrer la présentation > Emplacement de la zone de liste H : Comment laisser de l'espace en haut de chaque diapositive (voir le script de test) ?

Salut la communauté JMP,

 

J'ai un problème apparemment simple que je n'ai pas été en mesure de résoudre : je construis un script simple pour rassembler des tracés de différents journaux dans des diapositives uniques dans une présentation PowerPoint. Jusqu'à présent, les choses fonctionnent bien sauf que les tracés sont tous bloqués en haut de chaque diapositive -> quelle est la meilleure façon d'inclure un Spacer dans ma H List Box ou ma Lineup Box pour éviter ce problème ?

 

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

Merci pour votre aide.

TS

 

 

Re : Enregistrer la présentation > Emplacement de la zone de liste H : Comment laisser de l'espace en haut de chaque diapositive (voir le script de test) ?

Voici un exemple simple de la façon dont je fais l'espacement que vous recherchez

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