如何构建箱线图并保存到本地然后插入到ppt中嗨，JMPer
我有一个测试数据，如下所示。
我想自动构建箱线图，可以将每个列与夹具进行比较，并且每个列都有一个注释。 （标题格式：夹具比较：Col--备注）。
如何使用 Col_1、Col_2、Col_3、Col_4 自动构建这些箱线图循环。并自动保存箱线图然后插入到ppt中？
非常感谢。
自动化和脚本编写基础数据分析和建模回复：如何构建箱线图并将其保存到本地然后插入到ppt中上传测试数据。
回复：如何构建箱线图并将其保存到本地然后插入到ppt中我没有太多保存 PowerPoint 演示文稿的经验，但此脚本可以满足您的要求，每次都假设相同的列格式。它允许更多或更少的 :Col_n 列，而无需进行任何调整。
<MMM><YYYY> <HH24><MM><SS>" ) ); cols = Filter Each( {val, idx}, dt << 获取列名( "String" ), Contains( val, "Col_" ) ); remarkarray = 关联数组( :Col, :Remark ); For Each( {val, idx}, cols, text = val || "--" || remarkarray[Substitute( val, "_", "" )]; pres = dt << 图形生成器( Size( 534, 450 ) , 显示控制面板( 0 ), 变量( X( :Fixture ), Y( 列( val ) ) ), 元素( 点( X, Y, 图例( 7 ) ), 箱线图( X, Y, 图例( 8 ) ) ), SendToReport( Dispatch( {}, "图表标题", TextEditBox, {Set Text( "夹具比较: " || text )} ) ) ); If( idx == 1, Report( pres ) << 保存演示文稿( "$DOCUMENTS/Fixtures " || thedate || ".pptx" ), Report( pres ) << 保存演示文稿( "$DOCUMENTS/Fixtures " || thedate || ".pptx", Append ) ); (pres < < 获取窗口) << 关闭窗口;<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", "
回复：如何构建箱线图并将其保存到本地然后插入到ppt中嗨，mmarchandTSI
非常感谢。 “关联数组”对我很有用。
图片保存到PPT同样不美观。
我想把图片保存成这样的ppt。是否可以？
回复：如何创建箱线图并将其保存到本地然后插入到 ppt您可以将图片复制到剪贴板，然后通过 PowerShell 脚本将其粘贴到 PPT，就像在Graph Builder Toolbar中所做的那样
回复：如何创建箱线图并将其保存到本地然后插入到 ppt此方法将使用多几行代码来保留原始的 Graph Builder 格式。
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">
回复：如何创建箱线图并将其保存到本地然后插入到 ppt谢谢 hogi。我用的是 MAC，但工具栏对我来说没什么用。
