Домашняя страница Undo Do Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

Напомнить пароль

 

= Мир MS Excel/Как добавить кнопку - в контекстное меню - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: _Boroda_, китин  
Как добавить кнопку - в контекстное меню
yl3d Дата: Суббота, 01.12.2018, 05:37 | Сообщение № 1
Группа: Пользователи
Ранг: Участник
Сообщений: 66
Репутация: 0 ±
Замечаний: 0% ±

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

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

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

Автор - yl3d
Дата добавления - 01.12.2018 в 05:37
Апострофф Дата: Суббота, 01.12.2018, 11:59 | Сообщение № 2
Группа: Проверенные
Ранг: Обитатель
Сообщений: 460
Репутация: 128 ±
Замечаний: 0% ±

Excel 1997
И Вам не хворать.
как добавить кнопку

Как и в 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]
А про
кнопку "Схема документа"

ничего сказать не могу - не нашел такой.
 
Ответить
СообщениеИ Вам не хворать.
как добавить кнопку

Как и в 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]
А про
кнопку "Схема документа"

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

Автор - Апострофф
Дата добавления - 01.12.2018 в 11:59
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
 
Ответить
Сообщение
Цитата Апострофф, 01.12.2018 в 11:59, в сообщении № 2 ()
не нашел такой.

ну дык ViewDocumentMap
[vba]
Код
CommandBars("text").Controls.Add(1, 1714, , , True).FaceId = 1714
[/vba]

Автор - krosav4ig
Дата добавления - 02.12.2018 в 00:25
yl3d Дата: Суббота, 08.12.2018, 16:01 | Сообщение № 4
Группа: Пользователи
Ранг: Участник
Сообщений: 66
Репутация: 0 ±
Замечаний: 0% ±

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

Подскажите - а как удалить из контекстного меню кнопку(кнопки) с названием "Мой пункт" ?
 
Ответить
СообщениеПослушайте.
Я вот случайно дважды выполнил этот макрос и у меня теперь две кнопки "Мой пункт".

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

Автор - yl3d
Дата добавления - 08.12.2018 в 16:01
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
 
Ответить
Сообщение[vba]
Код
Sub Remove_()
    On Error Resume Next
    With CommandBars("Text")
        Do
            .FindControl(, 1).Delete
        Loop Until Err.Number
    End With
End Sub
[/vba]

Автор - krosav4ig
Дата добавления - 08.12.2018 в 17:32
yl3d Дата: Суббота, 08.12.2018, 23:31 | Сообщение № 6
Группа: Пользователи
Ранг: Участник
Сообщений: 66
Репутация: 0 ±
Замечаний: 0% ±

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

Автор - yl3d
Дата добавления - 08.12.2018 в 23:31
  • Страница 1 из 1
  • 1
Поиск:

Яндекс.Метрика Яндекс цитирования
© 2010-2024 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!