Grafiek verplaatsen in excel.

[athestreet]

Hallo,

Ik heb een probleempje om een grafiek die net is aangemaakt op te pakken en ergens anders te plaatsen (voorbeeld cel C335). Maar net het laatste stukje heb ik hier een probleem mee. Misschien dat iemand mij hierbij kan helpen.
Onderstuk blauwe stuk zit nu de fout.

Sub Grafiek()
'
' Grafiek Macro

ActiveSheet.Unprotect Password:="klaas"
Range("C316:G328").Select
Charts.Add
ActiveChart.ChartType = xlColumnClustered
ActiveChart.SetSourceData Source:=Sheets("HOOFDBLAD").Range("C316:G328"), _
PlotBy:=xlColumns
ActiveChart.Location Where:=xlLocationAsObject, Name:="HOOFDBLAD"
ActiveChart.Axes(xlValue).Select
ActiveChart.PlotArea.Select
ActiveChart.HasDataTable = True
ActiveChart.DataTable.ShowLegendKey = True

With ActiveChart
.HasAxis(xlCategory, xlPrimary) = True
.HasAxis(xlValue, xlPrimary) = True
End With
ActiveChart.Axes(xlCategory, xlPrimary).CategoryType = xlAutomatic
With ActiveChart.Axes(xlCategory)
.HasMajorGridlines = False
.HasMinorGridlines = False
End With
With ActiveChart.Axes(xlValue)
.HasMajorGridlines = False
.HasMinorGridlines = False
End With
ActiveChart.HasLegend = True
ActiveChart.Legend.Select
Selection.Position = xlBottom
ActiveChart.SeriesCollection(1).Select
ActiveChart.SeriesCollection(2).ChartType = xlLineMarkersStacked
'ActiveSheet.Protect Password:="klaas"
ActiveWindow.Visible = False

ActiveSheet.Activate
ActiveChart.ChartArea.Select
ActiveWindow.Visible = False
ActiveWindow.WindowState = xlNormal
ActiveWindow.WindowState = xlMaximized
Range("C335").Select
ActiveSheet.Activate
ActiveChart.Paste

 

[geep1980]

als er maar 1 grafiek in het sheet staat werkt het op de volgende manier

ActiveSheet.ChartObjects(1).Select
Selection.Cut
Range("$C$335").Select
ActiveSheet.Paste


Weet niet of je het wil maar misschien ook wel netjes om je grafiek een naam te geven:

ActiveChart.ChartType = xlColumnClustered
ActiveChart.HasTitle = True
ActiveChart.ChartTitle.Text = "Name of this Chart"

 

[athestreet]

Signaal komt tevoorschijn

als er maar 1 grafiek in het sheet staat werkt het op de volgende manier

ActiveSheet.ChartObjects(1).Select
Selection.Cut Range("$C$335").Select
ActiveSheet.Paste


Weet niet of je het wil maar misschien ook wel netjes om je grafiek een naam te geven:

ActiveChart.ChartType = xlColumnClustered
ActiveChart.HasTitle = True
ActiveChart.ChartTitle.Text = "Name of this Chart"

Bedankt voor uw snelle reactie.

Ook de naam heb ik er nu ingestopt en staat inderdaad netter.
Alleen krijg ik bij selection.cut signaal met Fout 438 (Deze eigenschap of methode wordt niet ondersteund door dit object) ik gebruik 2003 versie van excel. Heeft het daar mee te maken?

mvg
Athestreet

 

[geep1980]

zou kunnen maar ik kan er zo snel niks over vinden.
Zelf ben ik ook niet bekend met de verschillen tussen 2003 en 2007 qua verschillende werkingen.
Misschien dat iemand anders hier wat over kan roepen