HERBERS Excel-Forum - die Beispiele

Thema: Schriftart für Kommentar ändern

Home

Gruppe

Allgemein

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

Arbeitsblatt schützen Kommentare aber noch möglich Zeilenumbruch im Kommentar
Kommentar in erste zelle einess Bereiches Problem mit Kommentaren
Kommentar Eintrag löschen und einrücken Kommentarzeilen in Variablen einlesen
Kommentar Formatierung Kommentare löschen
Kommentare einfügen Kommentar abfragen und ändern
Kommentare wieder sichtbar machen Bild in Kommentar oder Zelle einfügen
Allgemeine Frage zur Fehlerbehandlung allgemeine Fragen zu einer Datenbank
Werte automatisch in Kommentare setzen Freigegebene Arbeitsmappe: Kommentare verschwinden
Pop-Up-Kommentare kann man Kommentare (per Makro) durchsuchen?
Kommentare Kommentar mit Zellenhintergrundfarbe
Kommentare in der Größe ändern mit Makro, wei Kommentar in Abhängigkeit vom Zellinhalt
Kommentare in freigegebener Datei Kommentar suchen löschen
Kommentar-Formatierung Kommentare
Kommentare auslesen Kommentar mit VBA
Kommentarfläche manipulieren Kommentare drucken
Ein Kommentar auf mehrere Zellen Größe der Kommentare
Tabelle sperren u. Kommentar In Zelle Kommentar abhängig vom Wert
2 Schriftgrößen im Kommentar Kommentar nicht scrollen
kommentar fortlaufend nur 10 zeilen Kommentare verschwinden
Problem Kommentarzeichen CommandButton Kommentar zuordnen
allgemein Datei, Seite einrichten, Tabelle, Kommentare grau
Einfügen von Zeilen oberhalb ändert Kommentargr Kommentar Feld
Kommentar Formatierung Kommentare per Makro eintragen
Kommentare in geschütztem Blatt von AA22 nach Kommentar B5 kopieren
Kommentar automatisch formatieren