Discussion :

[nicoosito]

Bonjour,

J'ai inséré dans un formulaire un objet graphique lié à une table. Le graphique fonctionne trés bien, lorsque je le sélectionne et que j'effectue un clic droit sur celui ci, je peux choisir d'afficher la feuille de données du graphique. Ce que je souhaiterais, c'est connaitre la commande vba qui me permette de faire ca directement. Du genre DoCmd.open... Seulement , il s'agit d'un objet graphique donc je ne sais pas si il est possible de le faire dans access.

Merci

Bonne journée

[loufab]

Bonjour,

Quand tu parles d'objet graphique, s'agit-il d'un graphique de type Ms graph ou du formulaire en mode graphique croisé dynamique ?

Cordialement,

[nicoosito]

Bonjour,

Il s'agit d'un graphique de type Ms graph

[loufab]

Bonjour,

Tu dois donc l'instancier et mettre la propriété HasDataTable à vrai.

Un tuto est en préparation sur la programmation de Ms Graph.

Code :

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

1
2
3
Dim MonGraph As Graph.Chart
Set MonGraph = me.MonControleGRaphique.Object.Application.Chart
Mongraph.hasdatatable = true

Cordialement,

[nicoosito]

Je dois remplacer "MonGraph" par le nom de mon graphique ? et MonControleGRaphique par quoi ?

Merci

[loufab]

non simplement remplacer MonControleGraphique par le nom du controle graphique.

[nicoosito]

Tu entends quoi par controle graphique ?

Il me plante sur la première ligne en me disant : Type défini par l'utilisateur non défini

[loufab]

oups !

J'ai oublié l'essentiel. Il faut que tu reférences la bibliothèque Microsoft Graph xx.x object library.

Le controle graphique c'est le controle qui contient le graphe.

[nicoosito]

Merci, c'est excellent ! j'ai mis la mm chose avec = false, comme ca on peut l'activer ou non.

Une autre petite question, il me met met automatiquement la police en 23,5 alors que je la souhaiterais en 10. Je dois donc la remodifier à chaque fois, puis-je la modifier automatiquement ?

[loufab]

pareil. à partir de l'objet tu regarde les propriétés Fontstyle, fontSize...

Procure-toi le modèle graph sur le msdn dispo en libre téléchargement.

[nicoosito]

parfait, j'ai réussi merci beaucoup en tout cas

[marcelstan]

Bonjour
si l'objet était plutot un formulaire croisé dynamique comment est ce qu'il aurait procédé? J'ai presque le meme problème je souhaite exporter un formulaire croisé dynamique vers powerpoint.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Sub copie()
 Dim ppt As powerpoint.Application
 Dim pres As powerpoint.Presentation
 Dim ppSlide1 As powerpoint.Slide
 
 
 
 DoCmd.OpenForm "F_évolutions_familles"
 DoCmd.RunCommand acCmdCopy
 
Set pres = ppt.Presentations.Add ' ERREUR D'EXECUTION 91
 Set ppSlide1 = pres.Slides.Add(1, ppLayoutLargeObject)
 ppSlide1.Shapes.Paste
End Sub