Advies gevraagd bij schrijven makro.

[Abco_B]

L.S.,

Onderstaande makro heb ik geschreven om bij grafieken de categorie-vermelding aan/uit te zetten (mbv een knop op een werkbalk).

Hij werkt prima, maar mijn vraag is:

Is er ook een eenvoudiger makro te bedenken ? Zonder het AA-omweggetje ?

Abco



Sub Categorie()

Dim AA As Integer

ActiveChart.PlotArea.Select

If ActiveChart.HasAxis(xlCategory, xlPrimary) = False Then
AA = 0
End If

If ActiveChart.HasAxis(xlCategory, xlPrimary) = True Then
AA = 1
End If

If AA = 0 Then
ActiveChart.HasAxis(xlCategory, xlPrimary) = True
End If

If AA = 1 Then
ActiveChart.HasAxis(xlCategory, xlPrimary) = False
End If

ActiveChart.Axes(xlCategory, xlPrimary).CategoryType = xlAutomatic
End Sub

 

[Roncancio]

Zo lijkt mij:

Sub Categorie()

ActiveChart.PlotArea.Select

If ActiveChart.HasAxis(xlCategory, xlPrimary) = False Then
ActiveChart.HasAxis(xlCategory, xlPrimary) = True
Else
ActiveChart.HasAxis(xlCategory, xlPrimary) = False
End If

ActiveChart.Axes(xlCategory, xlPrimary).CategoryType = xlAutomatic
End Sub

 

[Abco_B]

Roncancio,

Dat ziet er een stuk eleganter uit.

Bedankt !

Abco