Powerpoint 2013功能区中的“创建”按钮可打开超链接

Question

我想创建一个按钮，该按钮会自动从Powerpoint打开超链接。

在Powerpoint中创建一个超链接非常简单（插入->超链接），然后单击该超链接。

我想跳过整个过程，只需要有一个打开超链接的按钮，而不是在演示文稿中有一个需要单击的超链接。

Answer 1

该按钮的XML类似于：

                    <button id="myButton" label="Open Hyperlink" 
                        imageMso="HyperlinkInsert"
                        size="large" 
                        onAction="openHyperlink"
                        />

当然，您将需要修改文件的Ribbon XML。 以上不是完整的功能区，仅是所需按钮的节点。 我还有其他一些关于修改功能区的问答，如果您用谷歌搜索它们，那么这里有一些很好的例子。 大多数适用于Word或Excel，但适用相同的原则。 如果您需要参考，请告诉我，我可以提供一些参考。

回调就像：

Sub openHyperlink(control As IRibbonControl)
    'your code that opens the hyperlink goes in here, something like:
    Dim ie as Object
    Set ie = CreateObject("InternetExplorer.Application")
    ie.Visible = True
    ie.Navigate "http://google.com"

End Sub

要打开PDF而不是浏览器，请更改该过程：

Sub openHyperlink(control As IRibbonControl)

    Dim acroPath As String
    Dim filePath As String

    acroPath = "C:\Program Files (x86)\Adobe\Reader 10.0\Reader\AcroRd32.exe"  'Modify as needed
    filePath = "c:\users\me\file.pdf"  'Modify as needed

    Shell acroPath & " " & filePath, vbNormalFocus

End Sub

Answer 2

您可以使用ShellExecute API在默认应用程序中打开该文档扩展名的任何文档。 以下是一个简化的技巧：

Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" _
                   (ByVal hwnd As Long, ByVal lpszOp As String, _
                    ByVal lpszFile As String, ByVal lpszParams As String, _
                    ByVal LpszDir As String, ByVal FsShowCmd As Long) _
                    As Long

Function ShellEx(sFile As String) As Long
    ShellEx = ShellExecute(&O0, "Open", sFile, "", "C:\", 1)
End Function

Sub Test()
    Debug.Print ShellEx("path to file goes here")
End Sub

此处提供所有选项的更详细的版本： http : //support.microsoft.com/kb/170918