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

647
d_a_c321

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

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

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

0
Хорошо, так что вы уже пробовали? Каковы были результаты? http://www.howtogeek.com/142270/create-a-customized-tab-on-the-office-2013-ribbon/, http://office.microsoft.com/en-ca/word-help/can -i-customize-the-ribbon-HA010227754.aspx, http://gregmaxey.mvps.org/word_tip_pages/customize_ribbon_main.html и т. д. Ƭᴇcʜιᴇ007 9 лет назад 1
Вы хотите кнопку ленты, которая идет к одной определенной гиперссылке, или вам нужна кнопка ленты, которая открывает выбранную гиперссылку в презентации? P Fitz 9 лет назад 0
@ Ƭᴇcʜιᴇ007 ... Я опубликовал пример с кодом, который решает эту проблему. Однако он открывает только ссылку в Internet Explorer; было бы намного лучше сделать это в Chrome. Кроме того, я хотел бы иметь решение, которое создает ссылку для открытия файла PDF. d_a_c321 9 лет назад 0

1 ответ на вопрос

1
d_a_c321

Вот одно из решений ... единственная проблема с ним заключается в том, что он открывается в 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

Похожие вопросы