Scribd
Cargar
10 vistas1 página

Automatización de PowerPoint con Excel

El documento describe un subproceso en VBA que transfiere tablas y gráficos de Excel a una presentación de PowerPoint. Define variables para abrir PowerPoint y la plantilla, copia un rango a la tabla en Excel y lo pega en la diapositiva 6, y luego copia otro rango al gráfico en Excel y lo pega también en la diapositiva 6 antes de cerrar PowerPoint.

Cargado por

maribel
Derechos de autor
© All Rights Reserved
Nos tomamos en serio los derechos de los contenidos. Si sospechas que se trata de tu contenido, reclámalo aquí.
Formatos disponibles
Descarga como TXT, PDF, TXT o lee en línea desde Scribd
10 vistas1 página

Automatización de PowerPoint con Excel

El documento describe un subproceso en VBA que transfiere tablas y gráficos de Excel a una presentación de PowerPoint. Define variables para abrir PowerPoint y la plantilla, copia un rango a la tabla en Excel y lo pega en la diapositiva 6, y luego copia otro rango al gráfico en Excel y lo pega también en la diapositiva 6 antes de cerrar PowerPoint.

Cargado por

maribel
Derechos de autor
© All Rights Reserved
Nos tomamos en serio los derechos de los contenidos. Si sospechas que se trata de tu contenido, reclámalo aquí.
Formatos disponibles
Descarga como TXT, PDF, TXT o lee en línea desde Scribd

Private Sub PasarPowerPoint()

'Definici�n de variables
Dim archivoPPT As [Link]
Dim rutaActual As Variant
Dim RutaPlantilla As Variant

'Abrimos el archivo POWER POINT


rutaActual = [Link]
RutaPlantilla = rutaActual & "\REPORTE DE VENTAS [Link]"
Set archivoPPT = CreateObject("[Link]")
With archivoPPT
.Visible = True
.[Link] RutaPlantilla
.[Link]
End With

'COPIO EL RANGO SELECCIONADO


Range("A1:I17").Copy
Range("T2").Select
[Link]
[Link] = "TABLA1"
[Link] = "TABLA1"
[Link]
On Error Resume Next
'Con este codigo se pega la imagen en la diapositiva deseada (i)
[Link](6).[Link]

'COPIO EL RANGO SELECCIONADO


Range("J4:N20").Copy
Range("T2").Select
[Link]
[Link] = "GRAFICO 1"
[Link] = "GRAFICO 1"
[Link]
On Error Resume Next
'Con este codigo se pega la imagen en la diapositiva deseada (i)
[Link](6).[Link]
'Eliminamos las instancias creadas
Set archivoPPT = Nothing
End Sub

También podría gustarte