(standaard) afmeting van een comment (opmerking) aanpassen

[nhojnavslig]

Heren,

Kan iemand mij vertellen waar ik de standaard grootte van een "opmerking" kan veranderen, (als dit al mogelijk is natuurlijk)

Bij voorbaat dank, John

 

[HSV]

Is helaas niet mogelijk.
Er is wel het een en ander te realiseren met een macro om de grootte aan te passen.

 

[edmoor]

Er is volgens mij geen mogelijkheid om de standaard grootte van een opmerking in te stellen. Wel kan je voor bestaande opmerkingen dit uitvoeren:

Sub SetCommentBoxSize()
    Dim C As Comment, WS As Worksheet
    For Each WS In Worksheets
        For Each C In WS.Comments
            C.Shape.Width = 300
            C.Shape.Height = 200
        Next
    Next
End Sub

Waarin je dan zelf even het juiste formaat moet instellen.
Alle bestaande opmerkingboxen in het hele document krijgen dan dat formaat.

Edit:
Wat Harry al zei

 

[nhojnavslig]

Hallo edmoor,

Dit is voor mij een prima oplossing !!!
Bedankt voor de snelle reactie, ....

Grtz, John

 

[OctaFish]

Deze macro kun je gebruiken om één commentaar aan te passen, of alles op een werkblad. Bovendien niet met vaste afmetingen, maar percentueel.

Sub ChangeSize_Comments_SSh()
Dim cCell As Range
Dim sComment As Comment
Dim allComments As Range
Dim Sh As Worksheet
Dim Ans As Integer
Dim All As Boolean

    Ans = MsgBox("Activesheet (Yes) or ALL sheets (No)", vbYesNoCancel)
    If Ans = 2 Then Exit Sub
    All = IIf(Ans = 7, True, False)
    If Not All Then Set Sh = ActiveSheet: GoTo skipSh
    For Each Sh In ActiveWorkbook.Sheets
skipSh:
        On Error Resume Next
        Set allComments = Sh.Range("A1").SpecialCells(xlCellTypeComments)
        If allComments Is Nothing And Not All Then MsgBox "No comments in " & ActiveSheet.Name: GoTo Ex
        For Each cCell In allComments
            With cCell.Comment
                .Shape.LockAspectRatio = True
                .Shape.Height = .Shape.Height * 1.25
            End With
        Next cCell
    Next Sh
    
Ex:
    Set allComments = Nothing
    Set Sh = Nothing

End Sub

 

[HSV]

En anders laat je de grootte bepalen door de tekst die er in staat met.....

[a1].Comment.Shape.TextFrame.AutoSize = True