IdentifiantMot de passe
Loading...
Mot de passe oublié ?Je m'inscris ! (gratuit)
Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

VBA Discussion :

Modifier la police d'un axe d'un graphique Excel


Sujet :

VBA

  1. #1
    Membre du Club
    Inscrit en
    Décembre 2003
    Messages
    111
    Détails du profil
    Informations forums :
    Inscription : Décembre 2003
    Messages : 111
    Points : 55
    Points
    55
    Par défaut Modifier la police d'un axe d'un graphique Excel
    Bonjour,

    Je suis à la recherche de la propriété qui définie la taille de la police d'un axe d'un graphique Excel.

    Je précise, le graphique est créé en VBA.

    Voici la partie du code concerné :
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    With aChart.Axes(xlCategory)
                .ReversePlotOrder = True
                .TickLabelSpacing = 1
                .TickMarkSpacing = 1
                .AxisBetweenCategories = True
                If (nbResult > 19) Then
                    DoEvents
                Else
                    If (nbResult > 9) Then DoEvents
                End If
            End With
    J'aimerais remplaer DoEvents par la bonne propriété.

    Merci d'avance.

    Bonne journée.

  2. #2
    Expert éminent sénior

    Homme Profil pro
    Inscrit en
    Août 2005
    Messages
    3 317
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Isère (Rhône Alpes)

    Informations professionnelles :
    Secteur : Industrie

    Informations forums :
    Inscription : Août 2005
    Messages : 3 317
    Points : 20 147
    Points
    20 147
    Par défaut
    bonjour

    Tu peux tester

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    With aChart.Axes(xlCategory)
        .ReversePlotOrder = True
        .TickLabelSpacing = 1
        .TickMarkSpacing = 1
        .AxisBetweenCategories = True
        If (nbResult > 19) Then
            .TickLabels.Font.Size = 8
            Else
            If (nbResult > 9) Then .TickLabels.Font.Size = 16
        End If
    End With


    bonne soirée
    michel

  3. #3
    Membre du Club
    Inscrit en
    Décembre 2003
    Messages
    111
    Détails du profil
    Informations forums :
    Inscription : Décembre 2003
    Messages : 111
    Points : 55
    Points
    55
    Par défaut
    Bonjour,

    C'est impec' !

    Merci pour votre aide

    Bonne journée.

+ Répondre à la discussion
Cette discussion est résolue.

Discussions similaires

  1. [XL-2010] Modifier taille police des axes d'un graphe
    Par JavaDeLaVarenne dans le forum Macros et VBA Excel
    Réponses: 2
    Dernier message: 13/03/2012, 10h56
  2. [XL-2003] Impossible de modifier les propriétés d'un axe d'un graphique
    Par Sclarckone dans le forum Macros et VBA Excel
    Réponses: 2
    Dernier message: 22/08/2011, 14h38
  3. atteindre l'axe d'un graphique Excel via Silverlight
    Par Golzinne dans le forum Silverlight
    Réponses: 1
    Dernier message: 30/03/2011, 10h10
  4. Modifier la police d'une "hint"
    Par emem dans le forum Langage
    Réponses: 3
    Dernier message: 14/06/2004, 07h19
  5. Réponses: 4
    Dernier message: 27/05/2004, 15h00

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo