Как добавить кнопку - в контекстное меню

Старая форма входа

Страница 1 из 1 1
Модератор форума: _Boroda_, китин

yl3d

Дата: Суббота, 01.12.2018, 05:37 | Сообщение № 1

Группа: Пользователи

Ранг: Участник

Сообщений: 66

Репутация: 0 ±

Замечаний: 0% ±

Excel 2013

Здравствуйте.

Скажите - как добавить кнопку "Схема документа" - в контекстное меню Ворда ?
Имеется ввиду то контекстное меню, которое появляется после правого щелчка мышки.

Ответить

Апострофф

Дата: Суббота, 01.12.2018, 11:59 | Сообщение № 2

Группа: Проверенные

Ранг: Обитатель

Сообщений: 458

Репутация: 126 ±

Замечаний: 0% ±

Excel 1997

И Вам не хворать.

Цитата yl3d, 01.12.2018 в 05:37, в сообщении № 1 ()

как добавить кнопку

Как и в Excel
[vba]

Код

Sub Добавление_пункта_в_контекстное_меню()
'   Добавляет элемент меню в контекстное меню ячейки
    Dim Bar As CommandBar
    Dim NewControl As CommandBarButton
    Set Bar = CommandBars("Text")
    'Bar.Reset
    Set NewControl = Bar.Controls.Add _
        (Type:=msoControlButton, ID:=1, _
         Temporary:=True)
    With NewControl
        .Caption = "Мой пункт"
        .OnAction = "Мой_макрос"
        .FaceId = 283
    End With
End Sub

Sub Мой_макрос()
MsgBox "Мой_макрос"
End Sub

[/vba]
А про

Цитата yl3d, 01.12.2018 в 05:37, в сообщении № 1 ()

кнопку "Схема документа"

ничего сказать не могу - не нашел такой.

Ответить

krosav4ig

Дата: Воскресенье, 02.12.2018, 00:25 | Сообщение № 3

Группа: Друзья

Ранг: Старожил

Сообщений: 2347

Репутация: 997 ±

Замечаний: 0% ±

Excel 2007,2010,2013

Цитата Апострофф, 01.12.2018 в 11:59, в сообщении № 2 ()

не нашел такой.

ну дык ViewDocumentMap
[vba]

Код

CommandBars("text").Controls.Add(1, 1714, , , True).FaceId = 1714

[/vba]

email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460

Ответить

yl3d

Дата: Суббота, 08.12.2018, 16:01 | Сообщение № 4

Группа: Пользователи

Ранг: Участник

Сообщений: 66

Репутация: 0 ±

Замечаний: 0% ±

Excel 2013

Послушайте.
Я вот случайно дважды выполнил этот макрос и у меня теперь две кнопки "Мой пункт".

Подскажите - а как удалить из контекстного меню кнопку(кнопки) с названием "Мой пункт" ?

Ответить

krosav4ig

Дата: Суббота, 08.12.2018, 17:32 | Сообщение № 5

Группа: Друзья

Ранг: Старожил

Сообщений: 2347

Репутация: 997 ±

Замечаний: 0% ±

Excel 2007,2010,2013

[vba]

Код

Sub Remove_()
    On Error Resume Next
    With CommandBars("Text")
        Do
            .FindControl(, 1).Delete
        Loop Until Err.Number
    End With
End Sub

[/vba]

email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460

Ответить

yl3d

Дата: Суббота, 08.12.2018, 23:31 | Сообщение № 6

Группа: Пользователи

Ранг: Участник

Сообщений: 66

Репутация: 0 ±

Замечаний: 0% ±

Excel 2013

krosav4ig, теперь все уяснилось.
Спасибо.

Ответить

Как добавить кнопку - в контекстное меню

Страница 1 из 1
1