Exportieren Sie alle Kontrolldiagramme aus der Spalte „Nach“ auf einer Seite für den Export nach PowerPointHallo,
Ich habe ein Skript, mit dem ich mithilfe des By-Teils im Skript sechs Regelkarten für 20 separate Grundwasserüberwachungsbrunnen erstelle. Ich möchte am Ende des Skripts etwas hinzufügen, damit ich die 6 Kontrolldiagramme für jeden einzelnen Überwachungsort auf einer Seite in einer Powerpoint-Präsentation ausdrucken kann. Das Ergebnis ist eine 20 Seiten lange Powerpoint-Präsentation mit 6 Diagrammen auf jeder Seite. Ich suche nach Ratschlägen, wo ich mit dieser Aufgabe beginnen soll. Hier ist das Skript, das ich zum Erstellen der Diagramme verwende:
Control Chart Builder(
Show Capability( 0 ),
Variables(
Subgroup( :SAMPLE_DATE ),
Y(
:Chloride,
:Cl_TDS,
:Sodium,
:Total Dissolved Solids,
:Sulphate,
:Calcium
),
),
By(:LOC_NAME)
);
Danke schön!
Ergebnisse teilen und kommunizierenBetreff: Exportieren Sie alle Kontrolldiagramme aus der Spalte „Nach“ auf einer Seite für den Export nach Powerpoint@txnelson Vielen Dank für das Drehbuch! Das ist perfekt. Ich konnte einen Teil so ändern, dass alle 6 Diagramme jeder Probe auf einer PowerPoint-Folie gespeichert werden konnten. Ich schätze Ihre Hilfe sehr und es hat mir Spaß gemacht, beim Durchlesen des Drehbuchs zu lernen.
Danke noch einmal!
Betreff: Exportieren Sie alle Kontrolldiagramme aus der Spalte „Nach“ auf einer Seite für den Export nach PowerpointUnten finden Sie ein Skript, das die PowerPoint-Ausgabe aus Ihrer Beispieldatentabelle erstellt
Names Default To Here( 1 );
dt = Current Data Table();
// Get a list of the LOC_Name's that are in the data
Summarize( dt, bygroup = by( :LOC_Name ) );
// Create a display window to put the graphs into
Nw = New Window( "Control Charts" );
// Loop across all of the LOC_Name's creating the six control
// charts
For( i = 1, i <= N Items( bygroup ), i++,
// Create the Outline Box to hold the 6 charts
ob = Outline Box( "Control Charts for LOC_Name=" || byGroup[i] );
// Create a display box of three objects wide
// With the 6 control charts, it will make it a
// 2 row 3 column output
lub = Lineup Box( N Col( 3 ) );
// Create the 6 charts
ccb = dt << Control Chart Builder( invisible,
Show Capability( 0 ),
Show control panel( 0 ),
Variables(
Subgroup( :SAMPLE_DATE ),
Y(
:Chloride,
:Cl_TDS,
:Sodium,
:Total Dissolved Solids,
:Sulphate,
:Calcium
)
),
show limit summaries( 0 ),
where( :loc_name == Eval( bygroup[i] ) )
);
// Loop across the output pulling out the 6 Picture Boxes
// that contains the desired output for each control chart
// and add them to the Lineup Box
For( k = 1, k <= 6, k++,
lub << append( Report( ccb )[Picture Box( i )] )
);
// Close the no longer needed Control Chart Builder window
Report( ccb ) << close window;
// Add the contents of the Line Up Box to the Outline Box
// but make it a single object so when saved to pptx it will
// be treated as a single graph
ob << append( lub << get picture );
// Add the current outline box to the display window
nw << append( ob );
);
// Save the graphs to PowerPoint
nw << save presentation( "$TEMP/myppt.pptx" );
// Display the PowerPoint output
Open( "$TEMP/myppt.pptx" );
Bitte nehmen Sie sich die Zeit, das Skript zu studieren, damit Sie den von mir gewählten Ansatz verstehen und eventuelle Anpassungen vornehmen können.Der Abschnitt im Scripting Guide zu Anzeigebäumen gibt Ihnen den Hintergrund, wie ich die Ausgabe auseinandergenommen und wieder in ein neues Anzeigeformat eingebaut habe.
Betreff: Exportieren Sie alle Kontrolldiagramme aus der Spalte „Nach“ auf einer Seite für den Export nach PowerpointHallo,
Ich suche nach einer grundsätzlichen Transponierung. Siehe beigefügtes Bild. Denn dann werde ich jeden Satz von 6 Diagrammen als ein JPG exportieren und in Powerpoint einfügen. Sehen Sie, wie LOC_NAME = 00-15A sechs Diagramme hat und der nächste Satz von sechs Diagrammen dann LOC_NAME = 0016A ist.
Betreff: Exportieren Sie alle Kontrolldiagramme aus der Spalte „Nach“ auf einer Seite für den Export nach PowerpointSuchst du danach?
Names Default To Here( 1 );
dt = Current Data Table();
Summarize( dt, bygroup = by( :LOC_Name ) );
Nw = New Window( "Control Charts", lb = Lineup Box( N Col( 2 ) ) );
For( i = 1, i <= N Items( bygroup ), i++,
vlb = V List Box(
dt << Control Chart Builder(
Show Capability( 0 ),
Show control panel( 0 ),
Variables(
Subgroup( :SAMPLE_DATE ),
Y( :Chloride, :Cl_TDS, :Sodium, :Total Dissolved Solids, :Sulphate, :Calcium )
),
show limit summaries( 0 ),
where( :loc_name == Eval( bygroup[i] ) )
)
);
lb << append( vlb );
);Betreff: Exportieren Sie alle Kontrolldiagramme aus der Spalte „Nach“ auf einer Seite für den Export nach PowerpointHallo,
Vielen Dank für die Idee. Ich habe das Skript ein wenig geändert, um ein Aufstellungsfeld einzuschließen. Zuerst habe ich es mit mehreren eindeutigen Namen in der Spalte „von“ versucht. Es wurde jedoch eine andere Stichprobe in die zweite Spalte eingefügt, anstatt die sechs Diagramme für jeden eindeutigen Namen in zwei Dreierspalten aufzuteilen. Siehe angefügtes Foto.
Also habe ich erneut versucht, nur einen eindeutigen Wert zu verwenden, um zu sehen, ob die sechs Diagramme in zwei Spalten aufgeteilt werden würden, und der eine eindeutige Wert wurde in eine Spalte mit sechs Diagrammen exportiert. Es wurde immer noch nicht in zwei Spalten aufgeteilt. Was mache ich falsch?
Hier ist ein Teil des Skripts.
Nw = New Window( "Control Charts",
Lineup Box( N Col( 3 ),
Control Chart Builder(
Show Capability( 0 ),
Variables(
Subgroup( :SAMPLE_DATE ),
Y(
:Chloride,
:Cl_TDS,
:Sodium,
:Total Dissolved Solids,
:Sulphate,
:Calcium
),
),
SendToReport(
Dispatch( {}, "Chloride Limit Summaries", OutlineBox, {Close( 1 )} ),
Dispatch( {}, "Cl_TDS Limit Summaries", OutlineBox, {Close( 1 )} ),
Dispatch( {}, "Sodium Limit Summaries", OutlineBox, {Close( 1 )} ),
Dispatch( {},
"Total Dissolved Solids Limit Summaries",
OutlineBox,
{Close( 1 )}
),
Dispatch( {}, "Sulphate Limit Summaries", OutlineBox, {Close( 1 )} ),
Dispatch( {}, "Calcium Limit Summaries", OutlineBox, {Close( 1 )} )
),by(:LOC_NAME);
);
);
);Ich habe auch ein Beispiel meines Datensatzes beigefügt, falls das hilfreich ist.
Ich danke Ihnen für Ihre Hilfe.
Betreff: Exportieren Sie alle Kontrolldiagramme aus der Spalte „Nach“ auf einer Seite für den Export nach PowerpointHier ist eine der Methoden, die ich verwende, um mehrere Ausgabespalten zu erstellen
Names Default To Here( 1 );
dt = Open( "$SAMPLE_DATA/big class.jmp" );
Nw = New Window( "Control Charts",
Lineup Box( N Col( 2 ),
Control Chart Builder(
Show Capability( 0 ),
Variables( Y( :height, :weight ) ),
by( :age )
)
)
);
Betreff: Exportieren Sie alle Kontrolldiagramme aus der Spalte „Nach“ auf einer Seite für den Export nach PowerpointHallo!
Danke für Ihre Antwort. Ich habe mir das Video angesehen und es hat mir die richtigen Informationen gegeben, um die Kontrolldiagramme in PowerPoint einzufügen und sie automatisch aktualisieren zu lassen. Das ist auf jeden Fall hilfreich. Ich habe jetzt mein Skript erweitert, um jeden Satz meiner Kontrolldiagramme als JPG in einem bestimmten Ordner zu speichern, und ich werde diese, wie Sie sagten, in Powerpoint einfügen (mit einem Link). Mein letztes Puzzleteil besteht jedoch darin, die Diagramme in meinen JPGs drei Diagramme quer und zwei unten anzuordnen. Derzeit exportieren sie 6 nach unten, was auf einer PowerPoint-Folie nicht gut aussieht.Siehe beigefügtes Bild.
Vielen Dank für Ihre Hilfe!
ccb = dt << Control Chart Builder(
Show Capability( 0 ),
Variables(
Subgroup( :SAMPLE_DATE ),
Y(
:Chloride,
:Cl_TDS,
:Sodium,
:Total Dissolved Solids,
:Sulphate,
:Calcium
),
),
SendToReport(
Dispatch( {}, "Chloride Limit Summaries", OutlineBox, {Close( 1 )} ),
Dispatch( {}, "Cl_TDS Limit Summaries", OutlineBox, {Close( 1 )} ),
Dispatch( {}, "Sodium Limit Summaries", OutlineBox, {Close( 1 )} ),
Dispatch( {},
"Total Dissolved Solids Limit Summaries",
OutlineBox,
{Close( 1 )}
),
Dispatch( {}, "Sulphate Limit Summaries", OutlineBox, {Close( 1 )} ),
Dispatch( {}, "Calcium Limit Summaries", OutlineBox, {Close( 1 )} )
),
By(:LOC_NAME)
);
for(c=1, c<=NItems(ccb), c++,
thisrep = Report(ccb[c]);
firstOB = thisrep[OutlineBox(1)];
thistitle = firstOB << getTitle;
firstOB << save picture ("desktop/"||thistitle);
);Betreff: Exportieren Sie alle Kontrolldiagramme aus der Spalte „Nach“ auf einer Seite für den Export nach PowerpointHallo,
Ich habe vor ein paar Monaten eine Mastering JMP-Sitzung aufgezeichnet, in der ich zeige, wie man Berichte automatisch in PowerPoint speichert ( Beherrschen Sie JMP und teilen Sie Ihre Ergebnisse , ab 33:30 Uhr).Dies könnte ein guter Anfang sein.Bitte werfen Sie einen Blick darauf und lassen Sie mich wissen, ob dies Sie in die richtige Richtung weist.
