Blog of Khlebalin Dmitriy

(Дорогу осилит идущий…)

Автоматически изменить размер окна комментария Excel.


Вчера получил интересный вопрос, от одной из читательниц моего блога:

Проблема следующая: Текст комментария у меня часто больше, чем умещается в поле комментария и приходится для каждого примечания исправлять размер. Как заранее сделать это поле побольше или приказать ему меняться автоматически под количество текста?

Никогда не задумывался над этим, но вопрос интересный.

Для себя нашел одно решение-это макрос. Но макросы разрешены далеко не везде, поэтому если есть другие варианты, прошу написать в комментарии?

«Прикручиваем» следующий макрос:

Sub align_comments() 
Dim x As Comment 
For Each x In ActiveSheet.Comments 
x.Shape.TextFrame.AutoSize = True 
x.Shape.TextFrame.Characters().Font.Size = 8 
x.Shape.TextFrame.Characters().Font.Name = «Tahoma» 
x.Shape.Left = x.Parent.Offset(0, 1).Left + 10 
x.Shape.Top = x.Parent.Top 
Next 
End Sub  

Сохраняем документ в формате с поддержкой макросов.

snap0

И получаем, как раз то,  что нам необходимо-авторазмер окна комментария.

snapПосле добавления каждого следующего комментария, придется каждый раз жать кнопку Сохранить, только после сохранения выполняется авторазмер окна.

Всем хорошей работы !!!

Реклама

16.06.2016 - Posted by | ms office 2003/2007/2010/2013/365

Sorry, the comment form is closed at this time.

%d такие блоггеры, как: