Discussion :

[CAFOUIN]

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.

[House MD]

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 ?

[CAFOUIN]

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 !

[Qwazerty]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

Shape.SetShapesDefaultProperties

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

[CAFOUIN]

Salut Qwazerty,

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 !!!

???

[CAFOUIN]

Avis à tous,

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

Qui peut m'aider ?

[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