none
Como exportar gráficos do excel como arquivos figuras metafile do windows (*.wmf ou *.emf) RRS feed

  • Pergunta

  • Olá! Estou tentando exportar gráficos do excel como arquivos metafile do windows (*.wmf ou *.emf). Entretanto, por enquanto, só consegui exportar como *.jpg ; *.png ... ficando com baixa resolução. Quando tento gerar como *.wmf ou *.emf pelo código abaixo ocorre o erro : "Erro de definição de aplicativo ou de definição de objeto". Alguém conhece algum código que consiga exportar os gráfico como figura wmf ou emf ?


    Sub Exportar_graficos()

    Dim grafico As ChartObject
    Dim arquivo As String


    Dim cto As ChartObject
    Dim cht As Chart

    On Error GoTo erro

    For Each grafico In ActiveSheet.ChartObjects

    arquivo = ThisWorkbook.Path & "\" & "TEMP_Graficos\" & grafico.name & ".emf" 'funciona com "JPG" "PNG"

    Set cht = grafico.Chart

    cht.Export arquivo, "emf" 'funciona com "JPG" "PNG"


    Next grafico
    GoTo fim

    erro:
    Dim a As String

    a = Error
    Range("a1") = a

    If Error = "O método 'Export' do objeto '_Chart' falhou" Then
    MsgBox "Erro: Imagens não gravadas! Criar pasta ""TEMP_Graficos"" dentro da pasta onde está a planilha XWT"
    End If

    fim:
    End Sub
    sexta-feira, 23 de janeiro de 2015 21:16

Todas as Respostas