Texte et propriété msoshape

[Airone784]

Bonjour à tous,

J'ai ce code qui me permet de créer une forme ovale :

Set myDocument = Worksheets(1)
myDocument.Shapes.AddShape msoShapeOval, 200, 200, 50, 50

Je cherche à changer la couleur de cette forme et à insérer du texte dans la forme via du vba mais je n'y parviens pas...

Pour le moment, je crée ma forme et suis obligé de cliquez dans le menu format sous l'onglet outil de dessin puis sur zone de texte et enfin cliquer ma forme pour lui insérer du texte.

Lorsque je fais ça en enregistrement de macro, je n'ai rien dans mon code, donc je rame.

merci beaucoup pour le coup de main 🙂

Bonne journée

 

[job75]

Re : Texte et propriété msoshape

Bonjour Airone784,

Chez moi l'enregistreur marche très bien, en adaptant on peut aboutir à :

Sub test()
Worksheets(1).Shapes.AddShape(msoShapeOval, 200, 200, 50, 50).Select
With Selection
  .Characters.Text = vbLf & "Bonjour !"
  .Characters.Font.Size = 8
  .ShapeRange.Fill.ForeColor.SchemeColor = 45 'rose
End With
ActiveCell.Activate
End Sub

On doit pouvoir éviter la sélection, mais pas le temps...

A+

 

[job75]

Re : Texte et propriété msoshape

Re,

Je viens juste de penser à TextFrame :

Sub test()
With Worksheets(1).Shapes.AddShape(msoShapeOval, 200, 200, 50, 50)
  .TextFrame.Characters.Text = vbLf & "Bonjour !"
  .TextFrame.Characters.Font.Size = 8
  .Fill.ForeColor.SchemeColor = 45 'rose
End With
End Sub

Plus de sélection...

A+

 

[Airone784]

Re : Texte et propriété msoshape

Cela fonctionne parce que tu es sur excel 2003. Sur le 2007. j'ai rien dans l'enregistreur de macro... 🙁

 

[job75]

Re : Texte et propriété msoshape

Re,

Je n'ai pas 2007, mais sur 2010, l'enregistreur fonctionne.

A+

 

[Airone784]

Re : Texte et propriété msoshape

Pour bien faire j'ai le 2007. Et évidemment ca ne fonctionne pas ce qui est très bizarre surtout si l'enregistreur fonctionne de nouveau sur la version 2010.
En tout cas, merci pour ton aide.

Je vais pouvoir avancer... 🙂

Ciao