Supercharge your PowerPoint Productivity with
MS Word MVP Graham Mayor has this explanation The following code will hide the PDFMaker toolbar in PowerPoint or Word and probably in other MS Office apps that support VBA. Sub HidePDFMaker() Dim x as Long For x = 1 to Application.CommandBars.Count ' If any of the toolbars has a name that contains "pdfmaker", no matter how capitalized ... If Instr(Ucase(Application.CommandBars(x).Name, "PDFMAKER") > 0 Then ' It's the PDFMaker command bar, so hide it Application.CommandBars(x).Visible = False End If Next x End Sub One way to make it run automatically in Word is to add this to a module in your Normal.Dot file: Sub AutoExec() Application.OnTime when:=DateAdd("s", 1, Now()), Name:="ZapEm" End Sub Sub ZapEm() Dim x As Long For x = 1 To Application.CommandBars.Count If InStr(UCase(Application.CommandBars(x).Name), "PDFMAKER") > 0 Then Application.CommandBars(x).Visible = False End If Next x End Sub |
Content authoring & site maintenance by |