AW: Kommentare formatieren
27.07.2005 09:30:04
Hajo_Zi
Hallo Volker,
Excel Zellen Kommentar Eigenschaften
ob und wie man die Eigenschaften dauerhaft umstellen kann, weiß ich nicht. Ich helfe mir immer mit folgendem Makro, das alle Kommentare auf allen Arbeitsblättern der aktiven Arbeitsmappe auf einmal nach meinem Geschmack formatiert:
Sub Kommentar_Font()
Dim Cell As Range
For Each Cell In Cells.SpecialCells(xlCellTypeComments)
With Cell.Comment.Shape.TextFrame.Characters.Font
.Size = 100
.Bold = True
.ColorIndex = 3
.FontStyle = "Arial"
End With
Cell.Comment.Shape.Fill.ForeColor.SchemeColor = 32 Hintergrundfarbe
Next
End Sub
Oder noch größer
Sub Kommentar_Font_14_AutoSize()
Dim Cell As Range
For Each Cell In Cells.SpecialCells(xlCellTypeComments)
With Cell.Comment.Shape.TextFrame
.Characters.Font.Name = "Comic Sans MS"
.Characters.Font.Size = 14
.Characters.Font.Bold = False
.AutoSize = True
End With
Next
End Sub
Von Heri
Bitte keine Mail, Probleme sollten im Forum gelöst werden.
Microsoft MVP für Excel
Das Forum lebt auch von den Rückmeldungen.
Betriebssystem XP Home SP2 und Excel Version 2003 SP1.