Discussion :

[ometsoc]

Bonjour,
Je souhaiterai définir pour tous les graphes d'un formulaire des propriéts identique, ex: .HasLegend= True
.Axes(xlValue.)MaximumScaleIsAuto...

j'arrive à coder graphe par graphe avec

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
With Me.monGraphe
                    .HasLegend= True
                    .Axes(xlValue.)MaximumScaleIsAuto...
           End With

Je cherche le code qui me permettrait de dire :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
for each graphe in les graphes de mon formulaire
            graphe.HasLegend= True
            graphe.Axes(xlValue.)MaximumScaleIsAuto...
          next

je ne trouve pas la syntaxe pour "for each graphe in les graphes de mon formulaire
"
Je vous remercie par avance

[helas]

Bonjour,
Voici un début de réponse

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
 
 Dim c As Control
 
 For Each c In Me.Controls
  If c.ControlType = 113 Then  'c'est un graphe
   c.Object.HasLegend = True
  End If
 Next c

Je n'ai pas trouvé Axes dans les propriétés de c.Object

[ometsoc]

Bonjour Helas,
Un grand merci çà fonctionne nickel