Изменение шрифта примечаний

Старая форма входа

Страница 1 из 1 1
Модератор форума: китин, _Boroda_

Мир MS Excel » Вопросы и решения » Вопросы по VBA » Изменение шрифта примечаний (Макросы/Sub)

Velimir

Дата: Четверг, 15.10.2015, 13:45 | Сообщение № 1

Группа: Пользователи

Ранг: Прохожий

Сообщений: 2

Репутация: 0 ±

Замечаний: 0% ±

Excel 2010

Добрый день, форумчане!
Возник вопрос как изменить размер шрифта комментариев. Для одной ячейки не проблема... выделил текст и указал размер шрифта. Но вот если более сотни ячеек, то в ручную весьма сложная задача.
Хотел сделать макрос, но и тут неудача... При просмотре записанного макроса на месте где должно быть изменение размера шрифта - ничего нет.

Может кто-то уже сталкивался с такой проблемой или есть гуру знающие решение. Заранее благодарен, за любую помощь.

ЗЫ. Поиском пользовался, но увы ничего не нашел.

Ответить

Rioran

Дата: Четверг, 15.10.2015, 14:11 | Сообщение № 2

Группа: Авторы

Ранг: Ветеран

Сообщений: 903

Репутация: 290 ±

Замечаний: 0% ±

Excel 2013

Velimir, здравствуйте.

У меня получилось так. Убедитесь, что в ячейке А1 есть комментарий.

[vba]

Код

With Range("A1").Comment.Shape.TextFrame.Characters.Font
    .Name = "Verdana" ' Мой любимый шрифт.
    .ColorIndex = 3 ' Красный цвет.
    .Size = 14 ' Мой любимый размер.
End With

[/vba]

Роман, Москва, voronov_rv@mail.ru
Яндекс-Деньги: 41001312674279

Сообщение отредактировал Rioran - Четверг, 15.10.2015, 14:14

Ответить

Velimir

Дата: Четверг, 15.10.2015, 14:25 | Сообщение № 3

Группа: Пользователи

Ранг: Прохожий

Сообщений: 2

Репутация: 0 ±

Замечаний: 0% ±

Excel 2010

Rioran, добрый день.
Спасибо, помогло.

Ответить

Мир MS Excel » Вопросы и решения » Вопросы по VBA » Изменение шрифта примечаний (Макросы/Sub)

Страница 1 из 1
1