Google Groups no longer supports new Usenet posts or subscriptions. Historical content remains viewable.
Dismiss

Zell-Kommentar per VBA formatieren

1,486 views
Skip to first unread message

HelmutMit

unread,
Jul 17, 2009, 11:28:08 AM7/17/09
to
Hallo,
wer weiß, wie man per VBA die Schriftgröße eines Zell-Kommentars
verändern kann? Der Makro-Recorder versagt da nämlich und zeichnet
nicht auf.
Ich arbeite mit Excel2007.
Gruß Helmut

Claus Busch

unread,
Jul 17, 2009, 11:38:55 AM7/17/09
to
Hallo Helmut,

Am Fri, 17 Jul 2009 08:28:08 -0700 (PDT) schrieb HelmutMit:

> wer wei�, wie man per VBA die Schriftgr��e eines Zell-Kommentars
> ver�ndern kann? Der Makro-Recorder versagt da n�mlich und zeichnet
> nicht auf.

probiers mal so:

Public Sub KommentareFormatieren()
Dim com As Comment

Application.ScreenUpdating = False

For Each com In ActiveSheet.Comments
'F�llfarbe
com.Shape.Fill.ForeColor.SchemeColor = 32

'Rahmenfarbe
com.Shape.Line.ForeColor.SchemeColor = 13

'Ausrichtung
With com.Shape.TextFrame
.VerticalAlignment = xlVAlignBottom
.AutoSize = True
End With

'Schriftzeichen
With com.Shape.TextFrame.Characters.Font
.Bold = True
.ColorIndex = 6
.Name = "Arial"
.Size = 10
End With
Next com

Application.ScreenUpdating = True
End Sub


Mit freundlichen Gr�ssen
Claus Busch
--
Win XP PRof SP2 / Vista Ultimate SP2
Office 2003 SP2 /2007 Ultimate SP2

HelmutMit

unread,
Jul 17, 2009, 12:13:17 PM7/17/09
to
On 17 Jul., 16:38, Claus Busch <claus_bu...@t-online.de> wrote:
> Hallo Helmut,
>
> Am Fri, 17 Jul 2009 08:28:08 -0700 (PDT) schrieb HelmutMit:
>
> > wer weiß, wie man per VBA die Schriftgröße eines Zell-Kommentars
> > verändern kann? Der Makro-Recorder versagt da nämlich und zeichnet

> > nicht auf.
>
> probiers mal so:
>
> Public Sub KommentareFormatieren()
>     Dim com As Comment
>
>     Application.ScreenUpdating = False
>
>     For Each com In ActiveSheet.Comments
>     'Füllfarbe

>     com.Shape.Fill.ForeColor.SchemeColor = 32
>
>     'Rahmenfarbe
>     com.Shape.Line.ForeColor.SchemeColor = 13
>
>     'Ausrichtung
>     With com.Shape.TextFrame
>         .VerticalAlignment = xlVAlignBottom
>         .AutoSize = True
>     End With
>
>     'Schriftzeichen
>     With com.Shape.TextFrame.Characters.Font
>         .Bold = True
>         .ColorIndex = 6
>         .Name = "Arial"
>         .Size = 10
>     End With
>     Next com
>
>     Application.ScreenUpdating = True
> End Sub
>
> Mit freundlichen Grüssen

> Claus Busch
> --
> Win XP PRof SP2 / Vista Ultimate SP2
> Office 2003 SP2 /2007 Ultimate SP2

Hallo Claus,
ganz große Klasse. Wo kriegt man die Info her, wenn man keinen Claus
Busch im Rücken hat?
Vielen Dank und Gruß Helmut

Bernd P

unread,
Jul 18, 2009, 4:31:29 AM7/18/09
to
Hallo,

Du googelst einfach nach "excel vba change comment font size". Oder
nach "excel vba ändere kommentar schriftgröße".

Es ist inzwischen einfacher und schneller, mit den Worten Excel oder
Excel VBA nach Hilfe im Web zu suchen als auf die Excel 2007 Online
Hilfe zu warten und sich dann über die schlechter und
unübersichtlicher gewordene offizielle Excel Hilfe zu ärgern.

Viele Grüße,
Bernd

HelmutMit

unread,
Jul 18, 2009, 5:51:04 AM7/18/09
to

Hallo Bernd,
danke für den Tipp, man sitzt doch immer noch viel zu sehr in alten
Denk-Kategorien fest!
Gruß Helmut

0 new messages