? Microsoft Excel es una aplicación de hoja de cálculo que se puede utilizar para analizar los datos y crear gráficos. Microsoft PowerPoint se utiliza para crear presentaciones. Saber cómo exportar un gráfico de Excel a PowerPoint usando una macro puede agilizar el proceso de preparación de presentaciones , ya que la macro automatiza la fase de exportación. Instrucciones
1

Inicie Microsoft Excel 2007 y escriba lo siguiente :

columna de tipo "A1 ", " 1 " . En la columna de tipo "B1 ", " 0.5 " .

En la columna tipo "A2 ", " 2 " . En la columna de tipo "B2 ", " 0.2 " .

En la columna tipo "A3 ", " 3 " . En la columna de tipo " B3 ", " 0.7" .

En la columna tipo "A4 ", " 4 " . En la columna de tipo " B4 ", " 0.1 " .

En la columna tipo " A5 ", " 5 " . En el tipo de columna " B5 ", " 0.9" .

Highlight "A1 " a " B5 ", haga clic en el menú "Insertar " y seleccione "Línea " para crear un gráfico de líneas .
2 < p> Seleccione la pestaña " desarrolladores" y haga clic en " Grabar macro ". Haga clic en " A1 " y seleccione " Detener grabación ". Haga clic en "Macros" y seleccione " Macro1 ". Haga clic en " Editar " para abrir Microsoft Visual Basic .

Haga clic en el menú " Herramientas" y seleccione la casilla junto a " 12.0 Biblioteca de objetos de Microsoft PowerPoint. " Seleccione " Aceptar".
3

Escriba lo siguiente en el interior "Sub Macro1 " para declarar las variables :

myPath dévil como secuencia

Ppapp As PowerPoint.Application

ppPresentation As PowerPoint.Presentation

ppSlide As PowerPoint.Slide

ppImage As PowerPoint.Shape
4

Tipo lo siguiente para guardar la nueva tabla que acaba de crear : .
ActiveSheet.ChartObjects

( "Tabla 1 " ) Activar

myPath = "C : \\ myChart.gif "
< p > ActiveChart.Export fichero: = myPath , FilterName : = " GIF"

puede editar " myPath =" C : \\. myChart.gif " " para guardar el gráfico a un camino diferente
< br > 5

Escriba lo siguiente para crear una nueva presentación de PowerPoint y añadir una diapositiva en blanco :

Set Ppapp = New PowerPoint.Application

ppApp.Visible = msoTrue

Establecer ppPresentation = ppApp.Presentations.Add ( msoTrue )

ppPresentation.Slides.Add 1 , ppLayoutBlank
6

Escriba el siguiente para agregar el gráfico de Excel y guardar la presentación : < br >

Set ppSlide = ppPresentation.Slides ( 1 )

ppSlide.Shapes.AddPicture fichero: = myPath , _

LinkToFile : = msoTrue , SaveWithDocument : = msoTrue , _

Left : = 100 , Top : = 100 , Ancho: = 250 , Altura: 250 =

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

ppPresentation.Close < br > ppApp.Quit

Puede editar " ppPresentation.SaveAs " G : \\. myExcelChartPresentation.ppt "" para guardar la presentación en un camino diferente
7

Escriba el después de liberar las variables de la memoria :

ppSlide Set = Nothing

ppPresentation Set = Nothing

Ppapp Set = Nothing

Press "F5 " para ejecutar la macro.