729128_fr-FR

liliconcom

Comment créer un diagramme en boîte à moustaches et l'enregistrer en local, puis l'insérer dans ppt

Salut JMPer

J'ai eu une donnée de test comme ci-dessous.

Je souhaite créer automatiquement un diagramme en boîte à moustaches qui peut comparer chaque col avec le luminaire, et chaque col avait une remarque. (Le format du titre : Comparaison des appareils：Col--Remarque).

Comment créer automatiquement ces boucles de graphiques en boîte à moustaches avec Col_1、Col_2、Col_3、Col_4. Et enregistrer automatiquement le graphique en boîte à moustaches, puis l'insérer dans ppt ?

Merci beaucoup.

Automatisation et scriptsAnalyse et modélisation des données de baseRe : Comment créer un diagramme en boîte à moustaches et l'enregistrer en local puis l'insérer dans ppt

Téléchargez les données de test.

Re : Comment créer un diagramme en boîte à moustaches et l'enregistrer en local puis l'insérer dans ppt

Je n'ai pas beaucoup d'expérience en matière d'enregistrement de présentations PowerPoint, mais ce script fait ce que vous avez demandé, en supposant à chaque fois le même format de colonne. Il permet d'avoir plus ou moins de colonnes :Col_n sans avoir besoin de faire d'ajustements.

<MMM><YYYY> <HH24><MM><SS>" ) ); cols = Filtrer chaque ( {val, idx}, dt << Obtenir les noms de colonnes ( "String" ), Contains ( val, "Col_" ) ); remarquablerray = Tableau associatif ( :Col, :Remark ); Pour Each( {val, idx}, cols, text = val || "--" || remarquablerray[Substitute( val, "_", "" )]; pres = dt << Graph Builder( Size( 534, 450 ) , Afficher le panneau de configuration ( 0 ), Variables ( X ( :Fixture ), Y ( Colonne ( val ) ) ), Éléments ( Points ( X, Y, Légende ( 7 ) ), Box Plot ( X, Y, Légende ( 8 ) ) ), SendToReport( Dispatch( {}, "titre du graphique", TextEditBox, {Set Text( "Comparaison de luminaires&nbsp;: " || text )} ) ) ); If( idx == 1, Report( pres ) << Enregistrer la présentation ("$DOCUMENTS/Fixtures " || la date || ".pptx" ), Rapport( prés ) << Enregistrer la présentation( "$DOCUMENTS/Fixtures " || la date || ".pptx", Append ) ); (pres < < Obtenir la fenêtre) << Fermer la fenêtre&nbsp;;<BR /> );</SS></MM></HH24></YYYY></MMM>Names Default To Here( 1 );
dt = Open(
	"$DOWNLOADS/jmp test data.xlsx",
	Worksheets( "Sheet1" ),
	Use for all sheets( 1 ),
	Concatenate Worksheets( 0 ),
	Create Concatenation Column( 0 ),
	Worksheet Settings(
		1,
		Has Column Headers( 1 ),
		Number of Rows in Headers( 1 ),
		Headers Start on Row( 1 ),
		Data Starts on Row( 2 ),
		Data Starts on Column( 1 ),
		Data Ends on Row( 0 ),
		Data Ends on Column( 0 ),
		Replicated Spanned Rows( 1 ),
		Replicated Spanned Headers( 0 ),
		Suppress Hidden Rows( 1 ),
		Suppress Hidden Columns( 1 ),
		Suppress Empty Columns( 1 ),
		Treat as Hierarchy( 0 ),
		Multiple Series Stack( 0 ),
		Import Cell Colors( 0 ),
		Limit Column Detect( 0 ),
		Column Separator String( "-" )
	)
);
thedate = Uppercase( Format( Today(), "Format Pattern", "

Re : Comment créer un diagramme en boîte à moustaches et l'enregistrer en local puis l'insérer dans ppt

Salut, mmarchandTSI

Merci beaucoup. "Associative Array" m'est utile.

L'image enregistrée au format PPT n'est pas belle.

Je veux que l'image soit enregistrée au format ppt comme ceci. Est-il possible?

Re : Comment créer un diagramme en boîte à moustaches et l'enregistrer en local puis l'insérer dans ppt

Vous pouvez copier les images dans le presse-papiers et les coller dans PPT via un script PowerShell, comme cela se fait dans la barre d'outils Graph Builder.

Ré: Comment créer un graphique en boîte à moustaches et l'enregistrer en local, puis l'insérer dans un ppt

Cette méthode conservera le format original de Graph Builder en utilisant quelques lignes de code supplémentaires.

 Names Default To Here( 1 );
dt = Open(
	"$DOWNLOADS/jmp test data.xlsx",
	Worksheets( "Sheet1" ),
	Use for all sheets( 1 ),
	Concatenate Worksheets( 0 ),
	Create Concatenation Column( 0 ),
	Worksheet Settings(
		1,
		Has Column Headers( 1 ),
		Number of Rows in Headers( 1 ),
		Headers Start on Row( 1 ),
		Data Starts on Row( 2 ),
		Data Starts on Column( 1 ),
		Data Ends on Row( 0 ),
		Data Ends on Column( 0 ),
		Replicated Spanned Rows( 1 ),
		Replicated Spanned Headers( 0 ),
		Suppress Hidden Rows( 1 ),
		Suppress Hidden Columns( 1 ),
		Suppress Empty Columns( 1 ),
		Treat as Hierarchy( 0 ),
		Multiple Series Stack( 0 ),
		Import Cell Colors( 0 ),
		Limit Column Detect( 0 ),
		Column Separator String( "-" )
	)
);
thedate = Uppercase( Format( Today(), "Format Pattern", "<DL><DD><MMM><YYYY> <HH24><MM><SS>" ) );
cols = Filter Each( {val, idx}, dt << Get Column Names( "String" ), Contains( val, "Col_" ) );
remarkarray = Associative Array( :Col, :Remark );
For Each( {val, idx}, cols,
	text = val || "--" || remarkarray[Substitute( val, "_", "" )];
	pres = dt << Graph Builder(
		Size( 534, 450 ),
		Show Control Panel( 0 ),
		Variables( X( :Fixture ), Y( Column( val ) ) ),
		Elements( Points( X, Y, Legend( 7 ) ), Box Plot( X, Y, Legend( 8 ) ) ),
		SendToReport( Dispatch( {}, "graph title", TextEditBox, {Set Text( "Fixture Comparison: " || text )} ) )
	);
	Report(pres)<<SAVE picture=""></SAVE></SS></MM></HH24></YYYY></MMM></DD><P><CODE class=" language-jsl"> 

Ré: Comment créer un graphique en boîte à moustaches et l'enregistrer en local, puis l'insérer dans un ppt

Merci Hogi. J'ai utilisé MAC, cela rend la barre d'outils inefficace pour moi.