Hace un mes aproximadamente subí un post de cómo llevar un rango de celdas de Excel a un documento de Word; en esta ocasión realizaré la misma operación, pero llevaremos nuestro rango de celdas desde Excel hasta un PowerPoint, guardando además el vínculo con los valores (esto es, cualquier modificación en Excel se reflejará en la diapositiva de nuestra presentación en PowerPoint).
En primer lugar deberemos seleccionar una biblioteca de objetos adecuado para nuestro proposito. Después de establecer una referencia a una biblioteca de objetos activando la casilla de verificación situada junto a su nombre, podremos buscar un objeto específico y sus métodos y propiedades en el Examinador de objetos.
Para activar esta referencia deberemos ejecutar el editor de VBA, presionando Alt+F11, y navegando por el menú Herramientas > Referencias seleccionaremos aquellas referencias que sean de utilidad, en nuestro caso Microsoft PowerPoint 11.0 Object Library:
En primer lugar deberemos seleccionar una biblioteca de objetos adecuado para nuestro proposito. Después de establecer una referencia a una biblioteca de objetos activando la casilla de verificación situada junto a su nombre, podremos buscar un objeto específico y sus métodos y propiedades en el Examinador de objetos.
Para activar esta referencia deberemos ejecutar el editor de VBA, presionando Alt+F11, y navegando por el menú Herramientas > Referencias seleccionaremos aquellas referencias que sean de utilidad, en nuestro caso Microsoft PowerPoint 11.0 Object Library:
Nuestro código VBA a incluir en un módulo del Explorador del proyecto dentro del Editor de VBA es:
Sub Tabla_de_Excel_a_Ppoint()
'La macro copia el rango de Excel seleccionado en PowerPoint
'copiar rango selecionado
Selection.Copy
'objeto para acceder al PowerPoint
Dim ObjPowerPoint As New PowerPoint.Application
'objeto para crear la presentación
Dim Presentacion As PowerPoint.Presentation
'objeto diapositiva
Dim diapositiva As PowerPoint.slide
ObjPowerPoint.Visible = True
Set Presentacion = ObjPowerPoint.Presentations.Add
Set diapositiva = Presentacion.Slides.Add(1, ppLayoutBlank)
'Pegado de las celdas Excel como vínculo
diapositiva.Shapes.PasteSpecial(link:=True).Select
'Libera los objetos PowerPoint
Set ObjPowerPoint = Nothing
Set Presentacion = Nothing
Set diapositiva = Nothing
End Sub
'La macro copia el rango de Excel seleccionado en PowerPoint
'copiar rango selecionado
Selection.Copy
'objeto para acceder al PowerPoint
Dim ObjPowerPoint As New PowerPoint.Application
'objeto para crear la presentación
Dim Presentacion As PowerPoint.Presentation
'objeto diapositiva
Dim diapositiva As PowerPoint.slide
ObjPowerPoint.Visible = True
Set Presentacion = ObjPowerPoint.Presentations.Add
Set diapositiva = Presentacion.Slides.Add(1, ppLayoutBlank)
'Pegado de las celdas Excel como vínculo
diapositiva.Shapes.PasteSpecial(link:=True).Select
'Libera los objetos PowerPoint
Set ObjPowerPoint = Nothing
Set Presentacion = Nothing
Set diapositiva = Nothing
End Sub
Entradas
