Makro der opretter et kommentar-felt

Kopier lige din makro herind - så kigger jeg lige på det.

Denne kode opretter en kommentar, og ændrer størrelsen:

    Range("D7").AddComment
    Range("D7").Comment.Visible = False
    Range("D7").Comment.Text Text:="Dit Navn:" & Chr(10) & ""
    Selection.ShapeRange.ScaleWidth 1.88, msoFalse, msoScaleFromTopLeft
    Selection.ShapeRange.ScaleHeight 2.19, msoFalse, msoScaleFromTopLeft

De tal, der ændrer størrelsen er forholdstal i forhold til boksens standardstørrelse.

MVH tjacob

Her er et eksempel:

    Range("A1").AddComment
    Range("A1").Comment.Visible = False
    Range("A1").Comment.Text Text:="Flemming Dahl:" & Chr(10) & ""
    Selection.ShapeRange.ScaleWidth 1.9, msoFalse, msoScaleFromTopLeft
    Selection.ShapeRange.ScaleHeight 1.8, msoFalse, msoScaleFromTopLeft

Se de 2 nederste linier - Selection skal måske ændres i din makro ?!?

UPS, jeg glemte skrifttypen:

    Range("C9").AddComment
    Range("C9").Comment.Visible = False
    Range("C9").Comment.Text Text:="Dit Navn:" & Chr(10) & ""
    Selection.ShapeRange.ScaleWidth 1.88, msoFalse, msoScaleFromTopLeft
    Selection.ShapeRange.ScaleHeight 2.19, msoFalse, msoScaleFromTopLeft
    With Selection.Font
        .Name = "Arial"
        .Size = 10
        .Strikethrough = False
        .Superscript = False
        .Subscript = False
        .OutlineFont = False
        .Shadow = False
        .Underline = xlUnderlineStyleNone
        .ColorIndex = xlAutomatic
    End With

Den virker ikke - programmet afbrydes ved linien :
Selection.ShapeRange.Scale....
Fejlen er :
Run-time error '438'
Object doesn't support this property or method.

Hvilken version kører du?

Jeg har netop prøvet selv, og jeg kan heller ikke køre den. Ser på sagen...

Microsoft Excel 2000

Der var den!
Mente nok jeg havde den liggende et sted ...

Sub CommentChange()
  With ActiveCell
    .Comment.Shape.TextFrame. _
        Characters.Font.Size = 14
    .Comment.Shape.TextFrame. _
      Characters.Font.Bold = False 'or True
    .Comment.Shape.TextFrame. _
      Characters.Font.ColorIndex = 3 'Red
  End With
End Sub

Ovenstående sætter font-størrelsen i den aktive celle til 14, slår fed skrift fra, og sætter font-farven til rød.

Ja, perfekt det virker men, hvordan ændres størrelse på selve kommentarfeltet samt skrifttypen (f.eks. til Ariel) ?

Ang. skrifttype: Tilføj linien

.Comment.Shape.TextFrame.Characters.Font.Name = "Arial"

Ang. størrelse: Tilføj linien

.Comment.Shape.TextFrame.AutoSize = True