Exportação imagem PNG de gráficos

andregazzola · November 21, 2024, 1:13pm

Prezados, bom dia!

estou tentando importar o PNG de um gráfico presente em uma planilha, porém não está funcionando. poderiam me ajudar?

Sub ExportarGraficoParaPNG()
    Dim oDoc As Object
    Dim oPlanilha As Object
    Dim oCharts As Object
    Dim oChart As Object
    Dim oChartDoc As Object
    Dim sCaminhoExportacao As String
    Dim chart_name As String
	Dim oPropriedadesExport(0) As New "com.sun.star.beans.PropertyValue"

    ' Obtém o documento atual (planilha)
    oDoc = ThisComponent
    oPlanilha = oDoc.Sheets.getByName("ANÁLISE")
    oCharts = oPlanilha.Charts

    ' Define o nome do gráfico
    chart_name = oPlanilha.getCellRangeByName("D9").getString()

    ' Verifica se o gráfico já existe
    If oCharts.hasByName(chart_name) Then
        ' Obtém o gráfico recém-criado
        oChart = oCharts.getByName(chart_name)
        oChartDoc = oChart.getEmbeddedObject()
        
        ' Defina o caminho de exportação
        sCaminhoExportacao = "file:///C:/Users/seduc/Desktop/FOTOVOLTAICA - PMV/Relatórios/GraficoExportado.png"

        ' Configura as propriedades de exportação
        oPropriedadesExport(0).Name = "FilterName"
        oPropriedadesExport(0).Value = TRUE

        ' Tente exportar o gráfico como imagem
        oChartDoc.storeToURL(sCaminhoExportacao, oPropriedadesExport())
        MsgBox "Gráfico exportado com sucesso para " & sCaminhoExportacao
    Else
        MsgBox "Gráfico com o nome " & chart_name & " não encontrado."
    End If
End Sub

tentei utilizar alguns códigos que encontrei nessa apostila:

bantoniof · November 22, 2024, 11:40am

Não tenho muita experiência em Basic mas vejo alguns erros no código:

Se você está importando, por que usa o Export?

TRUE não é o nome de nenhum filtro

Isto, retirado da página 373 do PDF vinculado, pode ajudá-lo.

oGP = createUnoService("com.sun.star.graphic.GraphicProvider")
'Establecemos las propiedades
mOpc(0).Name = "URL"
mOpc(0).Value = sRuta
mOpc(1).Name = "MimeType"
mOpc(1).Value = "image/jpeg"
'Guardamos la imagen
oGP.storeGraphic( oSel.Graphic, mOpc )