Tutto,
Hai bisogno di aiuto con le scatole da esposizione oggi stesso.
Sto formando un report che successivamente salverò in PPTX per il cliente.
Poiché voglio raggruppare diverse trame su una diapositiva, formo un OutlineBox con il testo che voglio sia l'intestazione della diapositiva e quindi inserisco un'immagine delle trame di cui ho bisogno in quella Outline Box. Parallelamente, lo visualizzo anche in una finestra separata.
Ecco lo script di esempio:
dt = Open( "$SAMPLE_DATA/Big Class.jmp" );
vc = Variability Chart(
Y( :height, weight ),
X( :sex ),
Connect Cell Means( 1 ),
Std Dev Chart( 0 ),
Points Jittered( 1 )
);
lb = Lineup Box( N Col( 2 ) );
For Each( {rvc, index}, vc << Report,
lb << Append( rvc );
);
vc << Close Window;
nw = New Window( "Variability Report", Show Menu( 0 ), Show Toolbars( 0 ), lb );
rw = New Window( "To Save PPTX", Show Menu( 0 ), Show Toolbars( 0 ), Outline Box("Heading for PPTX", lb << Get Picture));Qui ora è la finestra che vedo, e rw è la finestra con le immagini che verranno esportate in PPTX.
Ora, quando creo grafici di variabilità, li inserisco in questo riquadro che dice semplicemente "Indicatore di variabilità".Vedi che ce l'hanno entrambe le finestre. Come posso liberarmene?
Ho provato a estrarre il riquadro di contorno interno in questo modo:
lb2 = Lineup Box( N Col( 2 ) );
For Each( {rvc, index}, vc << Report,
subrvc = rvc << XPath("/OutlineBox/OutlineBox");
lb2 << Append( subrvc );
);
rw2 = New Window( "To Save PPTX", Show Menu( 0 ), Show Toolbars( 0 ), Outline Box("Heading for PPTX", lb2 << Get Picture));ma non posso aggiungere subvc (la casella di contorno interna) alla mia casella LineUp:
Not a display in access or evaluation of 'Append' , Append( subrvc ) /*###*/
Un modo per sbarazzarsi di quella casella di contorno? Magari avvolgere la mia trama in qualcosa che sia un display, ma che sia essenzialmente invisibile? Ho provato Broder Box ma non ha funzionato.
Grazie,
M
Hmm... Come al solito, non appena inserisco la domanda, trovo la risposta. O almeno sembra che questo dovrebbe funzionare:
subrvc nello script sopra in realtà non è un DisplayBox[OutlineBox], è un array di essi con un solo elemento.
Quindi tutto quello che devo fare è cambiare lo script in questo modo:
lb2 = Lineup Box( N Col( 2 ) );
For Each( {rvc, index}, vc << Report,
subrvc = rvc << XPath("/OutlineBox/OutlineBox");
lb2 << Append( subrvc[1]/*THIS HERE!*/ );
);
rw2 = New Window( "To Save PPTX", Show Menu( 0 ), Show Toolbars( 0 ), Outline Box("Heading for PPTX", lb2 << Get Picture));