Question

我正在使用Excel中的VBA从Excel更新带有图表等的Powerpoint演示文稿。我想要做的是使用VBA代码中的Powerpoint中的PDFMaker加载项将该演示文稿另存为PDF。我想使用加载项的原因是PDF的质量比常规＆＃34;另存为PDF＆＃34;。

更好。

我在Windows 7上使用Office 2010和Adobe Acrobat XI Standard。

我的代码工作正常，直到我到达调用CreatePDFEx方法的阶段。然后我收到错误：

＆＃34;＆＃34;＆＃34; 运行时错误＆＃39; -2147023170＆＃39;

自动化错误远程过程调用失败。＆＃34;＆＃34;＆＃34;

这是我使用的代码的一部分，指定了＆＃34; pdfname＆＃34;在代码的早期：

Dim pmkr As AdobePDFMakerForOffice.PDFMaker
Dim stng As AdobePDFMakerForOffice.ISettings
Dim pdfname As String
Dim a As Object

Set pmkr = Nothing ' locate PDFMaker object
For Each a In pptApp.COMAddIns
    If InStr(UCase(a.Description), "PDFMAKER") > 0 Then
    Set pmkr = a.Object
    Exit For
    End If
Next

If pmkr Is Nothing Then
    MsgBox "Cannot Find PDFMaker add-in", vbOKOnly, ""
    Exit Sub
End If

If Dir(pdfname) <> "" Then Kill pdfname

pmkr.GetCurrentConversionSettings stng
stng.AddTags = True
stng.AddLinks = True
stng.AddBookmarks = True
stng.FitToOnePage = True
stng.ConvertAllPages = True
stng.OutputPDFFileName = pdfname
stng.PromptForPDFFilename = False
stng.ShouldShowProgressDialog = True
stng.ViewPDFFile = False

pmkr.CreatePDFEx stng, 0 ' perform conversion

If Dir(pdfname) = "" Then ' see if conversion failed
    MsgBox "Could not create " & pdfname, vbOKOnly, "Conversion failed"
End If

Set pmkr = Nothing
Set stng = Nothing

End Sub

有谁知道我为什么会收到这个错误以及我能做些什么呢？

如何使用Excel中的VBA将Powerpoint作为PDF使用加载项PDFMaker保存？

0 个答案: