231970_it-IT

liliconcom

Presa della corrente

Ciao, ho questo codice che mostra una finestra con più trame. La domanda è: come faccio a salvare l'output in PowerPoint come una diapositiva?

 

 

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

 

 

Re: Powerpoint

La funzione Save Presentation(), prenderà il verbo da un Outline Box() come titolo per il grafico.Quindi, se modifichi le ultime righe dell'esempio precedente che ho fornito, al seguente, otterrai il titolo che desideri

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

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

Re: Powerpoint

Ciao grazie per la risposta! C'è un modo per farli uscire come una trama per diapositiva e inserire un titolo della diapositiva?

Re: Powerpoint

Ecco un esempio di come gestisco questo.Sposto semplicemente gli oggetti in un unico oggetto immagine, quindi salvo l'oggetto immagine.

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>