Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel
Страницы: 1
RSS
Создание меню на ленте
 
#1
30.01.2016 13:02:43
Доброго времени.
На просторах данного форума взял код, который создаёт меню. (не помню кто создал)
в 2007 Excel всё работало отлично.
Собственно и в 2010 тоже, единственное появилось неудобство.
Кнопка "Моё меню" создаётся во вкладке "надстройка", что неудобно.
В 2007 она появлялась прям там где "Файл/Главная/....и.т.д"
Помогите пожалуйста, если можно, вернуть кнопку
Всем спасибо
Код
?
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
Sub CreateMenu()
 Dim HelpMenu As CommandBarControl
    Dim NewMenu As CommandBarPopup
    Dim MenuItem As CommandBarControl
    Dim Submenuitem As CommandBarButton
'   Удаление меню, если таковое существует
    Call DeleteMenu
'   Поиск меню Справка
    Set HelpMenu = CommandBars(1).FindControl(ID:=30010)
    If HelpMenu Is Nothing Then
'       Добавление меню в конец строки меню
        Set NewMenu = CommandBars(1).Controls.Add _
          (Type:=msoControlPopup, _
           temporary:=True)
    Else
'      Добавление меню перед меню Help
        Set NewMenu = CommandBars(1).Controls.Add _
          (Type:=msoControlPopup, _
           Before:=HelpMenu.Index, _
           temporary:=True)
    End If
'   Добавление подписи
    NewMenu.Caption = "&Моё меню"
'   Первый элемент меню
    Set MenuItem = NewMenu.Controls.Add _
      (Type:=msoControlButton)
    With MenuItem
        .Caption = "&Поиск данных"
        .FaceId = 173
        .OnAction = "Poisk"
    End With
End Sub
 
 
 
#2
30.01.2016 13:14:39
Игорь, пара моментов:
1. Код следует оформлять соответствующим тегом. Ищите такую кнопку и исправьте своё сообщение.
2. Поменяйте, пожалуйста, свой ник - у нас уже есть старожил с таким ником. Спасибо!
 
 
 
#3
30.01.2016 14:35:00
Цитата
Игорь написал:
В 2007 она появлялась прям там где "Файл/Главная/....и.т.д"
Ничего не путаете? Может в 2003? Именно начиная с 2007 для пользовательских надстроек, создаваемых через добавление CommandBar, выделяется отдельная вкладка Надстройки.
Ознакомьтесь на досуге: Как создать свою надстройку?
Даже самый простой вопрос можно превратить в огромную проблему. Достаточно не уметь формулировать вопросы...
 
 
 
#4
30.01.2016 16:56:16
Цитата
Юрий М написал:
Поменяйте, пожалуйста, свой ник - у нас уже есть старожил с таким ником.
хм... а что, нельзя ник использовать, если таким уже пользуются?
я вот когда ник поставил себе такой, - тут были пользователи уже с таким ником (и сейчас есть больше десятка пользователей с таким же ником Игорь)
т.е. теперь своё имя в качестве ника использовать нельзя? (т.к. по-любому дубликаты будут)
Надстройки для Excel  Парсинг сайтов  Мониторинг цен конкурентов
 
 
 
#5
30.01.2016 17:23:19
Запрета нет.
Но, с другой стороны, неудобно, если в теме встретятся три Игоря :)
 
 
 
#6
30.01.2016 17:37:29
Цитата
vikttur написал:
если в теме встретятся три Игоря
Да ну, прикольно. Хотел бы я на этот диалог посмотреть :)
Даже самый простой вопрос можно превратить в огромную проблему. Достаточно не уметь формулировать вопросы...
 
 
 
#7
30.01.2016 18:00:22
Не три и не совсем тезки, но смотри:)
 
 
 
#8
30.01.2016 21:32:16
Цитата
Не три и не совсем тезки, но смотри
:D Я знал, что так будет. )))
 
 
 
Страницы: 1
Читают тему
Наверх
Loading...