[ Новые сообщения · Участники · Правила форума · Поиск · RSS ]
  • Страница 1 из 1
  • 1
Форум » Excel » Excel Макросы (VBA) » Excel комментарии изменить размеры и размещение
Excel комментарии изменить размеры и размещение
koralekДата: Пятница, 27.02.2015, 16:31 | Сообщение # 1
Подполковник
Группа: Администраторы
Сообщений: 147
Репутация: 0
Статус: Offline
Dim c As Range
    For Each c In ActiveWorkbook.Worksheets("All").Range("A1:kU300")
        If Not (c.Comment Is Nothing) Then ' у ячейки есть примечание
           ' c.Comment.Shape.Width = 84.75 ' ширина комментария
           ' c.Comment.Shape.Height = 57#   ' высота комментария
            
            c.Comment.Shape.Top = c.Top + 10
            c.Comment.Shape.Left = c.Offset(, 1).Left + 20
        End If
    Next c
 
Форум » Excel » Excel Макросы (VBA) » Excel комментарии изменить размеры и размещение
  • Страница 1 из 1
  • 1
Поиск: