Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Кнопки в панели инструментов, Excel 2003 / 7 сообщений из 7, страница 1 из 1
25.11.2008, 18:00:54
    #35674851
SOFT FOR YOU
SOFT FOR YOU
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Кнопки в панели инструментов, Excel 2003
Доброе время суток, уважаемы форумчане.

Добавляю на панель кнопки, назначаю им макросы (текущая книга). Однако, кнопки "кочуют" и в другие документы. Что не так?

Ещё хотелось бы знать их имя, менять Enabled по мере необходимости.

Заранее, спасибо!
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
25.11.2008, 18:10:53
    #35674868
Евгений_Анатольевич
Евгений_Анатольевич
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Кнопки в панели инструментов, Excel 2003
SOFT FOR YOU,

дык а если нажать запись макроса и проделать все что вы написали? ;) и имя меняется в том же меню, где макрос назначается, вторая строчка сверху.. вроде.. :)
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
25.11.2008, 18:12:43
    #35674876
Евгений_Анатольевич
Евгений_Анатольевич
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Кнопки в панели инструментов, Excel 2003
+
а во всех книгах, потому что вы меняете настройки внешнего вида экселя, а не данной конкретной книги.. если вы будете инициализировать подобные кнопки в макросе, то после закрытия книгинадо будет не забыть их отключить..

а вообще не проще форму создать?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
26.11.2008, 09:48:26
    #35675575
SOFT FOR YOU
SOFT FOR YOU
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Кнопки в панели инструментов, Excel 2003
Подсмотрел в другом документе:

Код: plaintext
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.
33.
34.
Dim MyBar As CommandBar
Dim MyButton( 1 ) As CommandBarButton
Dim MyButton1( 1 ) As CommandBarButton
Dim MyButton2( 1 ) As CommandBarButton
 'создание панели и кнопки вызова формы
On Error GoTo error_1
 Set MyBar = Application.CommandBars.Add(Name:="Моя панель", Position:=msoBarTop, MenuBar:=False, Temporary:=True)
'создание кнопок
With MyBar
  .Visible = True
  .Protection = msoBarNoMove + msoBarNoChangeVisible + msoBarNoCustomize
   With .Controls
    Set MyButton( 1 ) = .Add(Type:=msoControlButton, ID:= 1 , Temporary:=True)
    Set MyButton1( 1 ) = .Add(Type:=msoControlButton, ID:= 2 , Temporary:=True)
    Set MyButton2( 1 ) = .Add(Type:=msoControlButton, ID:= 3 , Temporary:=True)
   End With
End With
 With MyButton( 1 )
  .Caption = "..."
  .TooltipText = "..."
  .Style = msoButtonIconAndCaption
  .OnAction = "..."
 End With
 With MyButton1( 1 )
  .Caption = "..."
  .TooltipText = "..."
  .Style = msoButtonIconAndCaption
  .OnAction = "ListConnection"
 End With
 With MyButton2( 1 )
  .Caption = "..."
  .TooltipText = "..."
  .Style = msoButtonIconAndCaption
  .OnAction = "List_Filial"
 End With

"..." - это мне было лень переписывать по русски "иероглифы", сделанные копипастом.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
26.11.2008, 09:59:47
    #35675596
SOFT FOR YOU
SOFT FOR YOU
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Кнопки в панели инструментов, Excel 2003
Кнопки добавились... Но знает ли кто, как изменить им иконки ?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
26.11.2008, 10:06:06
    #35675618
SOFT FOR YOU
SOFT FOR YOU
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Кнопки в панели инструментов, Excel 2003
Я извиняюсь, что глупые вопросы задаю...

Объявил глобальные переменные в "Эта книга":

Public OracleButton As CommandBarButton
Public AddRowButton As CommandBarButton

Инициализирую их в Workbook_Open():
Код: plaintext
1.
2.
3.
...
    Set OracleButton = .add(Type:=msoControlButton, ID:= 1 , Temporary:=True)
    Set AddRowButton = .add(Type:=msoControlButton, ID:= 2 , Temporary:=True)
...

Но из другого модуля, в Worksheet_Activate() такой код вызывает ошибку:
Код: plaintext
1.
OracleButton.Enabled = False
AddRowButton.Enabled = False

Из-за чего ?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
26.11.2008, 11:33:07
    #35675939
SOFT FOR YOU
SOFT FOR YOU
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Кнопки в панели инструментов, Excel 2003
Помогла адресация ЭтаКнига.OracleButton
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Кнопки в панели инструментов, Excel 2003 / 7 сообщений из 7, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение  
Полит. конфиден.  
созд. / загр.: 445ms
Закрыть
start [/forum/topic.php?fid=61&tablet=1&tid=2180081]:
 0ms
get settings:
 6ms
get forum list:
 9ms
check forum access:
 2ms
check topic access:
 2ms
track hit:
 190ms
get topic data:
 6ms
get forum data:
 1ms
get page messages:
 24ms
get tp. blocked users:
 1ms
others: 204ms
total:  445ms
x
x
Закрыть


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