Создание форматированного примечания с помощью VBA

1 августа 2012, VBA, Konstantin

Создание примечания для ячейки в Excel с помощью макроса, которое также имело бы сложное внутреннее форматирование, не самая тривиальная задача. Для этого можно воспользоваться например таким кодом:

With Worksheets(1).Cells(4, 12).Comment
   .Visible = False
   .Text "Жирный шрифт:" & Chr(10) & "курсив"
   .Shape.DrawingObject.Characters(1, 13).Font.Bold = True
   .Shape.DrawingObject.Characters(15, 20).Font.Italic = True
End With

В итоге получится примерно такое примечание:

Форматированное примечание ячейки

Order_macros

Теги: • • •
 
Распечатать Распечатать

2 комментария в “Создание форматированного примечания с помощью VBA”

  1. Олег:
    19 января 2017 в 16:57

    Вот бы еще брать текст из ячеек и вставлять в примечание, много примеров как выдернуть текст из примечания, а вот вставить практически нет.

    Ответить
    • Konstantin:
      23 января 2017 в 12:45

      Просто это не сложно. Вот например:

      Sub test()
   If ActiveCell.Comment Is Nothing Then
      ActiveCell.AddComment.Text (ActiveCell.Value)
      ActiveCell.Comment.Visible = False
   Else
      ActiveCell.Comment.Delete
   End If
End Sub
      Ответить

Комментировать

 


На Верх