DeepSeek翻译文本框或选中文本

Sub TranslateSelectedToEnglishPPTDeepSeek()
'|||Name:DeepSeek翻译替换PPT|Description:调用DeepSeekAPI翻译PPT中选中文本框或文本为英文并替换原文，支持部分选中文本|Vision:2.2.0|||
    On Error GoTo ErrorHandler

    ' ---------- 1. 检查选中的内容 ----------
    Dim sel As Object
    Set sel = ActiveWindow.Selection

    If sel.Type = ppSelectionNone Then
        MsgBox "请先选中文本框或文本内容！", vbExclamation, "提示"