Discussion :

[Beber39]

Bonjour,

Access permet d'ajouter une (des) zone(s) de texte dans un graphe.

Comment est-il possible de le faire par VBA ?
Comment modifier le texte contenu dans cette zone de texte ?

Le code ci-dessous (issu de Excel) ne fonctionne pas :

Code :

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

1
2
3
4
 
    Dim MonGraph As Object
    Set MonGraph = Forms!F_ProfilGraphe.GrapheScore.Object.Application.Chart
    MonGraph.Shapes.AddTextbox(msoTextOrientationHorizontal, 1, 1, 89, 21).Select

Merci

[Jean-Philippe André]

Salut,

un peu de lecture :
https://loufab.developpez.com/tutori...cess/msgraph2/

[Beber39]

Merci.
J'ai bien consulté ce tuto avant de poser ma question ; le cas des zones de texte n'est pas abordé.

Ma question porte sur une zone de texte ajouté en mode dessin sur le graphe, et qui n'est ni une étiquette, ni une légende, ni un titre, ...

Cordialement

[Jean-Philippe André]

Ah ok,

je te propose alors cette approche :
-lance l'enregistreur de macros dans Excel
-fais la manipulation d'ajout de ton texte
-donne nous le code généré

On aura ainsi une base et une excellente piste à suivre

[Beber39]

Bonjour,

voici le code généré sous Excel 2016.
On retrouve "ActiveChart.Shapes.AddTextbox" qu'Access n'accepte pas.

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
29
 
    ' Création de la zone de texte dans le graphique
    ActiveSheet.ChartObjects("Graphique 1").Activate
    ActiveChart.PlotArea.Select
    ActiveChart.Shapes.AddTextbox(msoTextOrientationHorizontal, 75, 55.5, 78.75, _
        41.25).Select
    Selection.ShapeRange(1).TextFrame2.TextRange.Characters.Text = "essai"
    Selection.ShapeRange(1).TextFrame2.TextRange.Characters(1, 5).ParagraphFormat. _
        FirstLineIndent = 0
    With Selection.ShapeRange(1).TextFrame2.TextRange.Characters(1, 5).Font
        .NameComplexScript = "+mn-cs"
        .NameFarEast = "+mn-ea"
        .Size = 11
        .Name = "+mn-lt"
    End With
    Range("E13").Select
    ' Modification du texte de la zone de texte
    ActiveSheet.ChartObjects("Graphique 1").Activate
    ActiveChart.Shapes.Range(Array("TextBox 1")).Select
    Selection.ShapeRange(1).TextFrame2.TextRange.Characters.Text = "essai2"
    Selection.ShapeRange(1).TextFrame2.TextRange.Characters(1, 6).ParagraphFormat. _
        FirstLineIndent = 0
    With Selection.ShapeRange(1).TextFrame2.TextRange.Characters(1, 6).Font
        .NameComplexScript = "+mn-cs"
        .NameFarEast = "+mn-ea"
        .Size = 11
        .Name = "+mn-lt"
    End With
    Range("E13").Select

Merci pour votre aide.

[Beber39]

Jean-Philippe,

j'ai répondu à ta suggestion de mettre le code généré sous Excel.

Y a-t-il une piste pour pour le rendre "compatible" Access 2016 ?
En particulier cette ligne : ActiveChart.Shapes.AddTextbox(msoTextOrientationHorizontal, 75, 55.5, 78.75, 41.25).Select

Merci.