如何用vba在ppt中把字体嵌入文件

zzpsx · 发表于 2024-12-7 13:58

本帖最后由 zzpsx 于 2024-12-7 13:59 编辑

如何用vba在ppt中把字体嵌入文件

perfect131 · 发表于 2024-12-7 15:49

简单先找找idMsos 没有就sendkeys就完事

zzpsx · 发表于 2024-12-9 08:59

请教完整的代码

perfect131 · 发表于 2024-12-10 18:41

zzpsx 发表于 2024-12-9 08:59
请教完整的代码

可以在 ActivePresentation.SaveAs 中选择
EmbedTrueTypeFonts:=True

ActivePresentation.SaveAs(FileName:="...../test.pptx", _
FileFormat:=ppSaveAsOpenXMLPresentation, _
EmbedTrueTypeFonts:=True)

aman1516 · 发表于 2024-12-10 22:52

借贴一问。如何用VBA对PPT的全部图片进行压缩处理：
微信截图_20241210224936.png

morpheus126 · 发表于 2024-12-11 10:55

aman1516 发表于 2024-12-10 22:52
借贴一问。如何用VBA对PPT的全部图片进行压缩处理：

之前问过大神，只能控制菜单。。。

lss001 · 发表于 2024-12-11 16:36

本帖最后由 lss001 于 2024-12-11 20:35 编辑

aman1516 发表于 2024-12-10 22:52
借贴一问。如何用VBA对PPT的全部图片进行压缩处理：

https://www.exceldemy.com/reduce-excel-file-size-with-pictures/

Sub ppt执行图片格式压缩() 'ppt365
'%a仅应用于此图片，%d删除图片的裁剪区域
'打印%p，网页%w，邮件%e，默认%u，...

ActivePresentation.Slides(1).Shapes(1).Select '选择
SendKeys "%e", True '选项：邮件%e
SendKeys "~", True '确定
Application.CommandBars.ExecuteMso "PicturesCompress" '执行
End Sub

aman1516 · 发表于 2024-12-11 19:35

morpheus126 发表于 2024-12-11 10:55
之前问过大神，只能控制菜单。。。

有没贴子链接参考下

aman1516 · 发表于 2024-12-11 19:37

lss001 发表于 2024-12-11 16:36
https://www.exceldemy.com/reduce-excel-file-size-with-pictures/

是对PPT的操作
或许只能象楼上说的，用 SendKeys 操作菜单

perfect131 · 发表于 2024-12-11 19:53

本帖最后由 perfect131 于 2024-12-11 20:18 编辑

aman1516 发表于 2024-12-11 19:37
是对PPT的操作
或许只能象楼上说的，用 SendKeys 操作菜单

参考：3楼
https://club.excelhome.net/forum ... 689998&pid=11478182

CommandBars.ExecuteMso ("PicturesCompress")
再用WScript.Shell sendkeys

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