Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Добавить икону на панель инструментов / 11 сообщений из 11, страница 1 из 1
11.11.2014, 17:25
    #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:28
    #38802491
Konst_One
Konst_One
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Добавить икону на панель инструментов
http://msdn.microsoft.com/en-us/library/aa433246(v=office.12).aspx
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
11.11.2014, 18:10
    #38802579
The_Prist
The_Prist
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Добавить икону на панель инструментов
Как создать свою надстройку?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
12.11.2014, 10:50
    #38803117
Stepler
Stepler
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Добавить икону на панель инструментов
Спасибо за помощь....
Дело в том, что после срабатывания кода, я вижу, что добавились иконки в определенный раздел панели инструментов, но их визуально нет - может как-то "раздвинуть" раздел, но как? Как в 2007 раздвинуть раздел панели инструментов? В 2003-м было: нажал правую клавишу мыши, сделал панель в режим редактирования... и вставляй себе и/или удаляй. А в 2007 -только редактирование панели быстрого доступа....
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
12.11.2014, 13:27
    #38803417
The_Prist
The_Prist
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Добавить икону на панель инструментов
Stepler,

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

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

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

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


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


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

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

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


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