Guardar libro de PowerPoint como Jpg

6 envíos / 0 nuevos
Último envío
RicardoSS
Imagen de RicardoSS
Offline
última acción: Hace 2 semanas 19 horas
alta: 25/09/2017 - 18:08
Puntos: 180
Guardar libro de PowerPoint como Jpg

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.

 

 

pacomegia
Imagen de pacomegia
Offline
última acción: Hace 23 horas 16 mins
Nivel 1 - 200 puntosNivel 2 - 500 puntosNivel 3 - 1000 puntosNivel 4 - 2000 puntosNivel 5 - 4000 puntosadministrador
alta: 27/12/2006 - 23:26
Puntos: 7570
Export

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

 

Data Tools Suite
datos y tablas con Excel

RicardoSS
Imagen de RicardoSS
Offline
última acción: Hace 2 semanas 19 horas
alta: 25/09/2017 - 18:08
Puntos: 180
Muchas gracias Paco por

Muchas gracias Paco por responder tan pronto, voy a revisar si puedo adecuarlo a mi macro,

 

RicardoSS
Imagen de RicardoSS
Offline
última acción: Hace 2 semanas 19 horas
alta: 25/09/2017 - 18:08
Puntos: 180
Exportar diapositivas a Jpg

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.

 

Dim apppt As Object
Set apppt = CreateObject("powerpoint.Application")
With apppt
 
.Presentations.Add
.Visible = True
 
.Presentations.Open Filename:="F:\USERS\Reportes\Warehoue\Abastecimientos.Pptx"
tt = .Presentations.Count
Do While tt <> 0
rr = Trim(.Presentations(tt).Name)
If rr <> "Abastecimientos.Ppt" Then
 
End If
tt = tt - 1
Loop
 
.Presentations("Abastecimientos").UpdateLinks
.Presentations("Abastecimientos")Save
'.Presentations("Abastecimientos").Close
 
'.Quit
End With
'Set apppt = Nothing
 
End Sub

 

 

Cron
Imagen de Cron
Offline
última acción: Hace 7 horas 7 mins
Nivel 1 - 200 puntosNivel 2 - 500 puntosNivel 3 - 1000 puntosNivel 4 - 2000 puntosNivel 5 - 4000 puntos
alta: 23/06/2010 - 12:30
Puntos: 8840
Te falta un punto antes de

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

RicardoSS
Imagen de RicardoSS
Offline
última acción: Hace 2 semanas 19 horas
alta: 25/09/2017 - 18:08
Puntos: 180
Buen diaya habia tecleado un

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...