Buen dia
Tengo un libro de power point vinculado a graficos de excel de varios libros que se actualizan con macros.
Puedo actualizar con una macro todos los vinculos del libro de power point, pero necesito ademas que al finalizar la actualizacion de vinculos me guarde cada diapositiva como archivo JPG para poder visualizarlo en tiempo real en una pantalla, hacerlo manualmente no hay problema pero necesito automatizar esta ultima parte,
Si alguien pudiera ayudarme, se lo agradeceria bastante.
Supongo que lo que necesitas es el método Export de la diapositiva
Como quieres generar un pdf de cada diapositiva de la presentación, puedes crear un bucle que las recorra todas
podría ser algo parecido a esto:
Sub GuardaTodocomojpg()
' www.necesitomas.com
' tamaño de la imagen
Const miancho = 1280
Const mialto = 720
Dim miDiapositiva As Slide
Dim rutaarchivo As String
For Each miDiapositiva In ActivePresentation.Slides
rutaarchivo = ActivePresentation.Path & "\" & miDiapositiva.Name & ".jpg"
miDiapositiva.Export rutaarchivo, "jpg", miancho, mialto
Next
End Sub
------
Ya sé Excel, pero necesito más.
Muchas gracias Paco por responder tan pronto, voy a revisar si puedo adecuarlo a mi macro,
Buen dia
Pacomejia
Efectivamente lo que necesito es exportar las diapositivas de powerpoint a jpg.
Esta es la macro que llamo desde excel para abrir el libro de power point y actualizar los vinculos, anteriormente solo necesitaba actualizar vinculos e inmediatamente cerraba powerpoint para seguir trabajando con excel, he desabilitado las ultimas lineas de codigo para dejar habierto el libro de power point previamente guardado esperando exportarlo a jpg.
podrias por favor echarle un vistazo a mi codigo y en la medida de lo posible ayudarme a finalizarlo.
Gracias de antemano.
Te falta un punto antes de "Save"
Simplemente, después de la orden Save, pon el código que te pasó Paco. Debería funcionar.
Un saludo
Buen dia
ya habia tecleado un par de lineas de codigo que me paso Paco y pude finalizarlo sin mas problemas.
Muchas gracias a ambos.
Es la primera vez que consulto en esta pagina y realmente este sitio es de gran utilidad.
un saludo...