【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
相关推荐
孤华暗香1 分钟前
吴恩达《提示词工程》(Prompt Engineering for Developers)课程详细笔记
人工智能·笔记·prompt
rommel rain2 分钟前
SpecInfer论文阅读
人工智能·语言模型·transformer
Chef_Chen26 分钟前
从0开始学习机器学习--Day32--推荐系统作业
人工智能·学习·机器学习
薛定谔的猫ovo28 分钟前
基函数、核函数与Kernel trick
人工智能·机器学习
檀越剑指大厂1 小时前
Linux本地部署开源项目OpenHands基于AI的软件开发代理平台及公网访问
linux·人工智能·开源
古月居GYH1 小时前
ROS一键安装脚本
人工智能·机器人·ros
蚂蚁没问题s2 小时前
图像处理 - 色彩空间转换
图像处理·人工智能·算法·机器学习·计算机视觉
forestsea2 小时前
Spring Boot 与 Java 决策树:构建智能分类系统
java·人工智能·spring boot·深度学习·决策树·机器学习·数据挖掘
无脑敲代码,bug漫天飞2 小时前
神经网络的初始化
人工智能·深度学习·神经网络
学习前端的小z2 小时前
【AIGC】如何准确引导ChatGPT,实现精细化GPTs指令生成
人工智能·gpt·chatgpt·aigc