Paramétrage unique des Shapes Textbox.

Bonsoir à tous,

Lorsque je dois coller des commentaires sur un graphique, j'utilise la commande "Shapes.Textbox" et je définis les paramétres de chaque shape (size, fontstyle, colorindex, orientation ...).

C'est laborieux.

Comment faire pour paramétrer, par défaut, tous ces shapes avant de les créer un à un.

:lahola:

Tu peux faire une boucle sur tes graphiques, du type, pour chaque tableau de chiffre, j'applique le paramétrage tel et tel.
De cette facon, tu n'écris qu'une seule fois ton paramétrage...

Je suis à côté de la plaque ?

C'est une solution effectivement, mais qui ne me convient pas car, ayant beaucoup de Textbox, ça va mettre beaucoup trop de temps.

Il doit bien exister une commande qui permette de fixer les valeurs avant toute opération sur les Textbox en question !!!

Mais laquelle ?

That is the question !

:pc:

SAlut
Pourquoi ne pas créé une chape telle que tu la souhaite et ensuite faire des copies de celle ci.

Et en regardant un peu dans la liste d'autocompletion de shape on trouve ca

Code:

---

Shape.SetShapesDefaultProperties

---

:f1:

Citation:

---

Envoyé par Aide VBA

Cette méthode fait de la mise en forme de la forme spécifiée la mise ne forme par défaut de la forme.

---

Bon certe celui qui a ecrit ca avait du prendre un jaune de trop :) mais ca reste comprehensible
A++
Qwaz

Salut Qwazerty,

J'ai bien essayé dans ce sens, et j'arrive à un résultat qui n'est pas ce que je voulais.

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20

Sub FormatTextbox1()   Worksheets("Feuil1").Shapes.AddTextbox(msoTextOrientationVertical, 5, 5, 50, 50).Select With Selection.Font .Name = "Arial" .FontStyle = "Gras" .Size = 12 .ColorIndex = 3 End With With Selection .Orientation = xlUpward .Characters.Text = "Essai1" .ShapeRange.SetShapesDefaultProperties End With   Worksheets("Feuil1").Shapes.AddTextbox(msoTextOrientationUpward, 5, 100, 50, 100).Select Selection.Characters.Text = "Essai2"     End Sub

---

Si tu testes ce code tu t'aperçois que les paramètres n'ont pas été pris en compte, et le texte n'est pas en gras ni en rouge.

A mon avis, je suis sur la piste mais le ".ShapeRange.SetShapesDefaultProperties" est mal placé ou ne s'applique pas aux Textbox !!!

??? :traine:

Avis à tous,

Je n'ai toujours pas régler ce problème !!! :evilred:

Qui peut m'aider ?

Citation:

---

Envoyé par Qwazerty

SAlut
Pourquoi ne pas créé une chape telle que tu la souhaite et ensuite faire des copies de celle ci.
Qwaz

---

Salut
Ben je reedit, si tu trouves vraiment pas de solution "propre", il reste la solution du shape que tu formates et que tu laisse vierge dans un coin de ta feuille (avec visible a False), ensuite tu en fais une copie quand tu as besoin que tu rend visible et que tu place au besoin sur ta feuille

A++
Qwaz