Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Панель инструментов в Excel'e / 19 сообщений из 19, страница 1 из 1
27.02.2006, 15:06:04
    #33568129
Jetus
Jetus
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Панель инструментов в Excel'e


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

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


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


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


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


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


______________________________
Never Surrender - Nothing Impossible!


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

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


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

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

Можешь и мне выслать? Zarkova@gloria-jeans.ru
Заранее премного благодарна
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
01.03.2006, 13:05:54
    #33573492
vkodor
vkodor
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Панель инструментов в Excel'e
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
| Ответить | Цитировать | Написать  
02.03.2006, 14:23:37
    #33577071
Jetus
Jetus
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Панель инструментов в Excel'e
vkodorимхо не существует

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

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

Не вижу. Покажи где
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
02.03.2006, 20:00:10
    #33578333
100g
100g
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Панель инструментов в Excel'e
На стандартных панелях разделители есть.
И, если руками добавляешь меню или кнопки на панель инструментов, то там в настройках пункта меню или кнопки есть пункт "Начать группу" галку ставишь и разделитель появляется перед элементом. А вот в VBA не знаю как сделать.
ЗЫ: Пробовал в макрос записать добавление кнопок панели инструментов, так записывается, но добавление или убирание разделителей ни как не отражается в коде.
:(
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
02.03.2006, 20:05:11
    #33578340
100g
100g
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Панель инструментов в Excel'e
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
| Ответить | Цитировать | Написать  
20.05.2006, 20:42:30
    #33740588
Darinka
Darinka
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Панель инструментов в Excel'e
vkodorцитата из книги Джона Уокенбаха
авторДля определения кода конкретного изображения используется метод проб и ошибок, однако ВЫ можете воспользоваться бесплатной утилитой, которая разработана специально для сражения значения свойства Faceld. Эта надстройка упрощает определение свойства Faceld конкретного изображения. После установки надстройки можно выбрать из меню сервис команду Faceld ID Identifier. В результате выбора этой команды отображается пользовательскoe диалоговое окно, которое содержит все доступные значки для элементов управления командных панелей. Как только указатель мыши будет наведен на одно из этих изображений, значение свойства Faceld отобразится в текстовом поле
кому надо могу выслать файл с номерами стандартных иконок ~3000 шт.

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


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