Кнопка «Создать» на ленте Powerpoint 2013, открывающая гиперссылку

Question

Я хотел бы создать кнопку, которая автоматически открывает гиперссылку из Powerpoint.

Достаточно просто создать гиперссылку в Powerpoint («Вставка» -> «Гиперссылка») и затем щелкнуть эту гиперссылку.

Я хочу пропустить весь этот процесс и просто иметь кнопку, которая открывает гиперссылку, а не гиперссылку в моей презентации, на которую нужно нажать.

Answer 1

Вот одно из решений ... единственная проблема с ним заключается в том, что он открывается в Internet Explorer вместо Chrome. Кроме того, было бы здорово адаптировать его для работы с открывающимися PDF-файлами.

XML для кнопки будет выглядеть примерно так:

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

И обратный вызов будет выглядеть так:

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