VBA - Option d'axe

Résolu
zivodul8 Messages postés 229 Date d'inscription   Statut Membre Dernière intervention   -  
zivodul8 Messages postés 229 Date d'inscription   Statut Membre Dernière intervention   -
Bonjour,

Je souhaite connaitre le code VBA qui permet de définir la valeur à laquelle l'axe vertical croise l'axe horizontal d'un graphique (et inversement)?

Manuellement c'est facile, mais en VBA...

Merci beaucoup!

PS : pour le minimum et maximum des axes, je suis également preneur :)

2 réponses

ccm81 Messages postés 10909 Date d'inscription   Statut Membre Dernière intervention   2 433
 
bonjour
pour un graphique de type nuage de points

 With Sheets(1).ChartObjects(1).Chart.Axes(xlCategory) 
    .MinimumScale = -5 
    .MaximumScale = 12 
    .Crosses = xlCustom 
    .CrossesAt = -3 
 End With 
 With Sheets(1).ChartObjects(1).Chart.Axes(xlValue) 
    .MinimumScale = -2 
    .MaximumScale = 30 
    .Crosses = xlCustom 
    .CrossesAt = -1 
End With

mais le plus simple est d'utiliser l'éditeur de macros
Outils/macros/nouvelle macro
tu executes tes modifs
Outils/macros/arreter l'enregistrement
et tu adaptes le code
bonne suite
0
zivodul8 Messages postés 229 Date d'inscription   Statut Membre Dernière intervention   22
 
Merci beaucoup c'est parfait!

J'avais déjà essayé cette méthode pour trouver le code, mais il ne me codé que la sélection de l'axe. Peut être est ce parce que j'ai double cliqué sur l'axe?

En tout cas merci, et également pour la rapidité =)
0