Comment scénariser un copier/coller d'un graphique pour une utilisation personnalisée dans une nouvelle fenêtre ?Je voudrais résumer de nombreux ensembles de données dans des graphiques de contrôle et afficher tous les graphiques correctement sur un seul formulaire (nouvelle fenêtre) en utilisant les fonctions de zone de liste h et de zone de liste v. Par conséquent, certains scripts à copier/coller d'une manière ou d'une autre sont à l'esprit.
En consolidant autant de graphiques, l'espace sur la nouvelle fenêtre commence à être limité. C'est pourquoi je voudrais ne pas inclure la zone de contour supérieure dans l'affichage de chaque graphique qui a toujours le titre par défaut "Carte de contrôle".
Je voudrais cependant dans tous les cas conserver la deuxième case de contour puisqu'elle me propose un titre personnalisé pour chaque carte.
Vous trouverez ci-joint des exemples d'utilisation de "h list box" que j'ai en tête.
S'il est plus facile de copier et coller le contenu du cadre, faites-le moi savoir. Je pourrais alors simplement utiliser des zones de texte au-dessus de chaque carte de contrôle dans ma consolidation. Si cette option est la meilleure, veuillez indiquer comment utiliser au mieux le contenu du cadre de copie et le contenu du cadre de collage.
Le pdf ci-joint peut être plus facile à comprendre car mon objectif est affiché visuellement.
Merci!
Re : Comment scripter un copier/coller d'un graphique pour une utilisation personnalisée dans une nouvelle fenêtre ?Merci aussi pour cette réponse !
Re : Comment scripter un copier/coller d'un graphique pour une utilisation personnalisée dans une nouvelle fenêtre ?Pour ajouter au message de Jim :
- Les boîtes Line Up sont pratiques pour ce genre de choses, et
- Vous pouvez définir la taille de la page pour qu'elle tienne sur une feuille de papier.
Names Default To Here( 1 );
dt = Current Data Table();
cc1 = Control Chart( invisible, Sample Label( :Sample ), Group Size( 1 ), KSigma( 3 ), Chart Col( :Y1, Individual Measurement ) );
cc2 = Control Chart( invisible, Sample Label( :Sample ), Group Size( 1 ), KSigma( 3 ), Chart Col( :Y2, Individual Measurement ) );
cc3 = Control Chart( invisible, Sample Label( :Sample ), Group Size( 1 ), KSigma( 3 ), Chart Col( :Y3, Individual Measurement ) );
cc4 = Control Chart( invisible, Sample Label( :Sample ), Group Size( 1 ), KSigma( 3 ), Chart Col( :Y4, Individual Measurement ) );
win = New Window( "Test", lub = Line Up Box( N Col(2) ) );
lub << append( Report( cc1 )[Outline Box( 2 )] );
lub << append( Report( cc2 )[Outline Box( 2 )] );
lub << append( Report( cc3 )[Outline Box( 2 )] );
lub << append( Report( cc4 )[Outline Box( 2 )] );
lub << append( Report( cc1 )[Outline Box( 2 )] );
win << Set page setup(
margins( 0.5, 0.5, 0.5, 0.5 ),
scale( 1.0 ),
portrait( 0 ),
paper size( "Letter" )
);
fn = "$TEMP/JMP PDF Example.pdf";
win << Save PDF( fn );
Open( fn );
wait( 10 );
Delete File( fn )Re : Comment scripter un copier/coller d'un graphique pour une utilisation personnalisée dans une nouvelle fenêtre ?Voici une façon de faire ce que vous voulez
Names Default To Here( 1 );
dt = Current Data Table();
cc1 = Control Chart( invisible, Sample Label( :Sample ), Group Size( 1 ), KSigma( 3 ), Chart Col( :Y1, Individual Measurement ) );
cc2 = Control Chart( invisible, Sample Label( :Sample ), Group Size( 1 ), KSigma( 3 ), Chart Col( :Y2, Individual Measurement ) );
cc3 = Control Chart( invisible, Sample Label( :Sample ), Group Size( 1 ), KSigma( 3 ), Chart Col( :Y3, Individual Measurement ) );
cc4 = Control Chart( invisible, Sample Label( :Sample ), Group Size( 1 ), KSigma( 3 ), Chart Col( :Y4, Individual Measurement ) );
win = New Window( "Test",
hlb1 = H List Box(
),
hlb2 = H List Box(
)
);
hlb1 << append( Report( cc1 )[Outline Box( 2 )] );
hlb1 << append( Report( cc2 )[Outline Box( 2 )] );
hlb2 << append( Report( cc3 )[Outline Box( 2 )] );
hlb2 << append( Report( cc4 )[Outline Box( 2 )] );
