231970_fr-FR

liliconcom

Power Point

Salut, j'ai ce code qui montre une fenêtre avec plusieurs parcelles. La question est, comment puis-je enregistrer la sortie dans PowerPoint en une seule diapositive?

 

 

New Window( "Para v PGT",
 Lineup Box( N Col( 3 ),
  For( i = 1, i <= N Items( colname ), i++,
   For( j = 1, j <= N Items( colnamex ), j++,
    biv = Bivariate( Y( Column( dt, colname[i] ) ), X( Column( dt, colnamex[j] ) ), group by( groupcol ) );

    rbiv = biv << report;

    rbiv[FrameBox( 1 )] << {Frame Size( 240, 190 ), Marker Size( 1 ), Line Width Scale( 3 )};

    rbiv[axis box( 2 )] << Tick Font( style( 1 ), size( 9 ) ) << Show Major Grid( 1 ) << Show Minor Grid( 1 ) << Show Minor Ticks( 1 );

    rbiv[axis box( 1 )] << Tick Font( style( 1 ), size( 9 ) ) << Show Major Grid( 1 ) << Show Minor Grid( 1 ) << Show Minor Ticks( 1 );

    rbiv[Text Edit Box( 2 )] << Set Font Size( 10 ) << Set Font Style( "Bold" );

    rbiv[Text Edit Box( 1 )] << Set Font Size( 10 ) << Set Font Style( "Bold" );
   )
  )
 )
);

 

 

Objet : PowerPoint

La fonction Enregistrer la présentation () prendra le verbe d'une boîte de contour () comme titre du graphique.Donc, si vous changez les dernières lignes de l'exemple précédent que j'ai fourni, vous obtiendrez le titre que vous voulez

titleOB = outline box("Here is the Title");
titleOB << append(ob<< get picture);

titleOB << save presentation( "$TEMP/jmp_example.pptx" );
Open( "$TEMP/jmp_example.pptx" );

Objet : PowerPoint

Salut, merci pour la réponse! Existe-t-il un moyen de les faire sortir comme un tracé par diapositive et de mettre un titre de diapositive ?

Objet : PowerPoint

Voici un exemple de la façon dont je gère cela.Je déplace simplement les objets dans un seul objet image, puis enregistre l'objet image.

Names Default To Here( 1 );
dt = Open( "$SAMPLE_DATA/blood pressure.jmp" );
colname = {"BP 8M", "BP 12M", "BP 6M"};
colnamex = {"BP 8W", "BP 12W", "BP 6W"};
groupcol = Column( "Dose" );

ob = Outline Box( "",
 Lineup Box( N Col( 3 ),
  For( i = 1, i <= N Items( colname ), i++,
   For( j = 1, j <= N Items( colnamex ), j++,
    biv = Bivariate(
     Y( Column( dt, colname[i] ) ),
     X( Column( dt, colnamex[j] ) ),
     group by( groupcol )
    );
    rbiv = biv << report;
    rbiv[FrameBox( 1 )] << {Frame Size( 240, 190 ), Marker Size( 1 ), Line Width Scale( 3 )};
    rbiv[axis box( 2 )] << Tick Font( style( 1 ), size( 9 ) ) << Show Major Grid( 1 ) <<
    Show Minor Grid( 1 ) << Show Minor Ticks( 1 );
    rbiv[axis box( 1 )] << Tick Font( style( 1 ), size( 9 ) ) << Show Major Grid( 1 ) <<
    Show Minor Grid( 1 ) << Show Minor Ticks( 1 );
    rbiv[Text Edit Box( 2 )] << Set Font Size( 10 ) << Set Font Style( "Bold" );
    rbiv[Text Edit Box( 1 )] << Set Font Size( 10 ) << Set Font Style( "Bold" );
   )
  )
 )
);

nwj = New Window( "Para v PGT", <<JOURNAL></JOURNAL>