【AIGC探索】AI实现PPT生产全流程

2024/11/9 3:26:16 来源：https://blog.csdn.net/qq_35079107/article/details/143603665 浏览: 次关键词：【AIGC探索】AI实现PPT生产全流程

AI实现PPT生产流程

在这里插入图片描述

简单概括流程就是：

选择用百度文库AI生成PPT，使用WPS和islide辅助美化，使用文字大模型生成大纲，使用宏指令快速规范细节。
理由如下：
大多数PPT工具生成大纲会有文字篇幅限制，通过大模型生成大纲可以避免这个问题，生成的结果也更加准确。
试用过几个PPT生成工具，发现百度文库出的PPT在规范度、不同屏幕适配性等方面表现最佳，而且可以自定义PPT模板，灵活性很高。可免费试用性价比较高。
模板美化可以考虑直接去稿定设计或者类似的PPT模板网站下载优质模板使用即可。
快捷访问地址：百度文库AI工具

一键替换字体宏编程

使用Microsoft PowerPoint菜单栏右击开启自定义功能区，勾选开发工具
在这里插入图片描述

参考网址：微软VB官网

1.替换指定字体及字号及粗细：

Sub ChangeFontSizeOfSpecificFont()Dim sld As SlideDim shp As ShapeDim originalFontName As StringDim newFontSize As Single' 设置要修改的字体名称和新的字号originalFontName = "宋体"newFontSize = 60 ' 修改为你想要设置的新字号' 遍历幻灯片中的所有形状For Each sld In ActivePresentation.SlidesFor Each shp In sld.Shapes' 检查形状是否有文本框并且字体是指定字体If shp.HasTextFrame ThenWith shp.TextFrame.TextRange.Font' 检查字体名称并设置新的字号If .Name = originalFontName Then.NameFarEast = "钉钉进步体".Size = newFontSize.Bold = msoTrueEnd IfEnd WithEnd IfNext shpNext sld
End Sub

2.替换全部字体及色彩：

Sub ChangeFontSizeOfSpecificFont()Dim sld As SlideDim shp As ShapeDim originalFontName As StringDim newFontSize As Single' 遍历幻灯片中的所有形状For Each sld In ActivePresentation.SlidesFor Each shp In sld.Shapes' 检查形状是否有文本框并且字体是指定字体If shp.HasTextFrame ThenWith shp.TextFrame.TextRange.Font.NameFarEast = "钉钉进步体".Color.RGB = RGB(0, 0, 0)End WithEnd IfNext shpNext sld
End Sub

也可以使用islide工具一键替换
在这里插入图片描述

3.规范图片大小：

Sub shapes_samesize()d = 28.3333  '单位换算。For Each sld In ActivePresentation.SlidesFor Each s In sld.Shapes            If s.Type = 13 Then   '13代表该形状是图片s.LockAspectRatio = msoFalse  '取消锁定纵横比            s.Width = d * 12  '图片宽度为12厘米s.Height = d * 12 '高度为12厘米s.Top = d * 1   '距左侧边缘1厘米s.Left = d * 2    '距顶部2厘米End IfNextNext
End Sub