Makro Compileerfout: Object vereist

[Abco_B]

Onderstaande makro geeft:

Set MG =
Melding: Compileerfout Object vereist


Sub Lijnen()

Dim MG As Boolean

Set MG = ActiveChart.Axes(xlValue).HasMajorGridlines

If MG = False Then MG = True
Else: MG = False
End If

End Sub

Iemand een idee ?

Abco

 

[Wigi]

Abco

Sub Lijnen()
With ActiveChart.Axes(xlValue)
    If .HasMajorGridlines = False Then .HasMajorGridlines = True
End With
End Sub

 

[Abco_B]

Wigi,

Dank voor je reactie !

Abco

 

[Spiderman]

Hoi Abco_B,

Zet onderstaande code boven je SET MG = ActiveChart.Axes(xlValue).HasMajorGridlines

ActiveSheet.ChartObjects("Grafiek 1").Activate

Grafiek 1 is de naam van je grafiek.


Suc6

 

[Abco_B]

Spiderman,

Dank voor je reactie.

Als ik dat doe krijg ik dezelfde melding.

Daarnaast wil ik deze macro toepassen op verschillende grafieken.

Abco