XL 2010 Modifier couleur de texte de zonetexte par vba

[Gnedea]

Salut c'est encore moi
J'ai réussi à modifier la couleur de bordure de zonetexte par vba
Je souhaite changer la couleur du texte, la couleur de remplissage etc... de la zone de texte nommée Zonetexte 1 par vba
Pour la modification de la couleur de bordure j'utilise cette macro :

Private Sub CommandButton1()
Dim Zonetexte As Shapes
Set Zonetexte=Sheets("Feuil1").Shapes("Zonetexte 1")
Zonetexte.select
With Sélection.ShapeRange.Line
. Visible=msoTrue
.ForeColor.RGB=&H80000012
.Transparence=0
End With
Merci pour votre aide

 

[sylvanu]

Bonsoir Gnedea,
Dans votre post précédent, j'ai mis un lien permettant de modifier toutes les propriétés d'un Shape.

 

[Gnedea]

Bonsoir Gnedea,
Dans votre post précédent, j'ai mis un lien permettant de modifier toutes les propriétés d'un Shape.

Merci c'est génial

 

[patricktoulon]

Bonjour à tous
pour ceux pour qui c'est compliqué de manipuler le fillformat des shapes
il y a la collection DrawingObjects avec la quelle les propriétés sont pour certaines identiques à celle des cellules
entre autres le "Interior.color"
exemple en rouge

ActiveSheet.DrawingObjects("ZoneTexte 1").Interior.Color = vbred 'avec la constante rouge de vb
'ou
'ActiveSheet.DrawingObjects("ZoneTexte 1").Interior.Color = &HFF ' avec le code hex de la couleur rouge

les choses deviennent plus simples