Live-Forum - Die aktuellen Beiträge
Datum
Titel
07.12.2024 17:25:12
07.12.2024 16:21:30
07.12.2024 15:22:10
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender Navigationstipps
2 Schriftgrößen im Kommentar
30.04.2008 14:51:00
mario
Hallo,
ich möchte gern 2 verschieden Schriftgrößen im Kommentar haben.
- eine kleinere für "Application.UserName"
- eine größere für den eingegebenen Text
Ich bekomme es leider nur für die gesamte Box hin. Könnt Ihr mir bitte mal helfen?!

Private Sub CommandButton3_Click() 'Kommentar_erstellen
Dim cmt As Comment
Dim sComment As String
'Application.DisplayCommentIndicator = xlCommentAndIndicator
Application.DisplayCommentIndicator = xlCommentIndicatorOnly
If Not ActiveCell.Comment Is Nothing Then
ActiveCell.Comment.Delete
End If
sComment = InputBox(prompt:="Bitte Kommentar eingeben:")
If sComment = "" Then Exit Sub
Set cmt = ActiveCell.AddComment
With cmt
.Visible = False
.Text Text:=Application.UserName & ":" & vbLf & sComment
With .Shape
.Height = 40
.Width = 150
With cmt.Shape.TextFrame.Characters.Font
.Name = "Arial"
.Size = 12
.Bold = False
End With
End With
End With
End Sub


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

Betreff
Datum
Anwender
Anzeige
AW: 2 Schriftgrößen im Kommentar
30.04.2008 15:28:34
Rudi
Als Anregung:

Sub Kommentar()
Dim cmt As Comment
Set cmt = Range("A1").Comment
If cmt Is Nothing Then Set cmt = Range("A1").AddComment
With cmt
.Text Text:="Username:" & Chr(10) & "testKommentar"
With .Shape.OLEFormat.Object
With .Characters(1, 9).Font
.Size = 10
.Bold = True
End With
With .Characters(10, 20).Font
.Size = 12
.Bold = False
End With
End With
End With
End Sub


Gruß
Rudi

AW: 2 Schriftgrößen im Kommentar
30.04.2008 17:58:00
mario
Danke!
Ich habe teile davon bei mir eingesetzt und es funktioniert.
Anzeige

300 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige
Anzeige

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige