Modifier la taille de la police du texte apparaissant dans un "Shape"

Magic_Doctor

XLDnaute Barbatruc
Bonjour,

Sur ma feuille il y a un rectangle ("Shape") dans lequel il y a un texte.
Pour modifier ce texte si j'écris :
VB:
    With ThisWorkbook
      .Sheets(1).Shapes("Horloge").TextFrame.Characters.Text = "Time is money" 'ça marche
      .Sheets(1).Shapes("Horloge").TextFrame.Characters.Size = 10 'ça ne marche pas
    End With
Quelle est la syntaxe exacte pour modifier la taille de la police du texte apparaissant dans ce "Shape" ?

Merci pour tout commentaire.

Bonne soirée à tous.
 

Discussions similaires