879825_zh-CN

liliconcom

导出到 Powerpoint

我一直在寻找更好的方法，将一系列 JMP 图表导出到 PowerPoint 或 Word。原生导出功能非常乏味，如果有人成功操作过，我希望能够以某种方式进行操作。我可以在 PowerPoint 中录制和修改宏来完成这项工作，但我希望有更好的方法。

自动化和脚本回复：导出至 Powerpoint

我开始使用 python-pptx 进行演示。它功能强大，但文档略显不足。我喜欢创建 PowerPoint 布局，然后将其保存为通用演示文稿，然后使用 JMP 窗口结合用户输入来构建我的 Python 代码。

我的 PowerPoint 演示文稿脚本第一部分的示例：

pycode = Eval Insert(
	"\[from pptx import Presentation
from PIL import Image, ImageEnhance
import io
p = Presentation(r'^template_path^')
slid = p.slides[0]
mom = slid.shapes[1]
slid.shapes.title.text = '^pres^'
mom.text = '^name^'
for x in range(^Char( total_items )^):
	print("""adding placeholder slides....
    """ + str(x + 1) + ' out of ^Char( total_items )^')
	p.slides.add_slide(p.slide_layouts[6])
]\"
);

之后，它会循环遍历我保存的样本检查图像文件夹。您可以创建图表并将其保存为 jpg 文件。以下代码会从条件表中添加信息，从文件夹中仅提取 jpg 文件，并在将图像放入幻灯片之前增强一些较暗的图片。选项几乎无穷无尽。

For Each( {v, i}, sub_folders,
	condition = Left( Right( v, 4 ), 2 );
	pycode ||= Eval Insert(
		"slid = p.slides[^Char( i )^]
slid1 = slid.placeholders[10]
slid2 = slid.placeholders[11]
slid3 = slid.placeholders[12]
slid4 = slid.placeholders[13]
slid5 = slid.placeholders[14]
slid6 = slid.placeholders[15]
slid7 = slid.placeholders[16]
slid8 = slid.placeholders[17]
slid.shapes.title.text = \!"\!"\!"^v || Try( \!":  \!" || cond_array[condition], \!"\!" )^\!"\!"\!"\!N"
	);
	pics = Filter Each( {value, index}, Files In Directory( thefolder || v ),
		And( Ends With( Lowercase( value ), "jpg" ), !Contains( value, "_APA_" ) )
	);
	pycode ||= Eval Insert(
		"slid1.insert_picture(r'^thefolder || v || \!"/\!" || pics[1]^')
slid2.insert_picture(r'^thefolder || v || \!"/\!" || pics[3]^')
img = Image.open(r'^thefolder || v || \!"/\!" || pics[5]^')
enh = ImageEnhance.Brightness(img)
img = enh.enhance(3)
img2 = io.BytesIO()
img.save(img2, 'JPEG')
slid3.insert_picture(img2)
img = Image.open(r'^thefolder || v || \!"/\!" || pics[7]^')
enh = ImageEnhance.Brightness(img)
img = enh.enhance(2)
img2 = io.BytesIO()
img.save(img2, 'JPEG')
slid4.insert_picture(img2)
slid5.insert_picture(r'^thefolder || v || \!"/\!" || pics[2]^')
slid6.insert_picture(r'^thefolder || v || \!"/\!" || pics[4]^')
img = Image.open(r'^thefolder || v || \!"/\!" || pics[6]^')
enh = ImageEnhance.Brightness(img)
img = enh.enhance(3)
img2 = io.BytesIO()
img.save(img2, 'JPEG')
slid7.insert_picture(img2)
img = Image.open(r'^thefolder || v || \!"/\!" || pics[8]^')
enh = ImageEnhance.Brightness(img)
img = enh.enhance(2)
img2 = io.BytesIO()
img.save(img2, 'JPEG')
slid8.insert_picture(img2)
print('^Char( i )^ of ^Char( Length( sub_folders ) )^ complete....')\!N"
	);
);
pycode ||= Eval Insert( "\[p.slides.add_slide(p.slide_layouts[4])
p.save(r'^pptx_savefile^')
]\" );

我使用占位符来简化图像插入，但您可以直接添加图像并指定大小和位置。