Pesquisar na Comunidade
Mostrando resultados para as tags ''currentdirectory''.
Encontrado 1 registro
-
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