Comment peut-on augmenter la taille de la police des commentaires ?

Pour modifier par ex. la taille du commentaire (automatique), la police, la taille de la police, et la couleur de fond du commentaire:

sub Ajust_Commentaires()
  Dim Wks As Worksheet, Cmt As Comment
  For Each Wks In Worksheets
    For Each Cmt In Wks.Comments
 
 Cmt.Shape.OLEFormat.Object.AutoSize = True
      With Cmt.Shape.OLEFormat.Object.Font
        .Name = "Tahoma"
        .Size = 10
 
    End With
      Cmt.Shape.OLEFormat.Object.ShapeRange.Fill _
      .ForeColor.SchemeColor = 42
    Next Cmt
  Next Wks
 end sub