Страницы: 1
RSS
Смещение примечаний
 
Добрый день.  
Попался файлик с кучей примечаний. При редактировании примечаний - они открывают далекооо от ячейки к которым привязаны.  
Надо Все их разместить справа от ячеек.  
Примечаний очень много - хотелось бы макрос.  
 
Заранее спасибо.
 
Sub FixComm()  
Dim iComm As Comment  
For Each iComm In ActiveSheet.Comments  
iComm.Shape.Top = iComm.Parent.Cells.Top - 10  
iComm.Shape.Left = iComm.Parent.Cells.Left + iComm.Parent.Cells.Width + 10  
Next  
End Sub
 
Огромное спасибо
 
Спасибо) очень познавательно. а то я со всеми этими украшательствами даже не знал с какой стороны подойти)
Страницы: 1
Читают тему
Наверх