Imprimir página | Cerrar ventana

Exportar diapositiva a pdf

Impreso de: Foro de Access y VBA
Categoría: Otros de Microsoft: Windows y Office
Nombre del foro: Otros Productos Microsoft
Descripción del foro: PowerPoint, Navision, Visio, FrontPage, InfoPath etc
URL: http://www.mvp-access.com/foro/forum_posts.asp?TID=83146
Fecha de impresión: 19/Diciembre/2018 a las 11:22


Tema: Exportar diapositiva a pdf
Publicado por: josesico
Asunto: Exportar diapositiva a pdf
Fecha de publicación: 20/Octubre/2017 a las 15:21
Tengo un archivo excel desde el que como apoyo abro una presentacion powerpoint por vba, hata ahi todo bien, la presentacion de power point es .pptm habilitada para macros, en esta presentacion tengo puesta la opcion de ejecutar una macro al darle a una imagen de las diapositivas, con esta macro lo que intento es guardar la diapositiva que tengo activa como pdf con este codigo:
 ActivePresentation.ExportAsFixedFormat ActivePresentation.Path & "\" & "Midiapositiva" & ".pdf", ppFixedFormatTypePDF, ppFixedFormatIntentPrint, ppPrintSlideRange, ppPrintCurrent

La ejecuto y me guarda todas las diapositivas de la presentacion, yo quiero que me guarde solo la que estoy viendo que esta activa, llevo buscando como hacerlo mas de una semana, no se mucho de codigo vba y menos aun aplicado a archivos powerpoint que veo que hay opciones diferentes, a ver si alguien me puede hechar una mano.


-------------
josesico



Respuestas:
Publicado por: prga
Fecha de publicación: 20/Octubre/2017 a las 19:07
Hola.
Prueba con algo parecido a:

ActivePresentation.ExportAsFixedFormat ActivePresentation.Path & "\" & "Midiapositiva" & ".pdf", ppFixedFormatTypePDF, , , , , , , ppPrintCurrent

Ya comentas
Un saludo a todos


Publicado por: josesico
Fecha de publicación: 20/Octubre/2017 a las 21:04
Gracias, funciona a la perfección, estuve mirando código y no daba con la forma, ¿me podias explicar si no es muy complicado porque los huecos en blanco de las comas? he leido de propiedades que se podian introducir separados por comas como el tipo de formato y otras cosas pero no entiendo porque hay que dejar esa serie de huecos que supongo seran por propiedades que no se utilizan, ¿acaso tiene una posicion cada una?, ya te digo que no se mucho de vba, con excel aun me defiendo un poco pero no tengo una formacion base en vba


-------------
josesico


Publicado por: prga
Fecha de publicación: 21/Octubre/2017 a las 10:57
Hola.
Explico como procedí.
Me fui a un power que tengo( sin código), entré en el vba, creé un módulo y un procedimiento y pegué dentro el código expuesto por tí. Cursor encima Exportasfixedformat y F1 para la ayuda del power y ví las diferentes posibilidades.
Borré a partir de ppfixedformattypepdf y puse una coma y aparece por pantalla las posibilidades de esa entrada ( gracias al 'intellicense' o como se llame), como no interesa se deja en blanco para que valga la de por defecto. Así sucesivamente hasta llegar a la 'coma' que daba la posibilidad de ppprintcurrent( hay otras muchas). A partir de ahí como 'no interesaba modificar el valor por defecto, se corta la entrada de 'parámetros' y ya está
Como regla general, hay que colocar todas las comas hasta llegar al 'valor' que interese. Mas comas hasta el último valor que nos haga falta. Al final no tiene que haber comas en 'blanco'
Bueno, me ha resultado  mas largo de explicar que de hacer en la realidad.
Espero que ayude a aclarar la duda
Un saludo a todos



Publicado por: josesico
Fecha de publicación: 21/Octubre/2017 a las 12:05
Ok, gracias, ahora tengo otro pequeño problema, como explique la base de todo es un archivo excel que a traves de un userform me abre powerpoint por la diapositiva que manda una casilla del archivo excel, para que funcione el powerpoint tiene que estar en formato de presentacion de diapositivas con macros habilitadas pptm, asi es perfecto porque veo la diapositiva sin barras de herramientas y solo las flechas para poder mover a otra diapositiva, aqui tocando con el raton el una parte me lanza un userform para guardar la diapositiva como pdf o xps, todo con el codigo en el que me habeis ayudado pero tengo un problema, es que hay veces que tengo que pintar algo en la diapositiva antes de guardar y tengo que darle click derecho y elegir modificar diapositiva, aqui ya sale el indice con todas y la barra de herramientas para poder pintar, una vez que pinto ya no funciona el boton para exportar, tengo que volver a vista de diapositivas para que funcione, lo que querria es codigo para ponerle 2 botones en el userform que me da la opcion de guardar como pdf o xps para poder tocando los botones entrar en modo para pintar y despues salir otra vez a vista diapositiva


-------------
josesico


Publicado por: josesico
Fecha de publicación: 22/Octubre/2017 a las 12:38
Esto lo he solucionado yo, utilizando este codigo:
ActiveWindow.ViewType = ppViewNormal

asi puedo editar la diapositiva y despues le doy al boton del userform con este codigo:

ActiveWindow.ViewType = ppViewSlide y vuelvo a vista diapositiva


-------------
josesico


Publicado por: josesico
Fecha de publicación: 23/Octubre/2017 a las 17:19
Pues me rectifico, ese código funciona en archivos pptm pero no logro poner la ventana en modo lectura que es lo que quiero para que funciones los botones accion que tengo, tampoco funcionan
en archivos ppsm, que son presentacion de diapositivas preparados para macros, este tipo de
archivos serian lo mejor porque aqui directamente funcionan los botones de accion que tengo, este es el codigo:
Sub cambiar_de_visualizacion()
 With Application.ActiveWindow

If .ViewType = ppViewNormal Then

.ViewType = ppViewSlide
Else
If .ViewType = ppViewSlide Then
.ViewType = ppViewNormal
End If

End If

End With
End Sub
Asi, que vuelvo a pedir ayuda con algun código que funcione en archivos ppsm


-------------
josesico



Imprimir página | Cerrar ventana