Статьи из блога

Создание кнопки-ссылки на сайт в главном меню редактора

Необходимо в главном меню редактора Word поместить дополнительную кнопку, при нажатии которой откроется во внешнем браузере определенная интернет-страница.

 

Предлагаемый код:

Sub menuButtonWeb ()
Dim HyperButton As CommandBarButton
Set HyperButton = CommandBars("Menu Bar").Controls.Add(ID:=1576) 'ID - это номер идентификатора иконки
    HyperButton.HyperlinkType = msoCommandBarButtonHyperlinkOpen
    HyperButton.TooltipText = "http://wordexpert.ru/"
End Sub

Чтобы получить список идентификаторов иконок и их соответствий командам, пунктам меню и панелей, следует выполнить следующий макрос:

Sub viewID()
'Макрос отображения идентификаторов панелей инструментов, команд и пунктов меню
Dim comBar As CommandBar
Dim comBarControl As CommandBarControl
Dim i As Integer
For Each comBar In CommandBars
   For Each comBarControl In comBar.Controls
      With Selection
         .TypeText comBarControl.Caption & " - " & comBarControl.ID & " - " & _
         comBar.Name & vbCrLf
      End With
   Next
Next
End Sub

Рубрика: Макросы
Метки: |
Просмотров: 24275
Подписаться на комментарии по RSS
Версия для печати

[Ссылки на статью]

twitter.com facebook.com vkontakte.ru odnoklassniki.ru mail.ru ya.ru rutvit.ru myspace.com technorati.com digg.com friendfeed.com pikabu.ru blogger.com liveinternet.ru livejournal.ru memori.ru google.com bobrdobr.ru mister-wong.ru yahoo.com yandex.ru del.icio.us

Еще записи по вопросам использования Microsoft Word:

Комментариев: 8

  1. Люда
    04.04.2008 в 13:39 | #1

    как создать кнопку выдающую информацию о характеристиках операционной системы?

  2. 17.06.2008 в 21:49 | #2

    Люда, система содержит массу характеристик. теоретически можно в макросе указать необходимые лишь, а потом выводить на экран эти сведения. Но, боюсь, нет смысла в таком макросе. Хотя, могу ошибаться...

  3. Глеб
    10.03.2009 в 22:40 | #3

    а как создать кнопку-ссылку на сайт в EXCEL 2007?

  4. 11.03.2009 в 06:40 | #4

    а как создать кнопку-ссылку на сайт в EXCEL 2007?

    В смысле на ленте?

  5. Глеб
    11.03.2009 в 10:02 | #5

    просто создать кнопку-гиперссылку в ячейке на сайт. Чтоб на нее нажимать можно было и переходить на определенный сайт.

  6. 11.03.2009 в 10:23 | #6

    Для этого нужно использовать внешнюю команду ShellExecute.

    Добавляете кнопку на лист. При этом у вас появляется окно с заголовком «Назначить макрос объекту». Нажимаете кнопку «Создать» и попадаете в редактор VBA. Туда вставляете такой код:

    Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" _
      (ByVal hwnd As Long, _
      ByVal lpOperation As String, _
      ByVal lpFile As String, _
      ByVal lpParameters As String, _
      ByVal lpDirectory As String, _
      ByVal nShowCmd As Long) As Long
    Sub Кнопка1_Щелчок()
      Call ShellExecute(0, "Open", "http://www.wordexpert.ru", 0, 0, 1)
    End Sub

    Имя сайта поменяете сами. Кроме того, если нужно, то заменить название процедуры.

  7. Глеб
    12.03.2009 в 16:31 | #7

    Большое спасибо!. Одна кнопка получилась(работает)!А как сделать несколько кнопок в одном листе?(что бы кнопки работали независимо друг от друга)

  8. 12.03.2009 в 19:52 | #8

    Глеб, вам лучше обратиться на специализированный форум по Excel. Я-то знаю, как это сделать, но это выходит за рамки блога wordexpert.ru. Сходите сюда например:

    http://programmersforum.ru/forumdisplay.php?f=20

Оставьте комментарий!

(обязательно)

^ Наверх