Macos Excel в Office XP

[Irinka]

Здравствуйте!
Очень надеюсь на помощь.
У меня возникла следующая проблема:
Макрос, великолепно работающий в Office 2000 и более ранних, не хочет этого же делать в Office XP. В нем строится пользовательская панель из десяти кнопок, к каждой из них привязывается своя процедура или функция. Так вот, в XP после привязки sub на 6-ю кнопку выдается сообщение "Object doesn't support this property or method". Хотя для предыдущих кнопок все было проделано просто замечательно.
И еще. Как отключить функцию обновления связей


Irinka

[Amed]

Скорее всего, в Office XP изменилось какое-либо свойство объекта (возможно, только его свойство). Не могли бы Вы выложить тут процедуру, вызываемую шестой кнопкой?

[Irinka]

With Toolbars(pan)
.Position = xlRight
If actibook = "PR_" Then
.ToolbarButtons.Add Button:=173, Before:=1
.ToolbarButtons.Add Button:=175, Before:=2
.ToolbarButtons.Add Button:=3, Before:=3
.ToolbarButtons.Add Button:=174, Before:=4
.ToolbarButtons.Add Button:=126, Before:=5
.ToolbarButtons.Add Button:=64, Before:=6
.ToolbarButtons.Add Button:=39, Before:=7
.ToolbarButtons.Add Button:=208, Before:=8
.ToolbarButtons.Add Button:=1, Before:=9
.ToolbarButtons.Add Button:=229, Before:=10
.ToolbarButtons(1).OnAction = "Добавить_строку"
.Application.MacroOptions Macro:="MACROS.XLS!Добавить_строку", _
StatusBar:="Добавление строки у выбранному диапозону"
.ToolbarButtons(2).OnAction = "Удалить_строку"
.Application.MacroOptions Macro:="MACROS.XLS!Удалить_строку", _
StatusBar:="Удаление текущей строки"
.ToolbarButtons(3).OnAction = "Prin"
.ToolbarButtons(4).OnAction = "Загрузка_реагентов_и_катализаторов"
.Application.MacroOptions Macro:="MACROS.XLS!Загрузка_реагентов_и_катализаторов", _
StatusBar:="Загрузка_реагентов_и_катализаторов"
.ToolbarButtons(5).OnAction = "Загрузка_из_распр"
.Application.MacroOptions Macro:="MACROS.XLS!Загрузка_из_распр", _
StatusBar:="Загрузка з/платы и затрат"
.ToolbarButtons(6).OnAction = "Ширина_колонки"
.Application.MacroOptions Macro:="MACROS.XLS!Ширина_колонки", _
StatusBar:="Автоподбор ширины колонки"
.ToolbarButtons(7).OnAction = "замена_едизм"
.Application.MacroOptions Macro:="MACROS.XLS!замена_едизм", _
StatusBar:="Изменеие единицы измерения"
.ToolbarButtons(8 ).OnAction = "Снятие_защиты"
.Application.MacroOptions Macro:="MACROS.XLS!Снятие_защиты", _
StatusBar:="Снимает защиту с текущей ячейки"
.ToolbarButtons(9).OnAction = "MACROS.XLS!tab_raspr"
.Application.MacroOptions Macro:="MACROS.XLS!tab_raspr", _
StatusBar:="Открыть таблицу распределения"
.ToolbarButtons(10).OnAction = "Выход"
.Application.MacroOptions Macro:="MACROS.XLS!Выход", _
StatusBar:="Выход из текущей книги с сохранением"
.ToolbarButtons(1).Name = "Добавить строку"
.ToolbarButtons(2).Name = "Удалить строку"
.ToolbarButtons(3).Name = "Печать"
.ToolbarButtons(4).Name = "Загрузка_реагентов_и_катализаторов"
.ToolbarButtons(5).Name = "Загрузка з/платы и затрат"
.ToolbarButtons(6).Name = "Автоподбор ширины колонок"
.ToolbarButtons(7).Name = "Изменеие единицы измерения"
.ToolbarButtons(8 ).Name = "Снятие защиты с ячейки"
.ToolbarButtons(9).Name = "Открыть таблицу распределения"
.ToolbarButtons(10).Name = "выход"
ElseIf
''
End If
.Visible = True
End With

На строчке
.ToolbarButtons(7).OnAction = "замена_едизм"
вылетает ошибка

[Irinka]

Интересно, что если оставить всего 6 кнопок, то проблем не будет и все объекты поддерживают рассматриваемые свойства...
Но для корректной работы программы необходимы все 10!

Народ, ну, кто-нибудь помогите !!!

Irinka