Message Box

[verluc]

Hello SNB,

Na wat expirementeren met "OPMERKING", stel ik mij de vraag hoe ik een aangepaste
opmerking kan vast zetten.
In Uw voorbeeld hebt U een reeks met verschillende grootte voorgesteld, maar wanneer ik mijn opmerking aanpas blijkt deze telkens terug te keren naar de oorspronkelijke grootte.
Let wel de opmerking word telkens verwijderd en opnieuw geplaatst via VBA
(gehaald uit één van Uw vroegere tussenkomsten)
m.a.w. kan de grootte van een opmerking via VBA worden vastgelegd?)

 

[robdgr]

Plaats hier een voorbeeld: misschien kan een ander je ook helpen.

 

[Warme bakkertje]

Sub Opmerking()
    With [C1]
        .Comment.Delete
        .AddComment
        .Comment.Text "Test: Rudi " & Chr(10) & "Resultaat: OK"
        .Comment.Shape.ScaleWidth 1.1, msoFalse, msoScaleFromTopLeft
        .Comment.Shape.ScaleHeight 1.5, msoFalse, msoScaleFromTopLeft
    End With
End Sub

Width regelt de breedte, Height de hoogte dus zal je een beetje moeten experimenteren