Anzeige
Archiv - Navigation
284to288
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
284to288
284to288
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Schriftgröße Kommentar per VBA ändern

Schriftgröße Kommentar per VBA ändern
29.07.2003 12:34:15
Hartmut
Hallo, wie kann ich per VBA die Schriftgröße eines Zellen-Kommentars ändern?
Habe in der Recherche nichts gefunden.
Hartmut

6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Schriftgröße Kommentar per VBA ändern
29.07.2003 12:45:09
xXx
Hallo,
zeichne dir den Vorgang mit dem Recorder auf.
Gruß aus'm Pott
Udo

AW: Schriftgröße Kommentar per VBA ändern
29.07.2003 12:55:38
Hartmut
Hallo Udo, habe ich bereits gemacht. Zur Änderung der Schriftgröße erfolgte aber kein Eintrag, warum auch immer.
Gruß Hartmut aus der Stadt der Schlösser (und Beschläge)

AW: Schriftgröße Kommentar per VBA ändern
29.07.2003 14:07:01
HerbertH
Hallo Hartmut,
vielleicht hilft dir das:


Option Explicit
Sub Kommentar()
On Error GoTo fehler
ActiveSheet.Unprotect
Dim Cmt As Comment
'Kommentar in Zelle vorhanden
'Set Cmt = ActiveCell.Comment
'Kommentar in Zelle nicht vorhanden
Set Cmt = ActiveCell.AddComment
'Schrift u.automatische Kommentargröße
With Cmt.Shape.TextFrame
.Characters.Font.Name = "Comic Sans MS"
.Characters.Font.Size = 14
.Characters.Font.ColorIndex = 32  'blau
.Characters.Font.Bold = True
.AutoSize = True
End With
'Hintergrundfarbe Kommentarfeld
Cmt.Shape.Fill.ForeColor.SchemeColor = 5  'gelb
'Text u.Zellfarbe
With ActiveCell
.Comment.Text Text:="Mein Kommentar:"
.Interior.ColorIndex = 43   'grün
End With
Exit Sub
fehler:
MsgBox "kein Kommentar in Zelle oder falsche Anweisung im Makro"
'ActiveSheet.Protect
End Sub


Gruß Herbert

Anzeige
AW: Schriftgröße Kommentar per VBA ändern
29.07.2003 16:02:53
Mario
Hallo Herbert,
das ist ja fast wie Weihnachten.
Ganz herzlichen Dank für die Info.
Viele Grüße
Mario

oT/ Danke Euch allen. Komme jetzt klar.
29.07.2003 21:33:44
Hartmut
oT

300 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige