Ir para conteúdo
Fórum Script Brasil

Fugem

Membros
  • Total de itens

    2
  • Registro em

  • Última visita

Sobre Fugem

Fugem's Achievements

0

Reputação

  1. 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
  2. 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
×
×
  • Criar Novo...