如何在用户选择VBNo时为Excel导出的PDF添加DRAFT水印？

没问题，完全可以实现这个需求！我们只需要在用户选择vbNo时，先给目标工作表添加一个临时的"DRAFT"水印，导出PDF后再移除水印——这样既不会修改原工作表的内容，又能让生成的PDF带上清晰的水印标识。

下面是整合了你原有代码的完整实现方案：

Sub ExportSheetToPDFWithDraftWatermark()
    Dim userChoice As VbMsgBoxResult
    Dim strPath As String, strFileName As String
    Dim draftWatermark As Shape
    
    ' 先获取用户的选择（可根据实际需求调整提示文本）
    userChoice = MsgBox("是否生成正式版PDF?", vbYesNo, "PDF导出设置")
    
    ' 如果用户选择vbNo，添加DRAFT水印
    If userChoice = vbNo Then
        ' 在当前工作表添加文本水印
        Set draftWatermark = ActiveSheet.Shapes.AddTextEffect( _
            PresetTextEffect:=msoTextEffect1, _
            Text:="DRAFT", _
            FontName:="Arial", _
            FontSize:=72, _
            FontBold:=msoTrue, _
            FontItalic:=msoFalse, _
            Left:=100, _
            Top:=100)
        
        ' 调整水印样式：灰色半透明、斜向、置于底层
        With draftWatermark
            .Fill.ForeColor.RGB = RGB(192, 192, 192) ' 浅灰色
            .Line.Visible = msoFalse ' 去掉边框
            .Rotation = -45 ' 斜45度旋转
            .Name = "TempDraftWatermark" ' 命名水印，方便后续删除
            .ZOrder msoSendToBack ' 置于内容下方，不遮挡数据
            ' 自动居中到工作表已使用区域
            .Left = (ActiveSheet.UsedRange.Width - .Width) / 2
            .Top = (ActiveSheet.UsedRange.Height - .Height) / 2
        End With
    End If
    
    ' 你的原有PDF导出代码（确保strPath和strFileName已提前赋值）
    strPath = strPath & "\"
    strFileName = strFileName & ".pdf"
    ActiveSheet.ExportAsFixedFormat _
      Type:=xlTypePDF, _
      filename:=strPath & strFileName, _
      IgnorePrintAreas:=False
    
    ' 导出完成后，删除临时水印（防止影响原工作表）
    On Error Resume Next ' 避免水印不存在时报错
    ActiveSheet.Shapes("TempDraftWatermark").Delete
    On Error GoTo 0
End Sub

关键细节说明： #

• 临时水印：给水印设置了唯一名称TempDraftWatermark，导出后会自动删除，不会在原工作表留下痕迹。
• 样式自定义：你可以修改水印的字体（FontName）、大小（FontSize）、颜色（RGB值）、旋转角度（Rotation）来匹配你的需求。
• 错误处理：添加On Error Resume Next是为了防止用户选择vbYes时（未添加水印），执行删除操作报错。

内容的提问来源于stack exchange，提问作者Sean Bailey