VBA - Option d'axe Résolu

Question

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 :)

ccm81 · Answer

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

zivodul8 · Answer

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é =)

VBA - Option d'axe

2 réponses

Discussions similaires

Newsletters