【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
相关推荐
星域智链14 分钟前
宠物智能用品:当毛孩子遇上 AI,是便利还是过度?
人工智能·科技·学习·宠物
程序员X小鹿26 分钟前
谷歌又出黑科技:支持图文混排的AI创意画布来了!1个想法,3秒出图,免费可用!(附教程)
aigc
taxunjishu31 分钟前
DeviceNet 转 MODBUS TCP罗克韦尔 ControlLogix PLC 与上位机在汽车零部件涂装生产线漆膜厚度精准控制的通讯配置案例
人工智能·区块链·工业物联网·工业自动化·总线协议
说私域40 分钟前
基于多模态AI技术的传统行业智能化升级路径研究——以开源AI大模型、AI智能名片与S2B2C商城小程序为例
人工智能·小程序·开源
万里鹏程转瞬至1 小时前
开源项目分析:wan2.1 VACE 关键设计与实现代码解读
论文阅读·aigc
囚生CY1 小时前
【速写】优化的深度与广度(Adam & Moun)
人工智能·python·算法
墨风如雪1 小时前
告别代码苦海:Manus 1.5 让你的创意以光速落地
aigc
hqyjzsb1 小时前
2025年市场岗位能力重构与跨领域转型路径分析
c语言·人工智能·信息可视化·重构·媒体·改行学it·caie
爱学习的uu1 小时前
CURSOR最新使用指南及使用思路
人工智能·笔记·python·软件工程
叶凡要飞1 小时前
RTX5060Ti安装双系统ubuntu22.04各种踩坑点(黑屏,引导区修复、装驱动、server版本安装)
人工智能·python·yolo·ubuntu·机器学习·操作系统