ppt 接入 deepseek

感谢大家对之前Word接入DeepSeek r1，轻松实现智能文本生成与润色一文的关注。许多读者询问是否可以在 PowerPoint (PPT) 中使用类似的功能，答案是肯定的。不过，直接复制之前的代码并不能满足需求，需要做一些调整。此外，由于 WPS 和 PPT 都支持 VBA，因此这些脚本同样适用于这两个平台。

功能简介

DeepSeek 提供了强大的文本处理能力，不仅可以用于文本生成、润色和翻译，还可以结合 VBA 实现更多功能，如文生图等。本文将介绍如何在 PPT 中使用 DeepSeek API 处理选中的文本内容，并将其结果插入到形状中。

代码实现

以下是 VBA 代码示例，它允许你在 PPT 中选择一个包含文本的形状，并通过 DeepSeek API 对该文本进行处理：

如果大家不好复制，可以发送1001到公众号消息栏，获取代码。

Code

Sub DeepSeek()
    Dim selectedText As String
    Dim apiKey As String
    Dim response As Object, re As String
    Dim midString As String
    Dim ans As String
    Dim shp As Shape
    Dim slide As slide
    Dim selectedShape As Shape
    
    ' 检查是否有选中的对象
    If ActiveWindow.Selection.Type = ppSelectionShapes Then
        ' 获取选中的形状
        Set selectedShape = ActiveWindow.Selection.ShapeRange(1)
        
        ' 检查形状是否有文本
        If selectedShape.HasTextFrame Then
            If selectedShape.TextFrame.HasText Then
                selectedText = selectedShape.TextFrame.TextRange.Text
                selectedText = Replace(selectedText, ChrW$(13), "")
                
                apiKey = "sk-bgrklqquzmrfucgvtdedkkvfshsqhwozpjmytjjncodgtzhi"
                URL = "https://api.siliconflow.cn/v1/chat/completions"
                Set response = CreateObject("MSXML2.XMLHTTP")
                response.Open "POST", URL, False
                response.setRequestHeader "Content-Type", "application/json"
                response.setRequestHeader "Authorization", "Bearer " + apiKey
                response.Send "{""model"":""deepseek-ai/DeepSeek-R1-Distill-Qwen-7B"", ""messages"":[{""role"":""user"",""content"":""" & selectedText & """}], ""temperature"":0.7}"
                
                re = response.responseText
                midString = Mid(re, InStr(re, """content"":""") + 11)
                ans = Split(midString, """")(0)
                ans = Replace(ans, "\n", "")
                
                ' 将结果插入到形状的文本中
                selectedShape.TextFrame.TextRange.Text = selectedText & vbNewLine & ans
            Else
                MsgBox "选中的形状没有文本内容。"
            End If
        Else
            MsgBox "选中的形状没有文本框。"
        End If
    Else
        MsgBox "请选择一个形状。"
    End If
End Sub

Ps： 不会有人留言要在 excel 中生成的代码吧~，如果问了，我再水一期。

使用前准备及注意事项

1. 开启开发工具。

2. 启用宏安全设置。

3. 会玩的，替换为自己的 key（硅基流动）和模型名称。

4. 代码中我用的免费的蒸馏模型，反应快些，够用了，大家如果什么都不改也可以直接使用，（君子协议，为了方便更多的人）。

邀请链接

最近硅基流动在做推广活动，用下面的链接注册，就可以获得 2000 万 Tokens（14 元平台配额），如果需要，就用下面的链接注册吧，嘿嘿~ 模型邀请链接： https://cloud.siliconflow.cn/i/p61lgKxB 邀请码：p61lgKxB

开启开发工具

文件-选项-自定义功能区

启用宏安全设置

文件-选项-信任中心-信任中心设置

功能使用方法

和 word 不同，不是复制文字，而是选中含有文字的形状，点击设置的按钮或者快捷键（本文没有详细说怎么给宏设置快捷键），可以在选项卡上，也可以在快捷栏上。

注意，wps 也可以使用vb代码，但是个人用户不支持切换vb模式，在js模式中直接运行文中代码是不行的。

结语

掌握 VBA 与 API 调用技术可以显著提升你的工作效率，无论是 Word 还是 PowerPoint，都可以借助这些工具实现更多自动化操作。如果有关于 Excel 或其他方面的疑问，欢迎留言讨论，我会尽力解答。

BY

纯个人经验，如有帮助，请收藏点赞，如需转载，请注明出处。
微信公众号：环境猫 er
CSDN : 细节处有神明
个人博客： https://maoyu92.github.io/

这么好的博主，不给个关注么~