ppt导出为图片

朱付安 · 发表于 2024-9-17 10:00

把选中的PPT页面导出为图片，放置到指定目录（在导出前，可以先设置横边的尺寸，程序会根据比例自动计算另一边的尺寸的vba代码，谢谢

Enocheasty · 发表于 2024-9-17 12:12

2013版以后的PowerPoint可以将幻灯片导出为PNG图片，菜单 -> 文件 -> 导出 -> 更改文件类型 - > 图片文件。。。。
屏幕截图 2024-09-17 120849.png

朱付安 · 发表于 2024-9-17 15:10

Enocheasty 发表于 2024-9-17 12:12
2013版以后的PowerPoint可以将幻灯片导出为PNG图片，菜单 -> 文件 -> 导出 -> 更改文件类型 - > 图片文件。 ...

谢谢老师，我试试看

lss001 · 发表于 2024-9-18 09:08

本帖最后由 lss001 于 2024-9-18 12:46 编辑

朱付安发表于 2024-9-17 15:10
谢谢老师，我试试看

Sub 导出图片()
Dim p$, w!, k%, sld As Slide, slds
p = "D:\" '指定保存文件位置
w = 300 '指定保存图片宽度
Set slds = ActiveWindow.Selection

k = 0
For Each sld In slds.SlideRange
k = k + 1
sld.Export p & "\" & k & ".png", "png", Val(w)
Next

End Sub

朱付安 · 发表于 2024-9-18 12:24

lss001 发表于 2024-9-18 09:08
Sub 导出图片()
Dim p$, w!, k%, sld As Slide, slds
p = "D:\" '指定保存文件位置

谢谢老师，我测试看看

		自动登录	找回密码
密码			免费注册

[求助] ppt导出为图片