Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1764to1768
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
Inhaltsverzeichnis

VBA Kommentare formatieren, Kom.-Größen

VBA Kommentare formatieren, Kom.-Größen
09.06.2020 20:24:29
Martin
Hallo zusammen,
mein Excel hat ca. 1000 Datensätze, davon sind ca. die Hälfte mit Kommentaren belegt.
In Spalte B wurden gleichgroße Bilder in den Kommentaren eingefügt, alle anderen Kommentare sind mit Texten befüllt.
Ich würde gerne alle Kommentare in Spalte B eine bestimmte Größe geben und die Text-Kommentare _
in den anderen Spalten eine andere Größe geben.

Sub Makro1()
Dim C As Comment
For Each C In ActiveSheet.Comments
C.Shape.Width = 180
C.Shape.Height = 200
Next C
End Sub

Wie gehe ich mit Spalte B um?
Vielen Dank im Voraus!
Martin

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: VBA Kommentare formatieren, Kom.-Größen
09.06.2020 21:24:38
Dieter
Hallo Martin,
das könnte so aussehen (ungetestet)
Sub Makro1()
Dim C As Comment
For Each C In ActiveSheet.Comments
If C.Parent.Column = 2 Then
' Kommentar liegt in Spalte B
C.Shape.Width = 80
C.Shape.Height = 100
Else
' Kommentar liegt nicht in Spalte B
C.Shape.Width = 180
C.Shape.Height = 200
End If
Next C
End Sub
Viele Grüße
Dieter
AW: VBA Kommentare formatieren, Kom.-Größen
09.06.2020 23:18:40
Martin
Vielen Dank, das hat wunderbar geklappt!
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige