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
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 :
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
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.