Insérer et modifier une zone de texte dans un graphe Access par VBA

Version imprimable

11/05/2018, 14h24
Beber39

Insérer et modifier une zone de texte dans un graphe Access par VBA
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:

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
11/05/2018, 16h45
Jean-Philippe André

Salut,

un peu de lecture :
https://loufab.developpez.com/tutori...cess/msgraph2/
11/05/2018, 18h14
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
11/05/2018, 18h34
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 :)

Bonjour,

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

Code:

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.

22/05/2018, 15h45
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.
22/05/2018, 16h03
Jean-Philippe André

Salut,

lorsque je relis le tutoriel donné plus haut, il n'est pas spécifié que l'on puisse ajouter des zones de texte en tant que tel, aussi n'as-tu pas la possibilité d'avoir la textbox directement dans ton formulaire en amont de ton chart ?
22/05/2018, 17h53
Beber39

Oui, bien sûr.
Mais je construis le graphe par VBA et sa taille peut varier. Il me semblait plus simple et logique d'ajouter les zones de texte au cours de la procédure.

D'autant plus qu'il est possible d'ajouter ces zones de texte avec le menu des graphes Access ! alors, pourquoi pas par VBA !

Enfin, si l'ajout par VBA n'est vraiment pas possible, je me rabattrais sur ta solution.

Merci.