0

我正在尝试在我的电子表格中的多个工作表上导出所有图表。我在网上查看了一些示例，想出了一个将我文件中的所有图形提取为 PNG 的代码。但我可能会遗漏一些东西，因为每次我运行这个宏时，都会生成一些未对齐的图像（而且不一样，有时图像是正确的）。这段代码很简单，但我不知道是什么原因造成的。谁能帮我解决这个问题？

Sub ExportGraphs
    oDoc = ThisComponent

    Dim oSheet As Object
    Dim eSheets As Object

    Dim args(1) as new com.sun.star.beans.PropertyValue

    gef = CreateUnoService("com.sun.star.drawing.GraphicExportFilter")

    eSheets = oDoc.getSheets.createEnumeration()

    While eSheets.hasMoreElements
        oSheet = eSheets.nextElement()
        oDrawPage = oSheet.getDrawPage()
        iLimit = oDrawPage.getCount() -1

        For index = 0 to iLimit
            oDraw = oDrawPage.getByIndex(index)

            args(0).Name = "URL"
            args(0).Value = "file:///home/user_folder/Desktop/graphs/graph_" & oSheet.getName & "_" & index+1 & ".png"
            args(1).Name = "MimeType"
            args(1).Value = "image/png"

            gef.setSourceDocument(oDraw)
            gef.filter(args)

        Next
    Wend
End Sub
4

1 回答 1

1

更改：MimeType与MediaType：

args(1).Name = "MimeType"
于 2016-05-13T18:31:30.610 回答