Tecnología

Inicio

¿Cómo se crea una macro en XLS para exportar un gráfico a PowerPoint?

¿Cómo se crea una macro en XLS para exportar un gráfico a PowerPoint?


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

Instrucciones

1 Iniciar Microsoft Excel 2007 y escriba lo siguiente:

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

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

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

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

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

Resalte "A1" a "B5", haga clic en el menú "Insertar" y seleccione "Línea" para crear un gráfico de líneas.

2 Seleccione la pestaña "desarrolladores" y haga clic en "Grabar macro." Haga clic en "A1" y seleccionar "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 "Microsoft PowerPoint 12.0 Object Library". Seleccione "OK".

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

Dim como secuencia myPath

Dim ppApp Como PowerPoint.Application

Dim ppPresentation Como PowerPoint.Presentation

Dim ppSlide Como PowerPoint.Slide

Dim ppImage Como PowerPoint.Shape

4 Escribe lo siguiente para guardar la nueva tabla que acaba de crear:

ActiveSheet.ChartObjects ( "Tabla 1"). Activar

myPath = "C: \ myChart.gif"

ActiveChart.Export Nombre del archivo: = myPath, FilterName: = "GIF"

Puede editar "myPath =" C: \ myChart.gif "" para guardar el gráfico a un camino diferente.

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

Establecer ppApp = Nueva PowerPoint.Application

ppApp.Visible = msoTrue

Establecer ppPresentation = ppApp.Presentations.Add (msoTrue)

ppPresentation.Slides.Add 1, ppLayoutBlank

6 Escriba lo siguiente para añadir su gráfico de Excel y guardar la presentación:

Establecer ppSlide = ppPresentation.Slides (1)

ppSlide.Shapes.AddPicture Nombre del archivo: = myPath, _

LinkToFile:=msoTrue, SaveWithDocument:=msoTrue, _

Izquierda: = 100, superior = 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 lo siguiente para liberar las variables de la memoria:

Establecer ppSlide = Nada

Establecer ppPresentation = Nada

Establecer ppApp = Nada

Pulse la tecla "F5" para ejecutar la macro.