VBA ACCESS redimensionner graphe dans formulaire

Question

Bonjour,

J'ai un graphique dans un formulaire que je voudrais redimensionner quand je change la taille du formulaire.

Le code suivant est inopérant ...

Private Sub Form_Resize()
    Me.Graphique.Width = Me.Width - Me.Graphique.Left
    Me.Graphique.Height = Me.Section(acDetail).Height - Me.Graphique.Top
    Me.Repaint
End Sub

Quelqu'un a une idée ?

Answer 1

Salut Blaise !

Il faut intervenir sur les dimensions du graphe lui-même, notamment le PlotArea.

vChart.PlotArea.Width

Tu as 2 tutos sur ma page perso qui devrais te familiarisé avec l'objet Graph (si tu ne l'es pas).

Attention avec W7 il semble qu'il y ai quelque problèmes avec le redimensionnement.

Cordialement,

---

Visitez mes sites : http://2gm.free.fr | http://loufab.developpez.com

Answer 2

Private Sub Form_Resize()
    On Error Resume Next 'au cas où le formulaire est trop petit
    Me.Graphique.Width = Me.InsideWidth - Me.Graphique.Left - 10
    Me.Graphique.Height = Me.InsideHeight - Graphique.Top - 10
    Me.Recalc
End Sub