我有一个单词doc,上面有一些ActiveX按钮。当按下其中一个按钮时,会弹出一个UserForm,并显示相应的PDF,如下所示:
这正是我想要的行为。然而,问题在于,为了使其工作,单词doc的用户也需要将每个PDF保存在他们的机器上。这是其中一个按钮的代码:
Private Sub AC1Button_Click()
DisplayForm.AcroPDF1.LoadFile ("C:\Users\arose\Desktop\Security Control Doc\Sub PDFs\AC1.pdf")
DisplayForm.Show
End Sub
正如您所看到的,路径是硬编码的。我需要能够分发这个单词doc而不需要随之分发一堆PDF,所以有没有办法将PDF文件嵌入到word文档中他们可以通过VBA访问的方式吗?
我发现here在任何办公室文档中嵌入PDF都相当容易。我试过了:
但我无法弄清楚如何在我的VBA代码中访问该PDF对象,以便在UserForm上显示它。
感谢任何见解,谢谢!
答案 0 :(得分:2)
嵌入文件(并显示为图标以阻止他们接管您的文件)
要激活文档中的第一个OLE对象,
ThisDocument.InlineShapes(1).OLEFormat.Activate
是命令。