Alle,
Benötigen Sie noch heute Hilfe bei den Display-Boxen.
Ich erstelle einen Bericht, den ich später in PPTX für den Kunden speichere.
Da ich mehrere Plots auf einer Folie gruppieren möchte, erstelle ich eine OutlineBox mit dem Text, der als Überschrift auf der Folie dienen soll, und platziere dann ein Bild der benötigten Plots in diesem Outline Box. Parallel dazu zeige ich das auch in einem separaten Fenster an.
Hier ist das Beispielskript:
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));Hier jetzt ist das Fenster, das ich sehe, und rw ist das Fenster mit den Bildern, die nach PPTX exportiert werden.
Wenn ich nun Variabilitätsdiagramme erstelle, habe ich sie in diesem Umrissfeld verpackt, in dem nur „Variabilitätsanzeige“ steht.Sie sehen, dass beide Fenster es haben. Wie werde ich es los?
Ich habe versucht, die innere Outline-Box wie folgt zu extrahieren:
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));aber ich kann nicht anhängen subrvc (das innere Umrissfeld) zu meiner LineUp-Box:
Not a display in access or evaluation of 'Append' , Append( subrvc ) /*###*/
Gibt es eine Möglichkeit, diesen Umrissrahmen loszuwerden? Vielleicht meine Handlung in etwas einhüllen, das eine Anzeige IST, aber im Wesentlichen unsichtbar ist? Ich habe Broder Box ausprobiert, aber es hat nicht funktioniert.
Danke,
M
Hmmm... Wie immer finde ich die Antwort, sobald ich die Frage poste. Oder es sieht zumindest so aus, als ob das funktionieren sollte:
subrvc im obigen Skript ist eigentlich keine DisplayBox[OutlineBox], sondern ein Array davon mit nur einem Element.
Alles, was ich tun muss, ist, das Skript wie folgt zu ändern:
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));