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

AI实现PPT生产流程

简单概括流程就是：

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

一键替换字体 宏编程

使用Microsoft PowerPoint菜单栏右击开启自定义功能区，勾选开发工具



参考网址：微软VB官网

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

Sub ChangeFontSizeOfSpecificFont()Dim sld As Slide
    Dim shp As Shape
    Dim originalFontName AsStringDim newFontSize AsSingle' 设置要修改的字体名称和新的字号
    originalFontName = "宋体"
    newFontSize =60' 修改为你想要设置的新字号' 遍历幻灯片中的所有形状For Each sld In ActivePresentation.Slides
        For Each shp In sld.Shapes
            ' 检查形状是否有文本框并且字体是指定字体If shp.HasTextFrame ThenWith shp.TextFrame.TextRange.Font
                    ' 检查字体名称并设置新的字号If .Name= originalFontName Then
                        .NameFarEast = "钉钉进步体"
                        .Size= newFontSize
                        .Bold = msoTrue
                    EndIfEndWithEndIfNext shp
    Next sld
EndSub

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

Sub ChangeFontSizeOfSpecificFont()Dim sld As Slide
    Dim shp As Shape
    Dim originalFontName AsStringDim newFontSize AsSingle' 遍历幻灯片中的所有形状For Each sld In ActivePresentation.Slides
        For Each shp In sld.Shapes
            ' 检查形状是否有文本框并且字体是指定字体If shp.HasTextFrame ThenWith shp.TextFrame.TextRange.Font
                        .NameFarEast = "钉钉进步体"
                        .Color.RGB = RGB(0,0,0)EndWithEndIfNext shp
    Next sld
EndSub

也可以使用islide工具一键替换

3.规范图片大小：

Subshapes_samesize()
    d =28.3333  '单位换算。
    ForEach sld InActivePresentation.SlidesForEach s In sld.ShapesIf s.Type=13Then   '13代表该形状是图片
                s.LockAspectRatio= msoFalse  '取消锁定纵横比            
                s.Width= d *12  '图片宽度为12厘米
                s.Height= d *12 '高度为12厘米
                s.Top= d *1   '距左侧边缘1厘米
                s.Left= d *2    '距顶部2厘米
            EndIfNextNextEndSub