Основы офисного программирования и язык VBA


Переименование команды меню


VBA позволяет динамически переименовывать команды меню, используя свойство Caption (Заголовок) изменяемой команды. Это может пригодиться, например, при настройке меню на язык пользователя. В следующем примере в англоязычной версии Office 2000 имя команды "Open Database" переводится на русский язык.

CommandBars("MyMenubar").Controls("File").Controls("Open Database") _ .Caption = "Открыть базу данных"

Другой способ - завести переменную, ссылающуюся на данную команду:

Set openData = CommandBars("My Menubar").Controls _ ("File").Controls("Open Database")

и затем использовать ее в программе для доступа к команде. При этом изменить заголовок можно так:

openData.Caption = "Открыть базу данных"




Начало  Назад  Вперед



Книжный магазин