Excel macro fout

[yadeki]

Hoi,

Ik probeer mijn opmaak in een grafiek (bij wijze van test) te veranderen dmv. een macro.
Echter krijg ik steeds een foutmelding. Hieronder de code:

Sub Macro4()
'
' Macro4 Macro
'

'
ActiveSheet.ChartObjects("Omzetcijfers").Activate
ActiveChart.Axes(xlCategory).AxisTitle.Select
ActiveSheet.ChartObjects("Omzetcijfers").Activate
ActiveChart.Axes(xlCategory, xlPrimary).AxisTitle.Text = "Provincie"
ActiveSheet.ChartObjects("Omzetcijfers").Activate
ActiveChart.ChartArea.Select
ActiveSheet.ChartObjects("Omzetcijfers").Activate
ActiveChart.Axes(xlValue).AxisTitle.Select
Selection.Delete
ActiveSheet.ChartObjects("Omzetcijfers").Activate
ActiveChart.Axes(xlCategory).Select
ActiveSheet.ChartObjects("Omzetcijfers").Activate
ActiveChart.Axes(xlCategory).ReversePlotOrder = True
ActiveSheet.ChartObjects("Omzetcijfers").Activate
ActiveChart.Axes(xlValue).Select
ActiveChart.Axes(xlValue).DisplayUnit = xlThousands
End Sub


Ik weet niet wat er hierin scheelt? Iemand een idee?

 

[ExcelMark]

Zou je het bestand hier bij kunnen voegen?

 

[yadeki]

Zou je het bestand hier bij kunnen voegen?

Het bestand:

http://www.yadeki.be/documenten/probleem_macro.xlsm


(Je kan hier geen xlsm bestanden posten)

Ik ken weinig van VBA daarom leer ik het nu, dus als je echt specifiek kan zeggen wat ik misdoe?

 

[Roncancio]

In je code selecteer je de waarde-as en vervolgens verwijder je die.
Als je vervolgens de code weer laat lopen zal VBA de waarde-as niet meer kunnen selecteren omdat deze dus al verwijderd is.

Met vriendelijke groet,


Roncancio

 

[yadeki]

In je code selecteer je de waarde-as en vervolgens verwijder je die.
Als je vervolgens de code weer laat lopen zal VBA de waarde-as niet meer kunnen selecteren omdat deze dus al verwijderd is.

Met vriendelijke groet,


Roncancio

Dank je, ik probeer het eens zonder de waarde te verwijderen...

 

[yadeki]

In je code selecteer je de waarde-as en vervolgens verwijder je die.
Als je vervolgens de code weer laat lopen zal VBA de waarde-as niet meer kunnen selecteren omdat deze dus al verwijderd is.

Met vriendelijke groet,


Roncancio

Lukt nog steeds niet, en de macro hangt niet bij het verwijderen van de gegevens...
Zou je nogmaals kunnen bekijken?

Hier de link naar het document:
http://www.yadeki.be/documenten/macro fout.xlsm


Mss iets in de opmaak vn de grafiek dat niet mogelijk is via macro?

 

[Roncancio]

Lukt nog steeds niet, en de macro hangt niet bij het verwijderen van de gegevens...

Toch wel.

Je verwijdert de as-titel. Dit gaat zonder problemen.
Als je vervolgens de as-titel wilt selecteren, dan kan VBA die titel niet meer vinden en dus verschijnt een foutmelding.
Ik heb in je de code de betreffende regels als tekst neergezet.

Sub grafiek_plaatsen()
'
' grafiek_plaatsen Macro
' grafiek en opmaak
'

'
    ActiveSheet.Shapes.AddChart.Select
    ActiveChart.ChartType = xlBarClustered
    ActiveChart.ApplyLayout (8)
    ActiveChart.SeriesCollection.NewSeries
    ActiveChart.SeriesCollection(1).Name = "='Blad1'!$B$2"
    ActiveChart.SeriesCollection(1).Values = "='Blad1'!$B$3:$B$7"
    ActiveChart.SeriesCollection.NewSeries
    ActiveChart.SeriesCollection(2).Name = "='Blad1'!$F$2"
    ActiveChart.SeriesCollection(2).Values = "='Blad1'!$F$3:$F$7"
    ActiveChart.SeriesCollection(2).XValues = "='Blad1'!$A$3"
    ActiveChart.Axes(xlCategory).Select
    ActiveChart.Axes(xlCategory).ReversePlotOrder = True
    ActiveSheet.ChartObjects("Grafiek 2").Activate
    ActiveChart.ChartArea.Select
    ActiveSheet.ChartObjects("Grafiek 2").Activate
    ActiveChart.Axes(xlValue).Select
    ActiveChart.Axes(xlValue).DisplayUnit = xlThousands
    ActiveChart.SetElement (msoElementChartTitleAboveChart)
    ActiveSheet.ChartObjects("Grafiek 2").Activate
    ActiveChart.Axes(xlCategory).AxisTitle.Select
    ActiveSheet.ChartObjects("Grafiek 2").Activate
'    ActiveChart.Axes(xlValue).AxisTitle.Select
'    Selection.Delete
End Sub

Wellicht ten overvloede kan ik je nog melden dat het zeer raadzaam is om Select, Activate etc te vermijden.

Met vriendelijke groet,


Roncancio