2013-09-27 3 views
0

Я пытаюсь создать простой макрос в PowerPoint 2007, чтобы сохранить активную презентацию в формате pdf. Я попробовал пример на сайте MS здесь:powerpoint 2007 macro error

http://msdn.microsoft.com/en-us/library/office/ff746080.aspx

Public Sub ExportAsFixedFormat_Example() 

    ActivePresentation.ExportAsFixedFormat "C:\Users\username\Documents\test.pdf", ppFixedFormatTypePDF, ppFixedFormatIntentScreen, msoCTrue, ppPrintHandoutHorizontalFirst, ppPrintOutputBuildSlides, msoFalse, , , , False, False, False, False, False 

End Sub 

и я получаю эту ошибку:

run-time error '-2147467259 (80004005)': 
Method ExportAsFixedFormat of object '_Presentation' failed 

Что это значит &, как я могу это исправить? Благодаря!

+0

Возможность сохранения в PDF не был построен в первой версии Office 2007; вам пришлось загрузить его как бесплатную надстройку. Что касается SP1, я думаю, что это было, Save as PDF был встроен. Убедитесь, что у вас есть хотя бы SP1. Кроме того, попробовали ли вы сохранить тот же файл вручную или запустить тот же макрос в очень простом файле? –

ответ

0

Скорее всего, путь для хранения этого файла PDF не существует или разрешено разрешение!

Try:

Public Sub ExportAsFixedFormat_Example() 
    Dim sFDR As String 
    sFDR = Environ("USERPROFILE") & "\Documents\" 
    ActivePresentation.ExportAsFixedFormat _ 
     Path:=sFDR & "test.pdf", _ 
     FixedFormatType:=ppFixedFormatTypePDF, _ 
     Intent:=ppFixedFormatIntentScreen, _ 
     FrameSlides:=msoCTrue, _ 
     HandoutOrder:=ppPrintHandoutHorizontalFirst, _ 
     OutputType:=ppPrintOutputBuildSlides, _ 
     PrintHiddenSlides:=msoFalse 
End Sub 
Смежные вопросы