231970_de-DE

liliconcom

Power Point

Hallo, ich habe diesen Code, der ein Fenster mit mehreren Plots zeigt. Frage ist, wie speichere ich die Ausgabe in Powerpoint als eine Folie?

 

 

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

 

 

Betreff: PowerPoint

Die Funktion „Save Presentation()“ übernimmt die Verbage aus einer Outline Box() als Titel für das Diagramm.Wenn Sie also die letzten paar Zeilen des vorherigen Beispiels, das ich bereitgestellt habe, wie folgt ändern, erhalten Sie den gewünschten Titel

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

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

Betreff: PowerPoint

Hallo danke für die Antwort! Gibt es eine Möglichkeit, sie wie Plot pro Folie auszugeben und einen Folientitel zu setzen?

Betreff: PowerPoint

Hier ist ein Beispiel, wie ich damit umgehe.Ich verschiebe die Objekte einfach in ein einzelnes Bildobjekt und speichere dann das Bildobjekt.

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>