Question

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

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

奇怪的是，当我向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支持人员联系，他们已经承认这是一个错误。产品团队正在考虑将其纳入未来的服务包中。

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

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

1 个答案: