Exportez toutes les cartes de contrôle de la colonne Par sur une seule page pour les exporter vers PowerPointBonjour,
J'ai un script que j'utilise pour créer 6 cartes de contrôle pour 20 puits de surveillance des eaux souterraines distincts en utilisant la partie Par du script. Je voudrais ajouter à la fin du script afin de pouvoir imprimer les 6 cartes de contrôle pour chaque emplacement de surveillance distinct sur une page dans une présentation PowerPoint Résultat dans une présentation PowerPoint de 20 pages, avec 6 graphiques sur chaque page. Je cherche des conseils sur où commencer pour cette tâche? Voici le script que j'utilise pour créer les graphiques :
Control Chart Builder(
Show Capability( 0 ),
Variables(
Subgroup( :SAMPLE_DATE ),
Y(
:Chloride,
:Cl_TDS,
:Sodium,
:Total Dissolved Solids,
:Sulphate,
:Calcium
),
),
By(:LOC_NAME)
);
Merci!
Partage et communication des résultatsRe : Exporter toutes les cartes de contrôle de la colonne Par sur une page pour les exporter vers PowerPoint@txnelson Merci pour le scénario ! C'est parfait. J'ai pu modifier une partie pour permettre aux 6 graphiques de chaque échantillon d'être enregistrés sur une diapositive PowerPoint. J'apprécie vraiment votre aide et j'ai aimé apprendre en lisant le script.
Merci encore!
Re : Exporter toutes les cartes de contrôle de la colonne Par sur une page pour les exporter vers PowerPointVous trouverez ci-dessous un script qui crée la sortie PowerPoint à partir de votre exemple de table de données
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" );
Veuillez prendre le temps d'étudier le script afin de comprendre l'approche que j'ai adoptée, afin que vous puissiez faire les ajustements nécessaires.La section du Guide de script sur les arborescences d'affichage vous expliquera comment j'ai séparé la sortie et l'ai reconstruite dans un nouveau format d'affichage.
Re : Exporter toutes les cartes de contrôle de la colonne Par sur une page pour les exporter vers PowerPointBonjour,
Je cherche à les transposer essentiellement. Voir photo ci-jointe. Parce qu'alors j'exporterai chaque ensemble de 6 graphiques en un seul jpg et l'insérerai dans powerpoint. Voyez comment LOC_NAME = 00-15A a six graphiques, puis le prochain ensemble de six graphiques est LOC_NAME = 0016A.
Re : Exporter toutes les cartes de contrôle de la colonne Par sur une page pour les exporter vers PowerPointEst-ce ce que vous recherchez?
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 );
);Re : Exporter toutes les cartes de contrôle de la colonne Par sur une page pour les exporter vers PowerPointBonjour,
Merci pour l'idée. J'ai un peu modifié le script pour inclure une boîte Lineup. Au début, j'ai essayé avec plusieurs noms uniques dans la colonne 'by'. Cependant, il mettait un échantillon différent dans la deuxième colonne, plutôt que de diviser les 6 graphiques pour chaque nom unique en 2 colonnes de trois. Voir photo ci-jointe.
J'ai donc réessayé en utilisant une seule valeur unique pour voir si cela diviserait les six graphiques en 2 colonnes et exporterait la valeur unique dans une colonne de six graphiques. Il ne s'est toujours pas séparé en 2 colonnes. Qu'est-ce que je fais mal?
Voici une partie du script.
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);
);
);
);J'ai également inclus un exemple de mon ensemble de données si cela aide.
Merci pour votre aide.
Re : Exporter toutes les cartes de contrôle de la colonne Par sur une page pour les exporter vers PowerPointVoici l'une des méthodes que j'utilise pour créer plusieurs colonnes de sortie
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 )
)
)
);
Re : Exporter toutes les cartes de contrôle de la colonne Par sur une page pour les exporter vers PowerPointSalut!
Merci pour votre réponse. J'ai regardé la vidéo et cela m'a donné les bonnes informations pour mettre les cartes de contrôle dans PowerPoint et les mettre à jour automatiquement. C'est certainement utile. J'ai maintenant ajouté à mon script pour enregistrer chaque ensemble de mes cartes de contrôle au format jpg dans un dossier spécifique, et je vais les insérer dans PowerPoint comme vous l'avez dit (avec un lien). Cependant, ma dernière pièce du puzzle consiste à organiser les graphiques dans mes jpgs trois graphiques à travers et deux vers le bas. Actuellement, ils exportent 6 vers le bas, ce qui n'a pas l'air bien sur une diapositive PowerPoint.Voir photo ci-jointe.
Merci pour votre aide!
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);
);Re : Exporter toutes les cartes de contrôle de la colonne Par sur une page pour les exporter vers PowerPointSalut,
J'ai enregistré il y a quelques mois une session Mastering JMP dans laquelle je montre comment enregistrer automatiquement des rapports dans PowerPoint ( Maîtriser JMP Partager vos résultats , à partir de 33h30).Cela pourrait être un bon point de départ.Veuillez jeter un coup d'œil et faites-moi savoir si cela vous indique la bonne direction.
