Criar botão na faixa de opções do Powerpoint 2013 que abre um hiperlink

Question

Gostaria de criar um botão que abra automaticamente um hiperlink do Powerpoint.

É bastante fácil criar um hiperlink no PowerPoint (Inserir - > Hiperlink) e, em seguida, clicar nesse hiperlink.

Eu quero pular todo esse processo e ser capaz de ter um botão que abra um hiperlink em vez de ter um hiperlink na minha apresentação que precisa ser clicado.

    

Answer 1

Aqui está uma solução ... o único problema com essa é que ela é aberta no Internet Explorer em vez do Chrome. Além disso, seria ótimo adaptá-lo para lidar com a abertura de PDFs.

O XML do botão seria algo como:

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

E o retorno de chamada seria como:

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