ReSQL.ru
     
powered by simpleCommunicator - 2.0.52     © 2025 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Добавить икону на панель инструментов
11 сообщений из 11, страница 1 из 1
Добавить икону на панель инструментов
    #38802481
Фотография Stepler
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Stepler
Участник
привет всем...
что-то не могу разобраться как в 2007 Экселе кодом кинуть на панель инструментов нужную икону...
Пробую как в 2003-ем, но нифига не идет...
типа:
Код: vbnet
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
ActiveWorkbook.RefreshAll
     Dim num As Integer
         num = Application.CommandBars(3).Controls.Count
       num = num + 1
           Dim a As CommandBarControl
       Set a = Application.CommandBars(3).Controls.Add(Type:=msoControlPopup, Before:=num)
        a.Caption = menuname
                a.TooltipText = "Тока для ентой книги"
                              With a.Controls
             Dim CntProp As CommandBarControl
             Set CntProp = .Add(msoControlButton)
                         With CntProp
                  .Caption = menuname1
                  .TooltipText = "Основная"
                                    .OnAction = "Откр_ОКНО"

, ну и т.д.
Подскажите, плз. Спасибо

Stepler (щёлк-щёлк!!)

Код: plaintext
 P.S.Чтобы наступила смерть - необходима жизненная сила !!!
...
Рейтинг: 0 / 0
11.11.2014, 17:25
| Ответить | Цитировать | Написать  
Добавить икону на панель инструментов
    #38802491
Фотография Konst_One
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Konst_One
Участник
http://msdn.microsoft.com/en-us/library/aa433246(v=office.12).aspx
...
Рейтинг: 0 / 0
11.11.2014, 17:28
| Ответить | Цитировать | Написать  
Добавить икону на панель инструментов
    #38802579
Фотография The_Prist
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
The_Prist
Участник
Как создать свою надстройку?
...
Рейтинг: 0 / 0
11.11.2014, 18:10
| Ответить | Цитировать | Написать  
Добавить икону на панель инструментов
    #38803117
Фотография Stepler
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Stepler
Участник
Спасибо за помощь....
Дело в том, что после срабатывания кода, я вижу, что добавились иконки в определенный раздел панели инструментов, но их визуально нет - может как-то "раздвинуть" раздел, но как? Как в 2007 раздвинуть раздел панели инструментов? В 2003-м было: нажал правую клавишу мыши, сделал панель в режим редактирования... и вставляй себе и/или удаляй. А в 2007 -только редактирование панели быстрого доступа....
...
Рейтинг: 0 / 0
12.11.2014, 10:50
| Ответить | Цитировать | Написать  
Добавить икону на панель инструментов
    #38803417
Фотография The_Prist
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
The_Prist
Участник
Stepler,

почитать по ссылкам не пробовали? Начиная с 2007 настройка более гибкая, но через правку XML схемы.
...
Рейтинг: 0 / 0
12.11.2014, 13:27
| Ответить | Цитировать | Написать  
Добавить икону на панель инструментов
    #38804430
Фотография Stepler
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Stepler
Участник
The_Prist,

Читал..., Ведь сказал за помощь "Спасибо".
Я использовал Ribbon.....
Я о другом..... теперь не знаю как эти "невидимые иконки" Убрать из панели инструментов прогой.... Что бы больше не наступать на "грабли". Ищу свои, но не вижу. Сомнения - их нет в закладке "Поиск", нет и дубликатов, но обращаясь по
Код: vbnet
1.
num = Application.CommandBars(3).Controls.Count

я вижу, что количество иконок увеличилось на кол-во попыток их туда всунуть...
Теперь решаю проблему как их убрать...
...
Рейтинг: 0 / 0
13.11.2014, 10:32
| Ответить | Цитировать | Написать  
Добавить икону на панель инструментов
    #38805225
Фотография The_Prist
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
The_Prist
Участник
Stepler,

Код: vbnet
1.
2.
3.
Application.CommandBars(3).Controls(20).Delete
'либо указав Caption кнопки
Application.CommandBars(3).Controls("Моя кнопка").Delete


Так это обычно делалось.
...
Рейтинг: 0 / 0
13.11.2014, 16:57
| Ответить | Цитировать | Написать  
Добавить икону на панель инструментов
    #38805832
Фотография Stepler
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Stepler
Участник
The_Prist, ты прав - я так и пробовал, но счетчик остается....т.е. вместо 9-ти иконок = 13 штук. Код срабатывает на удаление, а результата нет.
Сделать :
Код: vbnet
1.
.Controls(3).Delete


боюсь снести полностью раздел....
...
Рейтинг: 0 / 0
14.11.2014, 10:18
| Ответить | Цитировать | Написать  
Добавить икону на панель инструментов
    #38805847
Фотография The_Prist
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
The_Prist
Участник
Stepler,

А Application.CommandBars(3).Reset не помогает?
...
Рейтинг: 0 / 0
14.11.2014, 10:25
| Ответить | Цитировать | Написать  
Добавить икону на панель инструментов
    #38805872
Фотография Stepler
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Stepler
Участник
Проблем решил - переустановил Эксель....
Всем спасибо..
...
Рейтинг: 0 / 0
14.11.2014, 10:40
| Ответить | Цитировать | Написать  
Добавить икону на панель инструментов
    #38805883
Фотография Stepler
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Stepler
Участник
The_Prist,

Не успел попробовать по твоему совету, но вчера пробовал через Reset Ribbon - не помогло...
...
Рейтинг: 0 / 0
14.11.2014, 10:48
| Ответить | Цитировать | Написать  
11 сообщений из 11, страница 1 из 1
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Добавить икону на панель инструментов
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение
NoSQL.ru       Новости, Чат       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=60&msg=38803417&tid=2156129]:
 0ms
get settings:
 10ms
get forum list:
 14ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 40ms
get topic data:
 9ms
get forum data:
 2ms
get page messages:
 46ms
get tp. blocked users:
 1ms
others: 14ms
total:  142ms
созд. / загр.: 142ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]