用宏自动调整格式，如何编写PPT的VBA？

09月22日, 2014 88次

你好！做PPT的原则是一张PPT不要放太多的内容，所以在一张上放的对象应该不会太多~这样的话还是建议手动调整一下，你要设置＂根据占位符自动调整文本＂还得考...

下载PC客户端,上传视频更轻松! 登录使用更多功能 ... 光海微校通 举报 举报此视频 违法违规 暴恐 血腥暴力 ...下载PC客户端,上传视频更轻松! 登录使用更多功能 ... 光海微校通 举报 举报此视频 违法违规 暴恐 血腥暴力 ...你好

用宏自动调整格式，如何编写PPT的VBA？ 第1张

用双重循环，第一部循环所有的slides，第二步找出所有的文本框，设置字体即可

试试下面的代码，来自论坛，重点就是需要遍历：Sub 批量修改图表字体颜色()Dim Myslide As Slide     '声明对象变量为幻灯片Dim Myshape As Shape     '声明对象变量为形状Dim MySeries As Series     '声明对象变量为图表系列For Each Myslide In Application.ActivePresentation.Slides     '在幻灯片集合内循环For Each Myshape In Myslide.Shapes     '在形状集合内循环    If Myshape.HasChart Then     '判断形状是否为图表        Set MySeries = Myshape.Chart.SeriesCollection(1)     '设置变量为图表内的系列1With MySeries.DataLabels  .RGB = RGB(225, 11, 0)  End With    End IfNext MyshapeNext MyslideEnd Sub

用宏自动调整格式，如何编写PPT的VBA？ 第2张

可以修改的，遍历所有的textframe

替换字体可以不用宏，有“替换字体”命令……增大字号和缩小行距，估计用宏也省不了多少…… 本回答被提问者采纳

　　Sub aa()    　　Set s = CreateObject("powerPoint.application")    　　'创建PPT应用程序    　　Set pp = s.Presentations.Add    　　'增加一个空白文档    　　pp.SaveAs ThisWorkbook.Path & "\" & Left(ThisWorkbook.Name, InStr(ThisWorkbook.Name, ".") - 1) & ".ppt"    　　'保存到当前路径    　　pp.Close    　　'关闭文件    　　s.Quit    　　'退出程序　　End Sub在WIN7——64Bit下测试已通过 本回答由提问者推荐

将“宏”的安全性设置为“低”，或者在vb6.0中编写启动ppt的代码，然后另存为.exe格式文件，通过该文件启动则无需选择“启动宏”这一步。