Par défaut zoomer des courbes en VBA
Résolu
qwerty_213
-
qwerty_213 Messages postés 26 Date d'inscription Statut Membre Dernière intervention -
qwerty_213 Messages postés 26 Date d'inscription Statut Membre Dernière intervention -
Bonjour,
Je souhaite effectuer un zoom (zmin;zmax) sur 10 courbes, mais mon programme VBA si dessous s'arrête !
une idée ?
Je souhaite effectuer un zoom (zmin;zmax) sur 10 courbes, mais mon programme VBA si dessous s'arrête !
Sub Macro1()
'
' Macro1 Macro
'
zmin = 30000
zmax = 31000
For G = 1 To 10
ActiveSheet.ChartObjects("Graphique" G).Activate
ActiveChart.Axes(xlCategory).Select
ActiveChart.Axes(xlCategory).MinimumScale = zmin
ActiveChart.Axes(xlCategory).MaximumScale = zmax
Next G
End Sub
une idée ?
A voir également:
- Par défaut zoomer des courbes en VBA
- Ouvrir avec par défaut - Guide
- Dns par defaut - Guide
- Google page d'accueil par défaut - Guide
- Windows 11 clic droit afficher plus d'options par défaut - Guide
- Mot de passe par defaut livebox - Guide
2 réponses
yg_be
Messages postés
23541
Date d'inscription
Statut
Contributeur
Dernière intervention
Ambassadeur
1 584
Suggestion :
Ou, mieux :
ActiveSheet.ChartObjects( G ).Activate
Ou, mieux :
Option Explicit
Sub Macro1()
Dim un_graphique As ChartObject
Dim zmin As Long
Dim zmax As Long
zmin = 30000
zmax = 31000
For Each un_graphique In ActiveSheet.ChartObjects
un_graphique.Axes(xlCategory).MinimumScale = zmin
un_graphique.Axes(xlCategory).MaximumScale = zmax
Next
End Sub
