Supportnet / Forum / Tabellenkalkulation

Hallo, ich habe ein Problem mit der Formatierung des hinzugefügten Kommentars. Mein Dokument ist so aufgebaut, dass 2 Fenster offen sind. Im rechten, ziemlich schmalen Fenster steht eine Liste mit Texten die ins linke Fenster übernommen werden sollen. Zu den Texten gibt es verschiedene Kommentare die bei Bedarf einen Hinweis zur Textverwendung geben sollen. Trotzdem dass das rechte Fenster sehr schmal eingestellt ist, werden die Kommentare nach rechts aufgeklappt und sind damit außerhalb des Fensters. Gibt es eine Möglichkeit die Kommentare nach unten aufzuklappen? Eine zweite Frage wäre, wo kann ich voreinstellen in welcher Formatierung (Schriftart, Größe) der Kommentar erscheint? Schon jetzt vielen Dank für Eure Hilfe Gruss Ro

hi ro :)

hier schon mals beispiele fuer groesse und schriftart des kommentars.

gruss nighty

Sub makro01()

rem zelle c16 wird bearbeitet bzw. kommentar erstellt

Range("C16").AddComment
Application.DisplayCommentIndicator = xlCommentAndIndicator
Range("C16").Comment.Shape.Select True

rem hier die groesse

With Selection.ShapeRange
.Width = 100
.Height = 200
End With

rem hier dein font einzusetzen

With Selection.Font
.Name = "Tango BT"
.FontStyle = "Regular Fett"
.Size = 10
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.ColorIndex = xlAutomatic
End With

rem dein text

Range("C16").Comment.Text Text:="DEIN TEXT"
Range("C16").Comment.Visible = False
End Sub

Hallo Ro,

nichts gegen den Vorschlag von nighty,

vielleicht reichen dir auch schon die Standartformatierungen:

Kommentar anklicken => rechte Maustaste => Menue Kommentar formatieren!

Das erste Problem kann ich nicht nachvollziehen! :-(

gruss
pelle

hi pelle :)

dann halt noch was schoenes :)

laedt ein beliebiges bild in ORIGINALGOESSE ins kommentarfeld :)

gruss nighty

Sub makro01()
'Das Bild erstmal in die Tabelle einfügen und pfad aendern :)

ActiveSheet.Pictures.Insert( _
"C:\Briefe\micha\jpg\zille.jpg" _
).Select
'Breite/Höhe merken
mywidth = Selection.Width
myheight = Selection.Height
'Bild löschen
Selection.Delete

'evtl vorhandenen Kommentar löschen
On Error Resume Next
Range("C16").Comment.Delete
On Error GoTo 0

'Kommentar erstellen
Range("C16").AddComment
Range("C16").Comment.Visible = False

Application.DisplayCommentIndicator = xlCommentAndIndicator
Range("C16").Comment.Shape.Select True

'Jetzt die gemerkte Breite/Höhe auf das Kommentarobjekt übertragen
With Selection.ShapeRange
.Width = mywidth
.Height = myheight
End With
' Selection.ShapeRange.Line.Weight = 0.75

'Kommentarhintergrund mit Bild befüllen
Selection.ShapeRange.Fill.UserPicture _
"C:\Briefe\micha\jpg\zille.jpg"
Range("C16").Select
Application.DisplayCommentIndicator = xlCommentIndicatorOnly
End Sub

• Kommentar aus anderem Blatt
• Benutzername als Kommentar bei Zellenänderung anzeigen!DANKE!
• Bedingte Formatierung (mehrere Namen in 1 Formatierung)
• Name im Excel Kommentar entfernen
• Bild in Kommentar