? Microsoft Excel é um aplicativo de planilha que pode ser usado para analisar os dados e criar gráficos . Microsoft PowerPoint é utilizado para criar apresentações. Sabendo como exportar um gráfico do Excel para o PowerPoint usando uma macro pode agilizar o processo de preparação de apresentações , porque a macro automatiza a fase de exportação. Instruções
1

Inicie o Microsoft Excel 2007 e digite o seguinte :

Na coluna "A1" tipo "1". Na coluna " B1 " tipo " 0.5" .

Na coluna "A2" tipo "2". Na coluna " B2 " tipo " 0.2" .

Na coluna "A3" tipo "3". Na coluna " B3 " tipo " 0.7 " .

Na coluna "A4 " tipo "4". Na coluna " B4 " tipo "0.1" .

Na coluna " A5 " tipo " 5" . Na coluna " B5 " tipo " 0.9" .

Destaque "A1 " para " B5 ", clique no menu "Inserir" e selecione " Line" para criar um gráfico de linhas.
2

Selecione a guia "Desenvolvedor" e clique em " Gravar Macro . " Clique em " A1 " e selecione " Stop Recording ". Clique em " Macros" e selecione " Macro1 ". Clique em "Editar " para abrir o Microsoft Visual Basic.

Clique no menu " Ferramentas " e marque a caixa ao lado de "Microsoft PowerPoint 12,0 Object Library. " Selecione "OK".
3

Digite o seguinte dentro de "Sub Macro1 " para declarar as variáveis ​​:

Dim myPath As String Dim

ppApp Como PowerPoint.Application

Dim ppPresentation Como PowerPoint.Presentation

Dim ppSlide Como PowerPoint.Slide

Dim ppImage Como PowerPoint.Shape
4

Tipo o seguinte para salvar o novo gráfico que você acabou de criar :

ActiveSheet.ChartObjects ( "Tabela 1") Activate

myPath = " C: \\ myChart.gif "
ActiveChart.Export Matrícula: = myPath , FilterName : = " GIF "

Você pode editar " myPath =" C: . \\ myChart.gif "" para salvar o gráfico para um caminho diferente
< br > 5

Digite o seguinte para criar uma nova apresentação do PowerPoint e adicionar um slide em branco :

Set ppApp = Novo PowerPoint.Application

ppApp.Visible = msoTrue

Definir ppPresentation = ppApp.Presentations.Add ( msoTrue )

ppPresentation.Slides.Add 1 , ppLayoutBlank
6

Digite o seguinte para adicionar seu gráfico do Excel e salvar a apresentação : < br > Definir

ppSlide = ppPresentation.Slides (1)

ppSlide.Shapes.AddPicture Matrícula: = myPath , _

LinkToFile : = msoTrue , SaveWithDocument : = msoTrue , _

esquerda: = 100, Top: = 100, Largura: = 250, Altura: = 250

ppPresentation.SaveAs " G: \\ myExcelChartPresentation.ppt "

ppPresentation.Close < br >

ppApp.Quit

Você pode editar " ppPresentation.SaveAs " G: . \\ myExcelChartPresentation.ppt "" para salvar a sua apresentação em um caminho diferente
7

Digite o seguinte para liberar suas variáveis ​​de memória :

Set ppSlide = Nothing

Definir ppPresentation = Nothing

Definir ppApp = Nothing

Pressione " F5 " para executar sua macro.