PowerPoint VBA Code

[Muhammad Nasir Mahmood]

Please help me to rectify the error in this code

Sub ExportPDFWithoutTags()
Dim pptPres As Presentation
Dim pdfPath As String

' Set the active presentation
Set pptPres = Application.ActivePresentation

' Define the path to save the PDF
pdfPath = Environ("USERPROFILE") & "\Documents\" & Replace(pptPres.Name, ".pptx", ".pdf")

' Export the presentation as a PDF without tags
pptPres.ExportAsFixedFormat _
Path:=pdfPath, _
FixedFormatType:=2, _
Intent:=1, _
FrameSlides:=0, _
HandoutOrder:=0, _
IncludeDocProperties:=False, _
DocStructureTags:=False, _
BitmapMissingFonts:=True, _
UseISO19005_1:=False

MsgBox "PDF exported without tags to: " & pdfPath, vbInformation
End Sub

 

[Domenic]

Which line of code is causing the error?

And what type of error is it causing?

 

[Muhammad Nasir Mahmood]

Which line of code is causing the error?

And what type of error is it causing?

Hi Domenic,
these lines become red
pptPres.ExportAsFixedFormat _
Path:=pdfPath, _
FixedFormatType:=2, _
Intent:=1, _
FrameSlides:=0, _
HandoutOrder:=0, _
IncludeDocProperties:=False, _
DocStructureTags:=False, _
BitmapMissingFonts:=True, _
UseISO19005_1:=False

I just want to export PPT file to PDF
When we save as PDF Document structure tags for accessibility option is checked, the word "YES" appears in front of TAGGED PDF.
When the option is unchecked, the word "NO" is displayed in front of TAGGED PDF.
I just want to make this option active while exporting the PPT.

Thanks

 

[Domenic]

When I copy your code into a regular code module for a PowerPoint file/presentation, it compiles successfully...

 

[Muhammad Nasir Mahmood]

When I copy your code into a regular code module for a PowerPoint file/presentation, it compiles successfully...

Thanks Domenic, Yes it is working.
Created new PPT file and pasted the same code and it is working fine.

Once again thanks

 

[Domenic]

That's great, glad you have it working now.

Cheers!