Exportando Gráfico e dados

[Fugem 0]

Olá,

Alguém saberia me ajudar com este código.

Sub exportar()


Dim gráfico As Chart

Dim arquivo As String


Set gráfico = ActiveChart

'Set gráfico = Sheet7.ChartObjects("Chart 4")'

arquivo = gráfico.Export(CurrentDirectory & "excel_chart_export.jpg", "JPG", misValue)


End Sub

Tenho uma planilha que tem um gráfico e alguns resultados.

O código acima seria para poder exportar o gráfico em forma de imagem na pasta que a planilha estiver. Porém as vezes o código funciona, as vezes não!

Também tentei deixar a seleção do gráfico fixa, para não ter que selecionar o gráfico antes de executar a macro, porém não funcionou muito bem também.

Segundo ponto que não estou tendo êxito, seria copiar algumas células para um arquivo TXT, também na mesma pasta que a planilha estiver. Porém além disso, no txt, ao invés de tabulação entre os valores de uma célula e outra ao lado, precisaria que fosse "#". Ou seja, atualmente eu copio manualmente o trecho e colo em um TXT, depois aplico um localizar e substituir do bloco de notas para substituir todas as tabulações por "#".

Se alguém tiver idéias ficaria muito grato.

Abraços

Fábio

[KhaosDoctor 242]

O que você quer dizer com "As vezes funciona e as vezes não"?

[Fugem 0]

Poisé,

Funcionou algumas vezes, mas depois que fechei tudo e reabri, não estava funcionando mais. Não sei, simplesmente não gerava mais a figura, ou simplesmente não sei onde ela está indo parar. Pode ser isso também.

[KhaosDoctor 242]

Tente fazer uns breakpoints no código para descobrir qual valor a sua variável está assumindo, quais são os casos que funciona e quando ela para de funcionar?

[Fugem 0]

Bom, valeu a dica.
Demorei mas consegui. Segue o código caso possa ser útil a mais alguém.

Sub Export_Grafico_Dados()

Dim gráfico As Chart
Dim Arquivo As String

Dim lsCaminho   As String
Dim TArquivo   As Long
Dim cont_L   As Long


'Exportando o Gráfico'
ActiveSheet.ChartObjects("Chart 4").Activate
Set gráfico = ActiveChart
Arquivo = gráfico.Export(Application.ActiveWorkbook.Path & "\grafico_port.bmp", "BMP", misValue)


'Exportando dados'
lsCaminho = Application.ActiveWorkbook.Path & "\Dados.txt"
TArquivo = FreeFile
Open lsCaminho For Output As #TArquivo
For cont_L = 38 To 43
    Print #TArquivo, Cells(cont_L, 2)
Next cont_L

Close #TArquivo

MsgBox "Exportado"

End Sub

O resultado é um arquivo de imagem bmp do gráfico, e um arquivo txt com os valores de 6 linhas fixas (B38 a B43).

Att