Встречал несколько раз данное явление. Обычно после сортировки. Нашел вот такой макрос, который меняет размер примечания так, что бы влез весь текст:
[vba]
Код
Sub CommentFitter1() Application.ScreenUpdating = False Dim x As Range, y As Long For Each x In Cells.SpecialCells(xlCellTypeComments) Select Case True Case Len(x.NoteText) <> 0 With x.Comment .Shape.TextFrame.AutoSize = True If .Shape.Width > 250 Then y = .Shape.Width * .Shape.Height .Shape.Width = 150 .Shape.Height = (y / 200) * 1.2 End If End With End Select Next x Application.ScreenUpdating = True End Sub
[/vba]
Автор Том Уртис.
Встречал несколько раз данное явление. Обычно после сортировки. Нашел вот такой макрос, который меняет размер примечания так, что бы влез весь текст:
[vba]
Код
Sub CommentFitter1() Application.ScreenUpdating = False Dim x As Range, y As Long For Each x In Cells.SpecialCells(xlCellTypeComments) Select Case True Case Len(x.NoteText) <> 0 With x.Comment .Shape.TextFrame.AutoSize = True If .Shape.Width > 250 Then y = .Shape.Width * .Shape.Height .Shape.Width = 150 .Shape.Height = (y / 200) * 1.2 End If End With End Select Next x Application.ScreenUpdating = True End Sub
SkyPro, значит изменение размеров примечания происходит по разным причинам, потому что я сортировку не проводил, а размеры изменялись. В моём случае, я не знаю, после какого действия происходит изменение размеров (не хочется это узнавать - может случайно замечу).
SkyPro, значит изменение размеров примечания происходит по разным причинам, потому что я сортировку не проводил, а размеры изменялись. В моём случае, я не знаю, после какого действия происходит изменение размеров (не хочется это узнавать - может случайно замечу).Скрипт
А как бы их кроме автоматической подгонки по размеру ещё и по выравниванию в окошке подогнать? А то часть по верхнему краю, часть по нижнему, часть по середине, а хотелось бы всё по середине...
А как бы их кроме автоматической подгонки по размеру ещё и по выравниванию в окошке подогнать? А то часть по верхнему краю, часть по нижнему, часть по середине, а хотелось бы всё по середине...Skav_Shi
Ну смежный же совсем... я и подумал - зачем плодить дополнительную тему? Аналогичного характера. Проще название этой скорректировать имхуется мне... но если это принципиально, то можно создать и новую тему.
Ну смежный же совсем... я и подумал - зачем плодить дополнительную тему? Аналогичного характера. Проще название этой скорректировать имхуется мне... но если это принципиально, то можно создать и новую тему.Skav_Shi
Сообщение отредактировал Skav_Shi - Вторник, 20.09.2016, 14:59