Macro i Powerpoint

Det tror jeg denne kan

Sub SaveAsPDF()
    ActivePresentation.ExportAsFixedFormat ActivePresentation.Path & "\" & ActivePresentation.Name & ".pdf", ppFixedFormatTypePDF, ppFixedFormatIntentPrint
End Sub

Link:
http://www.free-power-point-templates.com/articles/vba-macro-save-a-powerpoint-presentation-to-pdf-programmatically/

Vh
Anedi

Hej Anedi
Den virker til at lave hele powerpointet til en pdf. Men jeg skal kun have 1 slide som pdf.. Det er der mit problem ligger :-)

Den jeg bruger ser sådan ud:

Sub GemSomPDF()
ActivePresentation.Slides(2).Select
ActivePresentation.ExportAsFixedFormat ("C:\Users\DKJUHMET\Desktop\ppt gemt som pdf.pdf"), ppFixedFormatTypePDF, ppFixedFormatIntentPrint
End Sub

Men den gemmer hele filen som pdf og ikke kun slide 2.

Ah I see :-)

Prøv denne:

Sub PDFMe()
Dim lngFirst As Long
Dim lngSecond As Long
Dim strPath As String
Dim ipos As Integer
If ActivePresentation.Path = "" Then
MsgBox "Save me first"
Exit Sub
End If
ipos = InStrRev(ActivePresentation.FullName, ".")
strPath = Left(ActivePresentation.FullName, ipos - 1) & ".pdf"
lngFirst = InputBox("First slide number")
ActivePresentation.Slides.Range(Array(lngFirst)).Select
ActivePresentation.ExportAsFixedFormat Path:=strPath, FixedFormatType:=ppFixedFormatTypePDF, RangeType:=ppPrintSelection
End Sub



Vh
Anedi

Jeg tror ikke helt jeg ved hvor jeg skal sætte ind hvilket dias den skal kopiere..

Prøv at gemme denne et sted på computeren:
http://gupl.dk/714873/

Når du afspiller makroen skulle du gerne få en boks op, der spørger hvilket dias du vil gemme.

PDF'en vil blive gemt samme sted som PP-filen.

Vh
Anedi