VBA 在导出PDF的过程不弹出正在发布的运行框

可以通过设置 Application.DisplayAlerts 属性为 False 来实现在导出 PDF 的过程中不弹出正在发布的运行框。具体代码如下：

Sub ExportPDF()
Application.DisplayAlerts = False
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:="C:\example.pdf", Quality:=xlQualityStandard
Application.DisplayAlerts = True
End Sub

其中，ActiveSheet.ExportAsFixedFormat 方法用于导出 PDF 文件，Type 参数指定导出的文件类型为 PDF，Filename 参数指定导出的文件路径和名称，Quality 参数指定导出的质量。设置 Application.DisplayAlerts 属性为 False 可以禁止弹出正在发布的运行框。

相关问题

Word VBA导出为PDF，可选储存位置

以下是一个Word VBA代码示例，可以将当前打开的Word文档导出为PDF，并让用户选择存储位置：

Sub ExportPDF()
    Dim filePath As Variant
    
    ' 获取用户选择的存储位置
    filePath = Application.GetSaveAsFilename(FileFilter:="PDF Files (*.pdf), *.pdf")
    
    ' 如果用户选择了存储位置
    If filePath <> False Then
        ' 导出为PDF
        ActiveDocument.ExportAsFixedFormat OutputFileName:= _
            filePath, ExportFormat:=wdExportFormatPDF, _
            OpenAfterExport:=False, OptimizeFor:=wdExportOptimizeForPrint, _
            Range:=wdExportAllDocument, From:=1, To:=1, Item:=wdExportDocumentContent, _
            IncludeDocProps:=False, KeepIRM:=True, CreateBookmarks:= _
            wdExportCreateNoBookmarks, DocStructureTags:=True, _
            BitmapMissingFonts:=True, UseISO19005_1:=False
    End If
End Sub

该代码会弹出一个对话框，让用户选择存储位置和文件名。如果用户选择了存储位置，则会将当前打开的Word文档导出为PDF并保存到用户指定的位置。