Darstellung Kommentare nach Zeilen einfügen

Hallo Excel-Forum,
ich habe ein Problem beim Einfügen von Zeilen mit der Darstellung von vorhandenen Kommentaren.
Ich habe diverse mehrspaltige Liste von Fragen / Antwortmöglichkeit / Bewertung mit über 300 Zeilen. Hier muß ich öfter auch mal Zeilen an beliebigen Stellen einfügen. An ca. 100 Zellen sind Kommentare angebunden die völlig unterschiedliche Größen haben.
Mein Problem : füge ich eine / mehrere Zeilen ein, wird die Darstellung von einer Vielzahl von Kommentaren verändert. D.h. bei einigen Kommentaren wird das Kommentarkästchen wesentlich länger dargetellt, bei einigen wesentlich kürzer so das man den Kommentar überhaupt nicht mehr lesen kann.
Ich kann nicht jedes mal alle Kommentare nachbearbeiten, das ist ein immenser Aufwand.
Wie kann ich ggf. die Kommentare wieder automatisch an die richtige Größe anpassen (die Breite ist weiterhin okay)? Oder wie kann ich es vermeiden, dass die Ansicht meiner Kommentare sich überhaupt verändert ?
Wer kann mir weiterhelfen ?
Gruß,
Annja

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo Anja,
ich habe 3 verschiedene Makros, um Kommentare den nötigen Größen anzupassen; von mir nicht getestet - als darfst du:


Sub CommentFitter1()
Application.ScreenUpdating = False
Dim x As Range, y As Long
For Each x In Cells.SpecialCells(xlCellTypeComments)
Select Case True
Case Len(x.NoteText) <> 0
With x.Comment
.Shape.TextFrame.AutoSize = True
If .Shape.Width > 250 Then
y = .Shape.Width * .Shape.Height
.Shape.Width = 150
.Shape.Height = (y / 200) * 1.2
End If
End With
End Select
Next x
Application.ScreenUpdating = True
End Sub


Sub CommentFitter2()
Application.ScreenUpdating = False
Dim x As Range, y As Long
For Each x In Cells.SpecialCells(xlCellTypeComments)
Select Case True
Case Len(x.NoteText) <> 0
With x.Comment
.Shape.TextFrame.AutoSize = True
If .Shape.Width > 250 Then
y = .Shape.Width * .Shape.Height
.Shape.ScaleHeight 0.9, msoFalse, msoScaleFromTopLeft
.Shape.ScaleWidth 1#, msoFalse, msoScaleFromTopLeft
End If
End With
End Select
Next x
Application.ScreenUpdating = True
End Sub


Sub comment_size()
Dim c As Comment
For Each c In ActiveSheet.Comments
c.Shape.OLEFormat.Object.AutoSize = True
Next
End Sub

Gruß,
Beate

Beliebteste Forumthreads (12 Monate)

Darstellung Kommentare nach Zeilen einfügen

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Darstellung Kommentare nach Zeilen einfügen

4 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread