ReSQL.ru
     
powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Панель инструментов в Excel'e
19 сообщений из 19, страница 1 из 1
Панель инструментов в Excel'e
    #33568129
Фотография Jetus
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Jetus
Участник


Привет всем. Хочу програмно создать панель инструментов с кнопкой на ней, а кнопке назначить макрос.

Как это сделать?


______________________________
Never Surrender - Nothing Impossible!
...
Рейтинг: 0 / 0
27.02.2006, 15:06:04
| Ответить | Цитировать | Написать  
Панель инструментов в Excel'e
    #33568341
vkodor
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
vkodor
Участник
Код: plaintext
1.
2.
3.
4.
5.
6.
Sub myCommandBars()
    Application.CommandBars.Add(Name:="имя панели").Visible = True
    Application.CommandBars("имя панели").Controls.Add Type:= _
        msoControlButton, ID:= 2950 , Before:= 1 
    Application.CommandBars("имя панели").Controls( 1 ).OnAction = "имя макроса"
    Application.CommandBars("имя панели").Controls( 1 ).Caption = "xx"
End Sub
...
Рейтинг: 0 / 0
27.02.2006, 16:02:34
| Ответить | Цитировать | Написать  
Панель инструментов в Excel'e
    #33568452
Фотография Jetus
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Jetus
Участник


Большое спасибо, только вот лажа: все иконки с одинаковыми иконками получаются. Как иконки задавать? Там есть уже готовые, стандартные, только как их нацепить?


______________________________
Never Surrender - Nothing Impossible!
...
Рейтинг: 0 / 0
27.02.2006, 16:31:36
| Ответить | Цитировать | Написать  
Панель инструментов в Excel'e
    #33568621
vkodor
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
vkodor
Участник
Jetus


Большое спасибо, только вот лажа: все иконки с одинаковыми иконками получаются. Как иконки задавать? Там есть уже готовые, стандартные, только как их нацепить?


______________________________
Never Surrender - Nothing Impossible!


сам ты лажа
Код: plaintext
Application.CommandBars("имя панели").Controls( 1 ).FaceId =  45
...
Рейтинг: 0 / 0
27.02.2006, 17:14:39
| Ответить | Цитировать | Написать  
Панель инструментов в Excel'e
    #33570723
JimOrange
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
JimOrange
Гость
вот что удалось по поводу иконок найти:

FaceId Описание

1 пустая
2 проверка орфографии
3 сохранить
18 новая книга
19 копировать
21 вырезать
22 вставить
23 открыть
37 поворот объекта
42 MS Word
47 ластик
51 рука
52 свинка-копилка
59 рожица-смайлик :)
60 какая-то фиговинка
67 корзина
68 громкоговоритель
106 отображает как кнопку с ALT-текстом
107 таблица с молнией
108 кисточка форматов
109 предварительный просмотр
112 квадратик
113 жирно
114 курсив
115 подчеркнуто
117 нижняя рамка
118 затемнение
121 выравнено слева
122 выравнено справа
123 выравнено по ширине
140 бинокль с папкой
145 верхняя рамка
146 нижняя рамка
147 левая рамка
148 правая рамка
149 средние рамки
150 рамка простая
151 без рамки
164 кнопка с текстом названия макроса
165 2 квадратика с узлами
170 желтенький квадратик с тенью
171 тень с желтеньким квадратиком
182 стрелка мыши
184 запись макроса
186 пуск макроса
189 пауза макроса
196 зеркально слева на право
197 зеркально сверху вниз
198 поворот на 90 по часовой
199 поворот на 90 против часовой
200 рисовать линию
204 WordArt
206 Ломаная линия
210 Сортировка по возрастанию
211 Сортировка по убыванию
219 инструмент "Текстовое поле"


P.S. Описание конечно то еще :)
...
Рейтинг: 0 / 0
28.02.2006, 13:52:33
| Ответить | Цитировать | Написать  
Панель инструментов в Excel'e
    #33571094
vkodor
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
vkodor
Участник
цитата из книги Джона Уокенбаха
авторДля определения кода конкретного изображения используется метод проб и ошибок, однако ВЫ можете воспользоваться бесплатной утилитой, которая разработана специально для сражения значения свойства Faceld. Эта надстройка упрощает определение свойства Faceld конкретного изображения. После установки надстройки можно выбрать из меню сервис команду Faceld ID Identifier. В результате выбора этой команды отображается пользовательскoe диалоговое окно, которое содержит все доступные значки для элементов управления командных панелей. Как только указатель мыши будет наведен на одно из этих изображений, значение свойства Faceld отобразится в текстовом поле
кому надо могу выслать файл с номерами стандартных иконок ~3000 шт.
...
Рейтинг: 0 / 0
28.02.2006, 15:15:58
| Ответить | Цитировать | Написать  
Панель инструментов в Excel'e
    #33571133
JimOrange
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
JimOrange
Гость
Интересно, что больше поможет, цитата или пример....
...
Рейтинг: 0 / 0
28.02.2006, 15:25:49
| Ответить | Цитировать | Написать  
Панель инструментов в Excel'e
    #33572617
Фотография Jetus
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Jetus
Участник
vkodor
кому надо могу выслать файл с номерами стандартных иконок ~3000 шт.
Высылай!!! finvid@oe.ic.km.ua
...
Рейтинг: 0 / 0
01.03.2006, 10:05:24
| Ответить | Цитировать | Написать  
Панель инструментов в Excel'e
    #33572670
vkodor
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
vkodor
Участник
Jetus vkodor
кому надо могу выслать файл с номерами стандартных иконок ~3000 шт.
Высылай!!! finvid@oe.ic.km.ua
получил
...
Рейтинг: 0 / 0
01.03.2006, 10:19:34
| Ответить | Цитировать | Написать  
Панель инструментов в Excel'e
    #33573141
Фотография Jetus
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Jetus
Участник
vkodorполучил


Огромное спасибо, ты меня просто выручил.

И уже по инерции: а разделитель между кнопками как втиснуть можно?
...
Рейтинг: 0 / 0
01.03.2006, 12:01:06
| Ответить | Цитировать | Написать  
Панель инструментов в Excel'e
    #33573237
Oxi_gen
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Oxi_gen
Гость
vkodorцитата из книги Джона Уокенбаха
авторДля определения кода конкретного изображения используется метод проб и ошибок, однако ВЫ можете воспользоваться бесплатной утилитой, которая разработана специально для сражения значения свойства Faceld. Эта надстройка упрощает определение свойства Faceld конкретного изображения. После установки надстройки можно выбрать из меню сервис команду Faceld ID Identifier. В результате выбора этой команды отображается пользовательскoe диалоговое окно, которое содержит все доступные значки для элементов управления командных панелей. Как только указатель мыши будет наведен на одно из этих изображений, значение свойства Faceld отобразится в текстовом поле
кому надо могу выслать файл с номерами стандартных иконок ~3000 шт.

Можешь и мне выслать? Zarkova@gloria-jeans.ru
Заранее премного благодарна
...
Рейтинг: 0 / 0
01.03.2006, 12:19:56
| Ответить | Цитировать | Написать  
Панель инструментов в Excel'e
    #33573492
vkodor
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
vkodor
Участник
JetusИ уже по инерции: а разделитель между кнопками как втиснуть можно?
имхо не существует
есть разделительная полоса

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
Sub myBeginGroup()
    Application.CommandBars.Add(Name:="имя").Visible = True
    With Application.CommandBars("имя")
        .Controls.Add Type:=msoControlPopup, Before:= 1 
        .Controls( 1 ).CommandBar.Controls.Add Type:=msoControlButton, ID:= 2950 , Before:= 1 
        .Controls( 1 ).CommandBar.Controls.Add Type:=msoControlButton, ID:= 2950 , Before:= 2 
        .Controls( 1 ).CommandBar.Controls( 2 ).BeginGroup = True
    End With
End Sub
...
Рейтинг: 0 / 0
01.03.2006, 13:05:54
| Ответить | Цитировать | Написать  
Панель инструментов в Excel'e
    #33577071
Фотография Jetus
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Jetus
Участник
vkodorимхо не существует

Гм... странно, а ведь на стандартных панелях есть...
...
Рейтинг: 0 / 0
02.03.2006, 14:23:37
| Ответить | Цитировать | Написать  
Панель инструментов в Excel'e
    #33577247
vkodor
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
vkodor
Участник
Jetus vkodorимхо не существует

Гм... странно, а ведь на стандартных панелях есть...

Не вижу. Покажи где
...
Рейтинг: 0 / 0
02.03.2006, 15:06:44
| Ответить | Цитировать | Написать  
Панель инструментов в Excel'e
    #33578333
Фотография 100g
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
100g
Участник
На стандартных панелях разделители есть.
И, если руками добавляешь меню или кнопки на панель инструментов, то там в настройках пункта меню или кнопки есть пункт "Начать группу" галку ставишь и разделитель появляется перед элементом. А вот в VBA не знаю как сделать.
ЗЫ: Пробовал в макрос записать добавление кнопок панели инструментов, так записывается, но добавление или убирание разделителей ни как не отражается в коде.
:(
...
Рейтинг: 0 / 0
02.03.2006, 20:00:10
| Ответить | Цитировать | Написать  
Панель инструментов в Excel'e
    #33578340
Фотография 100g
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
100g
Участник
vkodor JetusИ уже по инерции: а разделитель между кнопками как втиснуть можно?
имхо не существует
есть разделительная полоса

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
Sub myBeginGroup()
    Application.CommandBars.Add(Name:="имя").Visible = True
    With Application.CommandBars("имя")
        .Controls.Add Type:=msoControlPopup, Before:= 1 
        .Controls( 1 ).CommandBar.Controls.Add Type:=msoControlButton, ID:= 2950 , Before:= 1 
        .Controls( 1 ).CommandBar.Controls.Add Type:=msoControlButton, ID:= 2950 , Before:= 2 
        .Controls( 1 ).CommandBar.Controls( 2 ).BeginGroup = True
    End With
End Sub

Ааааа.... дошло.... вот я слепошарый вот же она: BeginGroup = True
М:)
...
Рейтинг: 0 / 0
02.03.2006, 20:05:11
| Ответить | Цитировать | Написать  
Панель инструментов в Excel'e
    #33740588
Darinka
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Darinka
Гость
vkodorцитата из книги Джона Уокенбаха
авторДля определения кода конкретного изображения используется метод проб и ошибок, однако ВЫ можете воспользоваться бесплатной утилитой, которая разработана специально для сражения значения свойства Faceld. Эта надстройка упрощает определение свойства Faceld конкретного изображения. После установки надстройки можно выбрать из меню сервис команду Faceld ID Identifier. В результате выбора этой команды отображается пользовательскoe диалоговое окно, которое содержит все доступные значки для элементов управления командных панелей. Как только указатель мыши будет наведен на одно из этих изображений, значение свойства Faceld отобразится в текстовом поле
кому надо могу выслать файл с номерами стандартных иконок ~3000 шт.

Большое здрасте! Не трудно отправить на адрес dgacon@mail.ru! Очень надо ! Заранее спасибо!!!
...
Рейтинг: 0 / 0
20.05.2006, 20:42:30
| Ответить | Цитировать | Написать  
Панель инструментов в Excel'e
    #33740603
Ashton
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Ashton
Гость
Скачай надстройку, там есть все иконки с номерами.
...
Рейтинг: 0 / 0
20.05.2006, 21:05:04
| Ответить | Цитировать | Написать  
Панель инструментов в Excel'e
    #33741098
Darinka
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Darinka
Гость
AshtonСкачай надстройку, там есть все иконки с номерами.
Спасибки большое! Очень помог!
...
Рейтинг: 0 / 0
21.05.2006, 17:13:37
| Ответить | Цитировать | Написать  
19 сообщений из 19, страница 1 из 1
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Панель инструментов в Excel'e
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение   Полит. конфиден.  
NoSQL.ru       Кролег: Проекты, Новости, Чат       РЕД ФОРУМ       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=61&msg=33571133&tid=2184842]:
 0ms
get settings:
 4ms
get forum list:
 8ms
check forum access:
 2ms
check topic access:
 2ms
track hit:
 29ms
get topic data:
 5ms
get forum data:
 1ms
get page messages:
 30ms
get tp. blocked users:
 1ms
others: 199ms
total:  281ms
созд. / загр.: 281ms
x
x
Закрыть


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