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

AI实现PPT生产流程

简单概括流程就是:

选择用百度文库AI生成PPT,使用WPS和islide辅助美化,使用文字大模型生成大纲,使用宏指令快速规范细节。

理由如下:

大多数PPT工具生成大纲会有文字篇幅限制,通过大模型生成大纲可以避免这个问题,生成的结果也更加准确。

试用过几个PPT生成工具,发现百度文库出的PPT在规范度、不同屏幕适配性等方面表现最佳,而且可以自定义PPT模板,灵活性很高。可免费试用性价比较高。

模板美化可以考虑直接去稿定设计或者类似的PPT模板网站下载优质模板使用即可。

快捷访问地址:百度文库AI工具

一键替换字体 宏编程

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


参考网址:微软VB官网

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

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

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

vbnet 复制代码
Sub ChangeFontSizeOfSpecificFont()
    Dim sld As Slide
    Dim shp As Shape
    Dim originalFontName As String
    Dim newFontSize As Single

    
    ' 遍历幻灯片中的所有形状
    For Each sld In ActivePresentation.Slides
        For Each shp In sld.Shapes
            ' 检查形状是否有文本框并且字体是指定字体
            If shp.HasTextFrame Then
                With shp.TextFrame.TextRange.Font
                        .NameFarEast = "钉钉进步体"
                        .Color.RGB = RGB(0, 0, 0)
                End With
            End If
        Next shp
    Next sld
End Sub

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

3.规范图片大小:

swift 复制代码
Sub shapes_samesize()
    d = 28.3333  '单位换算。
    For Each sld In ActivePresentation.Slides
        For 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 If
        Next
    Next
End Sub
相关推荐
杨小扩5 小时前
第4章:实战项目一 打造你的第一个AI知识库问答机器人 (RAG)
人工智能·机器人
whaosoft-1435 小时前
51c~目标检测~合集4
人工智能
雪兽软件5 小时前
2025 年网络安全与人工智能发展趋势
人工智能·安全·web安全
元宇宙时间6 小时前
全球发展币GDEV:从中国出发,走向全球的数字发展合作蓝图
大数据·人工智能·去中心化·区块链
小黄人20256 小时前
自动驾驶安全技术的演进与NVIDIA的创新实践
人工智能·安全·自动驾驶
CS创新实验室7 小时前
筑牢 AIGC 安全防线:警惕提示词注入攻击
安全·大模型·aigc·提示词·提示词注入
ZStack开发者社区7 小时前
首批 | 云轴科技ZStack加入施耐德电气技术本地化创新生态
人工智能·科技·云计算
X Y O8 小时前
神经网络初步学习3——数据与损失
人工智能·神经网络·学习
唯创知音8 小时前
玩具语音方案选型决策OTP vs Flash 的成本功耗与灵活性
人工智能·语音识别
Jamence8 小时前
多模态大语言模型arxiv论文略读(151)
论文阅读·人工智能·语言模型·自然语言处理·论文笔记