Win-XP/Excel 2003/VBA ....Excel CommandBars/Органы управления на местных языках
У меня есть следующий фрагмент кода, чтобы перехватывать все действия пасты, инициированных пользователем (главное меню, контекстное меню и управление Ключ -V) и отправить его в Sub TrappedPaste()
....
Application.CommandBars("Edit").Controls("Paste").OnAction = "TrappedPaste"
Application.CommandBars("Edit").Controls("Paste Special...").OnAction = "TrappedPaste"
Application.CommandBars("Cell").Controls("Paste").OnAction = "TrappedPaste"
Application.CommandBars("Cell").Controls("Paste Special...").OnAction = "TrappedPaste"
Application.OnKey "^v", "TrappedPaste"
....
Этот код работает нормально. Чудо произошло во время всемирного развертывания листа, потому что «Редактировать» - это не «Редактировать», а «Вставить» - это не «Вставить» на немецком, французском и других языках между (A) leut и (Z) apotec: - O
Q:
- есть ли способ достижения независимости от языка первенствовать пользовательский интерфейс, т.е. есть числовое aequivalent к «Вставить» аргумент который является тем же на всех национальных языках?
- как я могу найти этот номер?
- ctrl-V всегда ctrl-v на всех локальных языках Windows?
Заранее спасибо за любую помощь
сердечным приветом MikeD
Вы забыли «Shift + Ins» и щелкните правой кнопкой мыши. – GSerg
@GSerg: спасибо за подсказку на Shift-Ins .... щелчок правой кнопкой мыши открывает контекстное меню, которое адресуется ... CommandBars («Cell») .... – MikeD