【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 分钟前
Coco AI 实战(一):Coco Server Linux 平台部署
人工智能
杨过过儿16 分钟前
【学习笔记】4.1 什么是 LLM
人工智能
巴伦是只猫25 分钟前
【机器学习笔记Ⅰ】13 正则化代价函数
人工智能·笔记·机器学习
大千AI助手34 分钟前
DTW模版匹配:弹性对齐的时间序列相似度度量算法
人工智能·算法·机器学习·数据挖掘·模版匹配·dtw模版匹配
AI生存日记1 小时前
百度文心大模型 4.5 系列全面开源 英特尔同步支持端侧部署
人工智能·百度·开源·open ai大模型
LCG元1 小时前
自动驾驶感知模块的多模态数据融合:时序同步与空间对齐的框架解析
人工智能·机器学习·自动驾驶
why技术1 小时前
Stack Overflow,轰然倒下!
前端·人工智能·后端
墨风如雪2 小时前
苹果设备上的“大模型炼丹炉”:mlx-lm-lora,让你的 Mac 变身 AI 工作站!
aigc
超龄超能程序猿2 小时前
(三)PS识别:基于噪声分析PS识别的技术实现
图像处理·人工智能·计算机视觉