Incorrect graph export as PNG using macros

[danmaxis]

Hi there, I am trying to export all charts on multiple sheet within my spreadsheet. I’ve looked some examples online to came up with a code that extracts all graphs within my file as PNGs. But I may be missing something, because every time I run this macro, some images are generated misaligned (and not the same, sometimes images are correct). This code is simple, but I don’t what might be causing it. Could anyone help me solve this?

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

[Regina]

What do you mean by “are generated misaligned”?

[AlexKemp]

There are currently OpenGL/OpenCL bugs that affect images (Q64314). However, you do not bother to mention neither the LO version nor OS, so it’s not possible to know whether that may be a factor or not.