[vba]Код
Sub Починить_структуру()
'---------------------------------------------------------------------------------------
' Procedure : Починить_структуру
' Author : Pavel55
' Topic_HEADER : "Обьект невозможно перместить за пределы листа" - ???
' Topic_URL : http://www.planetaexcel.ru/forum.php?thread_id=7886
' Post_Author : Pavel55
' Post_URL :
' DateTime : 19.01.2009, 12:05
' Purpose : позволяет устранить ошибку при скрытии столбцов "Объект невозможно переместить за пределы листа"
' Notes : устанавливает свойство каждого комментария "перемещать и изменять объект вместе с ячейками"
'---------------------------------------------------------------------------------------
Dim iComment As Comment
For Each iComment In ActiveSheet.Comments
'iComment.Shape.Placement = xlMoveAndSize
iComment.Shape.Placement = xlMove
iComment.Shape.TextFrame.AutoSize = True
Next
MsgBox "Все комментарии на листе обработаны!" & vbCrLf & "Теперь структура глючить не должна.", vbInformation, "Комментарии"
End Sub
[/vba]