VBA-Programmierung in Microsoft Excel

Tutorial: Excel-Beispiele

Schriftart für Kommentar ändern

Gruppe

Allgemein

Bereich

Kommentar

Thema

Schriftart für Kommentar ändern

Problem

Wie kann ich auf Buttondruck ein Kommentarfeld für die aktive Zelle in einer bestimmt Schriftgröße erstellen?

Lösung

Geben Sie den nachfolgenden Code in ein Standardmodul ein und weisen Sie ihn einer Schaltfläche zu.




ClassModule: Tabelle3

Private Sub CommandButton1_Click()
Dim cmt As Comment
    ActiveCell.Select
    Application.DisplayCommentIndicator = xlCommentAndIndicator
    Set cmt = ActiveCell.AddComment
    cmt.Shape.Select
    With cmt.Shape.TextFrame.Characters.Font
        .Name = "Arial"
        .Size = 14
    End With
End Sub

Private Sub CommandButton2_Click()
    Application.DisplayCommentIndicator = xlCommentIndicatorOnly
End Sub

StandardModule: Modul1

Sub SetComment()
   Dim cmt As Comment
   Application.DisplayCommentIndicator = xlCommentIndicatorOnly
   If Not ActiveCell.Comment Is Nothing Then
      ActiveCell.Comment.Delete
   End If
   Set cmt = ActiveCell.AddComment("Mein Kommentar")
   With cmt.Shape.TextFrame
      With .Characters.Font
         .Name = "Arial"
         .Size = 14
         .Bold = False
      End With
      .AutoSize = True
   End With
End Sub

    


Beiträge aus dem Excel-Forum zu den Themen Allgemein und Kommentar