Как получить доступ к шрифтам VBE через VBA

@sku144 · Регистрация: 15.01.2015

Студворк — интернет-сервис помощи студентам

Как в VBE с помощью VBA поменять шрифт на кириллический при открытии документа?
Ручками это делается так: Alt+F11 > Tools > Options... > Editor Format > Font: Courier New (Cyrillic)

Пока что дошел только до того, как вызывать VBE при открытии документа

Visual Basic

1
2
3

Private Sub Workbook_Open()
    Application.VBE.MainWindow.Visible = True
End Sub

А вот как дальше обратиться к шрифтам - идей нет.

@Alex77755 · 30.01.2015, 17:55

Visual Basic

Private Sub Workbook_Open()
    With Cells.Font
            .Name = "Calibri"
            .Size = 24
            .Italic = True
            .Bold = 1
        End With
End Sub

@Farad · 30.01.2015, 18:31

Alex77755, там речь идет немного о другом шрифте. Тот который используется в окне VBE. А вопрос состоит в том, насколько я понял, как изменить шрифт кода, набираемого в VBE.

@sku144 · 30.01.2015, 20:02 **[ТС]**

Именно так, Farad. Потому что дефолтный шрифт подает кириллицу как крокозябры. Если что, VBE - это редактор, в котором мы кодим маросы

@~~Night Ranger~~ · 30.01.2015, 20:11

Шрифты вызываються точно по названиям, например
Arial >>получаем Arial, в чем проблема
вы сами себя слышите что пишите, процитирую один разок

Как в VBE с помощью VBA поменять шрифт на кириллический

это что за чипушня?

@Farad · 30.01.2015, 22:53

Посмотрел объектную модель VBIDE - там нет ничего хоть сколько-нибудь отдаленно напоминающее свойство Font. И раз уж на то пошло вот статья от небезысвестного Чипа Пирсона: http://www.cpearson.com/excel/vbe.aspx
В статье объясняется программирование VBE. Оттуда же можно узнать, как, например, вставить в книгу модуль с определенным кодом.

От себя добавлю. То что пытаетесь сделать - довольно редкая и никому не нужная задача. Попробуйте найти обходной путь. Допускаю, что получить доступ к настройкам можно, но надо искать.
Как вариант можно попробовать с помощью программирования нажатия определенных клавиш. Например запрограммировать последовательное нажатие клавиш:
Alt → T → O → Ctrl+Tab → Tab → Tab → Tab → Tab
Так получается доступ к полю ввода, ну а дальше подобным макаром вводится нужный шрифт и нажимается энтер.

@sku144 · 30.01.2015, 23:55 **[ТС]**

Да, Farad, спасибо, пока что это так и работает через SendKeys. А спрашиваю на всякий случай, мало ли у кого какие идеи получше есть)

Добавлено через 7 минут

Сообщение от Night Ranger

чипушня

ничего интересного, просто ересь воспалённого мозга, проходите дальше

SoftIce · 31.01.2015, 00:07

Уже было. Удалил.

@sku144 · 31.01.2015, 02:26 **[ТС]**

Решение найдено! Правда немного другим путём - через правки в реестре. Но, тем не менее, это работает!

ZVI_Set_RussianFont_to_VBE.xls

@Farad 12 / 12 / 2 Регистрация: 30.10.2013 Сообщений: 46
	30.01.2015, 18:31	3
	Alex77755, там речь идет немного о другом шрифте. Тот который используется в окне VBE. А вопрос состоит в том, насколько я понял, как изменить шрифт кода, набираемого в VBE. 0

@sku144 195 / 17 / 2 Регистрация: 15.01.2015 Сообщений: 190
	30.01.2015, 20:02 [ТС]	4
	Именно так, Farad. Потому что дефолтный шрифт подает кириллицу как крокозябры. Если что, VBE - это редактор, в котором мы кодим маросы 0

@~~Night Ranger~~ Заблокирован
	30.01.2015, 20:11	5
	Шрифты вызываються точно по названиям, например Arial >>получаем Arial, в чем проблема вы сами себя слышите что пишите, процитирую один разок Как в VBE с помощью VBA поменять шрифт на кириллический это что за чипушня? 0

@Farad 12 / 12 / 2 Регистрация: 30.10.2013 Сообщений: 46
	30.01.2015, 22:53	6
	Посмотрел объектную модель VBIDE - там нет ничего хоть сколько-нибудь отдаленно напоминающее свойство Font. И раз уж на то пошло вот статья от небезысвестного Чипа Пирсона: http://www.cpearson.com/excel/vbe.aspx В статье объясняется программирование VBE. Оттуда же можно узнать, как, например, вставить в книгу модуль с определенным кодом. От себя добавлю. То что пытаетесь сделать - довольно редкая и никому не нужная задача. Попробуйте найти обходной путь. Допускаю, что получить доступ к настройкам можно, но надо искать. Как вариант можно попробовать с помощью программирования нажатия определенных клавиш. Например запрограммировать последовательное нажатие клавиш: Alt → T → O → Ctrl+Tab → Tab → Tab → Tab → Tab Так получается доступ к полю ввода, ну а дальше подобным макаром вводится нужный шрифт и нажимается энтер. 1

@sku144 195 / 17 / 2 Регистрация: 15.01.2015 Сообщений: 190
	30.01.2015, 23:55 [ТС]	7
	Да, Farad, спасибо, пока что это так и работает через SendKeys. А спрашиваю на всякий случай, мало ли у кого какие идеи получше есть) Добавлено через 7 минут Сообщение от Night Ranger чипушня ничего интересного, просто ересь воспалённого мозга, проходите дальше 0

SoftIce es geht mir gut 11267 / 4749 / 1183 Регистрация: 27.07.2011 Сообщений: 11,439
	31.01.2015, 00:07	8
	Уже было. Удалил. 0

@sku144 195 / 17 / 2 Регистрация: 15.01.2015 Сообщений: 190
	31.01.2015, 02:26 [ТС]	9
	Решение найдено! Правда немного другим путём - через правки в реестре. Но, тем не менее, это работает! ZVI_Set_RussianFont_to_VBE.xls 1

Опции темы