Exportando Gráfico e dados

[Fugem]

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 extiver. 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

[Fugem]

Bom, demorei mas consegui resolver. Vou deixar aqui o código, para caso seja ú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

Att