Como exportar gráficos para gráficos no Excel?
No Excel, às vezes, você pode gerar alguns gráficos a partir dos dados, para que os dados pareçam mais visuais e diretos. Se você quiser salvar ou exportar os gráficos para algum propósito, como você faria?
Exportar um gráfico para gráfico com código VBA
Exporte vários gráficos/imagens/formas para gráficos com o Kutools para Excel
Exportar um gráfico para gráfico com código VBA
O seguinte código VBA pode ajudá-lo a exportar um gráfico selecionado da planilha ativa como uma imagem. E a imagem será salva no mesmo local que a pasta de trabalho que você aplicou. Faça o seguinte:
1. Selecione o gráfico que você deseja exportar.
2. Em seguida, mantenha pressionado o ALT + F11 chaves, e abre o Microsoft Visual Basic para Aplicações janela.
3. Clique inserção > Móduloe cole o código a seguir na janela do módulo.
VBA: Exportar gráfico para gráfico
Option Explicit
Sub ExportChart()
Const sSlash$ = "/"
Const sPicType$ = ".gif"
Dim sChartName$
Dim sPath$
Dim sBook$
Dim objChart As ChartObject
On Error Resume Next
Set objChart = ActiveSheet.ChartObjects(1)
If objChart Is Nothing Then
MsgBox "No charts have been detected on this sheet", 0
Exit Sub
End If
If ActiveChart Is Nothing Then
MsgBox "You must select a single chart for exporting ", 0
Exit Sub
End If
Start:
sChartName = Application.InputBox("Please Specify a name for the exported chart" & vbCr & _
"There is no default name available" & vbCr & _
"The chart will be saved in the same folder as this file", "Chart Export", "")
If sChartName = Empty Then
MsgBox "You have not entered a name for this chart", , "Invalid Entry"
Goto Start
End If
If sChartName = "False" Then
Exit Sub
End If
sBook = ActiveWorkbook.Path
sPath = sBook & sSlash & sChartName & sPicType
ActiveChart.Export Filename:=sPath, FilterName:="GIF"
End Sub
4. Em seguida, pressione o botão F5 para executar este código e digite o nome do gráfico exportado na caixa de prompt, veja a captura de tela:
5. E, em seguida, clique em OK, o gráfico selecionado foi exportado para gif formato e salvos no mesmo local do arquivo original. Veja a imagem:
Com o código VBA acima, você só pode exportar um gráfico por vez; se quiser exportar outros gráficos, selecione outro gráfico primeiro e, em seguida, exporte-o com o código.
Exporte vários gráficos/imagens/formas para gráficos com o Kutools para Excel
Kutools for Excel'S Exportar Gráficos utilitário pode exportar vários gráficos, imagens ou formas ao mesmo tempo no Excel.
Kutools for Excel, com mais de 300 funções úteis, tornam seus trabalhos mais fáceis. |
Depois de instalar Kutools para Excel, faça o seguinte :(Baixe grátis o Kutools para Excel agora!)
1. Clique Kutools Plus > Importação / Exportação > Exportar Gráficos, veja a captura de tela:
2. No Exportar Gráficos caixa de diálogo, todas as gráficos, As fotos e formas foram listados na caixa de lista à esquerda, especifique o tipo que deseja exportar e clique em botão para especificar um diretório para salvar os gráficos exportados, ao mesmo tempo, você pode escolher o formato das imagens do formato de exportação como você precisa, como GIF, JPEG, TIF or PNG.
3. Então clique OK, todos os gráficos, imagens e formas foram exportados para o local especificado com sucesso. Veja as capturas de tela:
; |
Por favor, clique Exportar Gráficos para saber mais sobre este recurso.
Exportar Gráficos
Exportar intervalo para arquivo |
Melhores ferramentas de produtividade de escritório
Aprimore suas habilidades de Excel com o Kutools para Excel e experimente uma eficiência como nunca antes. Kutools para Excel oferece mais de 300 recursos avançados para aumentar a produtividade e economizar tempo. Clique aqui para obter o recurso que você mais precisa...
Office Tab traz interface com guias para o Office e torna seu trabalho muito mais fácil
- Habilite a edição e leitura com guias em Word, Excel, PowerPoint, Publisher, Access, Visio e Project.
- Abra e crie vários documentos em novas guias da mesma janela, em vez de em novas janelas.
- Aumenta sua produtividade em 50% e reduz centenas de cliques do mouse para você todos os dias!