Macro VBA Power Point - Excel

18/10/2007 - 20:19 por LZ | Informe spam
Hola a todos,

Hago esta consulta en este foro de Excel en la suposicion de que hay mas
experiencia en este ambito que en Power Point.

Necesito resolver el siguiente problema:

Dada una PPT basada en un template necesito generar una macro VBA en Power
Point que ejecute a su vez macros en workbooks excel para obtener un conjunto
de datos y graficos que finalmente pueblen la PPT.

Es posible generar esa macro VBA en Power Point que redireccione su
ejecucion a Excel, obtenga datos y graficos y los pegue en la presentacion
PPT ?

Soy un neofito en el tema que no paso de generacion de macros VBA a traves
de la grabadora de macros.

Anticipadamente gracias

Leonardo
 

Leer las respuestas

#1 Héctor Miguel
19/10/2007 - 03:07 | Informe spam
hola, !

Dada una PPT basada en un template necesito generar una macro VBA en Power Point
que ejecute a su vez macros en workbooks excel para obtener un conjunto de datos y graficos que finalmente pueblen la PPT.
Es posible generar esa macro VBA en Power Point que redireccione su ejecucion a Excel
obtenga datos y graficos y los pegue en la presentacion PPT ?
Soy un neofito en el tema que no paso de generacion de macros VBA a traves de la grabadora de macros.



puedes usar objetos de automatizacion entre aplicaciones (p.e.)
si excel ya esta abierto... -> GetObject(, "excel.application")
iniciar una nueva instancia > CreateObject("excel.application")

hecho lo anterior, ya puedes trabajar con el modelo de objetos de la aplicacion instanciada/automatizada/...
el siguiente ejemplo es una macro ejecutable desde un modulo de codigo en PPT

-> (de ser necesario) complementa con otras instrucciones dependiendo de "quien" realiza las acciones
(la obtencion del conjunto de datos y graficos que finalmente pueblen la PPT)
macros desde excel ???
macros desde powerpoint ???

si cualquier duda (o informacion adicional)... comentas ?
saludos,
hector.

Sub Preparar_desde_Excel()
With CreateObject("Excel.Application")
.Visible = True
.Workbooks.Open "pases a ppt.xls" ' <= por aqui la ruta y el nombre del archivo .XLS '
.Run "Macro_para_PPT" ' <= pon aqui el nombre de la macro que se ejecuta desde excel '
.ActiveWorkbook.Close False
.Quit
End With
MsgBox "Terminadas las macros desde excel, y ahora que ???"
End Sub

Preguntas similares