Discussion :

[robynou]

Bonjour,
J'aimerais ajouter une texte box a un graphique que j'ai crée contenant un petit texte explicatif du graph.
Le souci c'est que ma barre d'outil avec laquelle je veux ajouter la TextBox(la control toolbox) est grisée donc je ne peux pas ajouter de texte.
Savez vous d'ou viens ce probleme ??

En vous remerciant d'avoir prété attention a ma requete
Roby

[ouskel'n'or]

As-tu pensé à utiliser la zone du titre ?
Sinon, utilise la zone de texte de la barre d'outils Dessin.
Pour que tu puisses tester, j'ai placé un graphe dans la feuille "Feuil1"
Le graphe se nomme donc "Graphique 1", et comme la zone de texte est le dernier objet créé dans la feuille, j'utilise "ActiveSheet.Shapes.Count" pour le nommer.
Mais lis les commentaires, ça m'évitera une nouvelle explication

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
21
22
23
24
25
26
27
28
Sub Test()
Dim Sh As Shape
    Worksheets("feuil1").Activate 'Place dans la feuille contenant le graphe
    'Création de la zone de texte
    Set Sh = ActiveSheet.Shapes.AddTextbox(msoTextOrientationHorizontal, 491.25, 241.5, _
        101.25, 27.75)
    'Sélection de la zone de texte
    Sh.Select
    Selection.Characters.Text = "blablabla" 'ton texte
    'On coupe
    Sh.Cut
    'pour le coller dans la zone graphique
    ActiveSheet.ChartObjects("Graphique 1").Activate
    'sélection de la zone graphique
    ActiveChart.ChartArea.Select
    ActiveChart.Paste 'collage de la zone de texte
 
    'Positionnement de la zone de texte dans le graphe :
    'le déplacement se fait par rapport aux limites gauche et haute de la zone graphique
    ActiveSheet.Shapes(ActiveSheet.Shapes.Count).Select
    Selection.ShapeRange.IncrementLeft 25.4
    Selection.ShapeRange.IncrementTop 25.36
 
    'Positionnement du graphe dans la feuille de calculs
    ActiveSheet.Shapes("Graphique 1").Top = 50
    ActiveSheet.Shapes("Graphique 1").Left = 50
    Set Sh = Nothing
End Sub

POurquoi faire aussi compliqué ? (créer puis couper puis coller...) Parce qu'ainsi, la zone de texte fait partie du graphe et le suit en cas de déplacement du graphe.
Il y a sans doute plus simple mais ça ne me revient pas.
Bonne soirée