Excel 2003 --> 2007

19/06/2008 - 12:32 von Steps | Report spam
Hallo,
ich habe für excel 2003 ein makro geschrieben, das funzt auch einwandfrei.
jetzt habe ich das makro in excel 2007 ausprobiert und bekomme bei jedem
versuch das makro laufen zu lassen einen fehler "Invalid procedure call or
argument"
was ist da am excel 2007 so anders???

hier mal das Makro
Die zeile wo das makro hàngen bleibt habe ich mal markiert.

wer kann mir helfen? bin völlig ratlos.

Danke schon mal.

Stephan

START --

Sub diagerzeugen()

Dim i As Integer

reihe = reihe + 4

Charts.Add
ActiveChart.ChartType = xl3DColumnClustered
ActiveChart.SetSourceData Source:=Sheets("Summen").Range( _
"D5:D" & reihe & ",H5:H" & reihe), PlotBy:=xlRows
ActiveChart.Location Where:=xlLocationAsNewSheet, Name:="Grafik"
With ActiveChart
.HasTitle = True
.ChartTitle.Characters.Text = "Kunden Key-Account"
.Axes(xlCategory).HasTitle = False
.Axes(xlSeries).HasTitle = False <- Hier Stopt
das makro im debugger
.Axes(xlValue).HasTitle = False
End With
ActiveChart.ApplyDataLabels Type:=xlDataLabelsShowNone, LegendKey:=False

ActiveChart.Legend.Select
Selection.Left = 550
Selection.Width = 90
Selection.Height = 355
Selection.Top = 65

With Selection.Border
.Weight = xlHairline
.LineStyle = xlNone
End With

'#######################################################################

ActiveChart.Axes(xlCategory).Select
Selection.TickLabels.AutoScaleFont = True
With Selection.TickLabels.Font
.Name = "Arial"
.FontStyle = "Fett"
.Size = 10
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.ColorIndex = xlAutomatic
.Background = xlAutomatic
End With

'###################### Beschriftung XAchse ######################

With ActiveChart
.Axes(xlValue).HasTitle = True
.Axes(xlValue).AxisTitle.Characters.Text = "Angabe in Netto/?"
End With
Selection.Left = 85
Selection.Top = 31
ActiveChart.ChartArea.Select
ActiveChart.Axes(xlValue).AxisTitle.Select
Selection.AutoScaleFont = True
With Selection.Font
.Name = "Arial"
.FontStyle = "Fett"
.Size = 9
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.ColorIndex = xlAutomatic
.Background = xlAutomatic
End With

ActiveChart.Legend.Select
Selection.AutoScaleFont = False
Selection.Width = 173
With Selection.Font
.Name = "Arial"
.FontStyle = "Standard"
.Size = 8
.ColorIndex = xlAutomatic
.Background = xlAutomatic
End With


ActiveChart.Deselect

For i = 1 To reihe - 5
ActiveChart.SeriesCollection(i).XValues = "={""TOP " & reihe - 4 & "
vom " & StartDat & " bis " & StopDat & """}"
Next i

Sheets("Summen").Select
Range("A3").Select

Application.ScreenUpdating = True

End Sub
 

Lesen sie die antworten

#1 F-J.Raabe
19/06/2008 - 14:13 | Warnen spam
Hallo Stephan,

quàle mich selbst mit 2003 -> 2007 bei Grafiken ab, weil man
Änderungen an Grafiken per Tastatur und Maus nicht mehr als Makro
aufzeichnen kann.
Ich gehe daher Fehler für Fehler die VBA-Hilfe durch, was da alles
jetzt anders ist.

In Deinem Fall scheint die Variable von "xlSeries" in "xlSeriesAxis"
geàndert zu sein.

MfG

Franz Josef

Ähnliche fragen