guardar parte de presentacion pptm en pdf
Publicado por Jose (1 intervención) el 03/01/2020 14:28:38
Tengo una presentacion pptm y necesito guardar como pdf las diapositivas 1 y 2 de la presentacion y no se como, hasta ahora utilizo esta macro para guardar diapositivas como pdf pero solo se guardar todas o solo la primera, esta es la macro:
A ver si alguien me puede ayudar
1
2
3
4
5
6
7
Sub Salvar()
ns = DatePart("ww", Date, vbMonday, vbFirstFourDays)
Dim escritorio As String
escritorio = CreateObject("wscript.shell").SpecialFolders("Desktop") & "\"
ActivePresentation.ExportAsFixedFormat escritorio & "\" & "Diapositivas" & ns & ".pdf", ppFixedFormatTypePDF, ppFixedFormatIntentPrint, ppPrintSlideRange, ppPrintCurrent 'exporta todas
'ActivePresentation.ExportAsFixedFormat escritorio & "CHORREO_SEM" & ns & ".pdf", ppFixedFormatTypePDF, , , , , , , ppPrintCurrent 'exporta la 1ªMsgBox "ARCHIVO CHORREO.PDF CREADO CON EXITO", vbOKOnly, "Información"
A ver si alguien me puede ayudar
Valora esta pregunta
0