【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
相关推荐
是阿千呀!4 分钟前
(时序论文阅读)TimeMixer: Decomposable Multiscale Mixing for Time Series Forecasting
论文阅读·人工智能·深度学习·自然语言处理·时间序列处理
神奇夜光杯5 分钟前
Python酷库之旅-第三方库Pandas(208)
开发语言·人工智能·python·excel·pandas·标准库及第三方库·学习与成长
李歘歘7 分钟前
万字长文解读机器学习——决策树
人工智能·决策树·机器学习
EterNity_TiMe_12 分钟前
【论文复现】自动化细胞核分割与特征分析
运维·人工智能·python·数据分析·自动化·特征分析
极客代码22 分钟前
【Python TensorFlow】进阶指南(续篇二)
开发语言·人工智能·python·深度学习·tensorflow
池央41 分钟前
丹摩征文活动 | 搭建 CogVideoX-2b详细教程:用短短6秒展现创作魅力
人工智能
九年义务漏网鲨鱼42 分钟前
【人脸伪造检测后门攻击】 Exploring Frequency Adversarial Attacks for Face Forgery Detection
论文阅读·python·算法·aigc
QYR市场调研1 小时前
5G时代的关键元件:射频微波MLCCs市场前景广阔
人工智能
AI小白日记1 小时前
深入探索AutoDL平台:深度学习GPU算力最佳选择
人工智能·深度学习·gpu算力
一尘之中1 小时前
元宇宙及其技术
人工智能