none
VBA ACCESS redimensionner graphe dans formulaire RRS feed

  • 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 ?


    • Déplacé ArgyronetModerator vendredi 21 septembre 2012 07:26 95bf9f38-f413-490d-bea7-906c65555bb8 (Origine :Développement VBA)
    samedi 21 juillet 2012 12:54

Réponses

  • 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
    

    • Marqué comme réponse blaise032 mercredi 3 octobre 2012 08:12
    mercredi 3 octobre 2012 08:12

Toutes les réponses

  • 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


    • Modifié loufab mercredi 1 août 2012 14:52
    • Marqué comme réponse Aurel Bera mardi 2 octobre 2012 14:22
    • Non marqué comme réponse blaise032 mercredi 3 octobre 2012 08:09
    vendredi 27 juillet 2012 12:31
  • 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
    

    • Marqué comme réponse blaise032 mercredi 3 octobre 2012 08:12
    mercredi 3 octobre 2012 08:12