изменить язык на языковом панеле windows средствами vba

[roborrr]

Здра́вствуйте!

Можно ли изменить язык на языковом панеле windows средствами vba?

[IgorGO]

у меня раскладка клавиатуры меняется по Ctrl+Shift

Application.SendKeys ("^+")

- сработал без проблем

[roborrr]

Сообщение от IgorGO

у меня раскладка клавиатуры меняется по Ctrl+Shift

Application.SendKeys ("^+")

- сработал без проблем

Спасибо, Игорь. а можно ли так:

организовать две кнопки. нажав на кнопку с надписью ru, переключался на русский и нажав на кнопку с надписью en - на английский

[Hugo121]

Пара примеров, подгоняйте:

http://excelvba.ru/code/KeyboardLayout

Чтобы каждый раз не переключать раскладку вручную - можно воспользоваться WinAPI функцией ActivateKeyboardLayout

Вставьте этот код в модуль листа:


Private Declare Function ActivateKeyboardLayout _
                          Lib "user32" (ByVal HKL As Long, ByVal flags As Long) As Long
Const kb_lay_ru As Long = 68748313, kb_lay_en As Long = 67699721
 
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Select Case Target.Column    ' в зависимости от номера столбца активной ячеки
        Case 1 To 3, 6    ' для столбцов Имя, Фамилия, Номер машины, Цвет
            ВключитьРусскуюРаскладку
        Case 4, 5:    ' для столбцов Марка авто, Модель
            ВключитьАнглийскуюРаскладку
        Case Else:    ' ничего не делаем (оставляем текущую раскладку)
    End Select
End Sub
 
Sub ВключитьРусскуюРаскладку()
    ' Переключить на русский язык
    x = ActivateKeyboardLayout&(kb_lay_ru, 0)
End Sub
 
Sub ВключитьАнглийскуюРаскладку()
    ' Переключить на английский язык
    x = ActivateKeyboardLayout&(kb_lay_en, 0)
End Sub 
==============================================================


==============================================================
Переключение языков

Const KL_NAMELENGTH As Long = 8 'length of the keyboardbuffer
Private Declare Function GetKeyboardLayoutName Lib "user32" Alias "GetKeyboardLayoutNameA" (ByVal pwszKLID As String) As Long

Public Sub www()
Dim strLocId As String
strLocId = String(KL_NAMELENGTH, 0)
GetKeyboardLayoutName strLocId
Select Case strLocId
Case "00000419": MsgBox "Ru"
Case "00000409": MsgBox "En"
Case "00000422": MsgBox "Ua"
End Select
End Sub

==============================================================

[roborrr]

Сообщение от Hugo121

Пара примеров, подгоняйте:

Sub ВключитьРусскуюРаскладку()
    ' Переключить на русский язык
    x = ActivateKeyboardLayout&(kb_lay_ru, 0)
End Sub
 
Sub ВключитьАнглийскуюРаскладку()
    ' Переключить на английский язык
    x = ActivateKeyboardLayout&(kb_lay_en, 0)
End Sub

эти два кода работают отлично. но у меня на компе установлен и грузинский шрифт, под названием KA. этот язык в винде считается региональным.
когда я назначил кнопке такой код:

Sub ВключитьгрузинскуюРаскладку()
    
    x = ActivateKeyboardLayout&(kb_lay_ka, 0)
End Sub

то нажав на кнопку, шрифт переключается не прямо на грузинский а на всех установленных языках поочередно

[EducatedFool]

Обратите внимание на эту строку кода:

Const kb_lay_ru As Long = 68748313, kb_lay_en As Long = 67699721

вы написали в коде kb_lay_ka - а значение этой константы вы не задали
недостаточно пару букв в коде поменять)))

список кодов для разных языков есть здесь:
http://excelvba.ru/code/KeyboardLayout#comment-133
Но в этом списке нет грузинского, - поищите код для грузинского в интернете
Когда найдете - дополните строку:

Const kb_lay_ru As Long = 68748313, kb_lay_en As Long = 67699721, kb_lay_ka As Long = ЗдесьКодЯзыка

[roborrr]

спасибо всем!!!

[Hugo121]

Можно найти нужный код клавиатуры используя эти коды - задать вручную грузинский и узнать возвращаемый код с помощью GetKeyboardLayoutName.
Затем в цикле (вероятно от английского и вверх) менять раскладки с помощью ActivateKeyboardLayout пока не получим нужный ответ.

[roborrr]

Сообщение от Hugo121

Можно найти нужный код клавиатуры используя эти коды - задать вручную грузинский и узнать возвращаемый код с помощью GetKeyboardLayoutName.
Затем в цикле (вероятно от английского и вверх) менять раскладки с помощью ActivateKeyboardLayout пока не получим нужный ответ.

Спасибо Hugo121, наконец узнал я код родного языка.

[Hugo121]

Так и сделали? Я сам не пробовал, не актуально....
И кстати - так напишите код, поможете землякам.

Извиняюсь перед Игорем что не указал чей код - у меня в загашнике лежит без ссылки на автора. Давно лежит... возможно где-то с мая 2011 года и лежит - когда у Игоря код появился.
Сейчас добавил ссылку на источник