使用 COM 自动化时 Excel 迷你图未导出为 PDF

Question

我在以编程方式将包含迷你图的 Excel 工作表导出为 PDF 格式时遇到问题。

当我使用 Excel 2010 的本机 PDF 导出工具手动将 Excel 工作表导出为 PDF 格式时，一切工作正常，但当我使用简单的 COM 自动化执行此操作时，除了包含迷你图的单元格之外，所有内容都导出为 PDF。

奇怪的是，当我向 Excel 工作表添加一些数据条时，数据条附近的迷你图突然被导出，但距离数据条较远的迷你图却没有导出。

我已经在多个不同的机器和操作系统上验证了这些问题。这可能与 StackOverflow 上的以下问题有关。

我正在使用以下非常直接的 VB.NET 代码。我尝试过使用各种设置和变量，但没有运气。

Public Class Form1

    Enum XlFixedFormatType
        xlTypePDF = 0
        xlTypeXPS = 1
    End Enum

    Enum XlUpdateLinks
        xlUpdateLinksUserSetting = 1
        xlUpdateLinksNever = 2
        xlUpdateLinksAlways = 3
    End Enum

    Enum XlFixedFormatQuality
        xlQualityStandard = 0
        xlQualityMinimum = 1
    End Enum

    Private Sub buttonConvert_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles buttonConvert.Click
        Dim pdf As String = Convert("C:\Sparkline.xlsx")
        Process.Start(pdf)
    End Sub

    Public Function Convert(ByVal fileName As String) As String
        Dim outPutFilename As String, printObject As Object = Nothing
        Dim app As Object      '** In reality this is a Microsoft.Office.Interop.Excel.Application
        Dim doc As Object      '** In reality this is a Microsoft.Office.Interop.Excel.Workbook

        app = CreateObject("Excel.Application")

        '** Open the _document
        doc = app.Workbooks.Open(fileName:=fileName, _
                                   UpdateLinks:=XlUpdateLinks.xlUpdateLinksNever, _
                                   ReadOnly:=True, _
                                   AddToMru:=False, _
                                   IgnoreReadOnlyRecommended:=True, _
                                   CorruptLoad:=True, _
                                   Editable:=False)

        '** Set visible sheets depending on selected range
        printObject = app.ActiveWorkbook.ActiveSheet

        '** Write the file under the same name, but with different extension
        outPutFilename = System.IO.Path.ChangeExtension(fileName, "pdf")

        printObject.ExportAsFixedFormat(Type:=XlFixedFormatType.xlTypePDF, _
                                fileName:=outPutFilename, _
                                quality:=XlFixedFormatQuality.xlQualityStandard, _
                                IncludeDocProperties:=False, _
                                IgnorePrintAreas:=False, _
                                OpenAfterPublish:=False)

        doc.Close(False)
        app.Quit()

        '** Return the name of the converted file
        Return outPutFilename

    End Function

End Class

Answer 1

我已与 Microsoft 支持联系，他们承认这是一个错误。产品团队正在考虑将其包含在未来的服务包中。

在此之前，在执行导出之前使应用程序可见即可解决问题。如果您不希望用户看到它，则可以将窗口放置在屏幕之外。