Makro Fehler

17/07/2008 - 19:21 von Michael Feske | Report spam
Hallo alle zusammen,
ich habe in Excel 2003 ein Makro augezeichnet, welches bei zwei Grafiken die
Eigenschaften von Graphen àndert.
Leider erhalte ich den Fehler Laufzeitfehler "1004"
Die SmallScroll-Methode des Windows-Objektes konnte nicht ausgeführt werden.

Das Makro sieht so aus:
Sub unsichtbar_graph()
'
' unsichtbar_graph Makro
' macht platzhalter graphen "unsichtbar"
'

'
ActiveWindow.SmallScroll Down:=-51
ActiveSheet.ChartObjects("Diagramm 1").Activate
ActiveChart.Axes(xlValue).MajorGridlines.Select
ActiveChart.SeriesCollection(2).Select
With Selection.Border
.Weight = xlThin
.LineStyle = xlNone
End With
With Selection
.MarkerBackgroundColorIndex = xlAutomatic
.MarkerForegroundColorIndex = xlAutomatic
.MarkerStyle = xlNone
.Smooth = False
.MarkerSize = 5
.Shadow = False
End With
Windows("mg_0_bis_4.xls").SmallScroll Down:E
ActiveWindow.Visible = False
Windows("mg_0_bis_4.xls").Activate
ActiveSheet.ChartObjects("Diagramm 4").Activate
ActiveChart.PlotArea.Select
ActiveChart.SeriesCollection(4).Select
With Selection.Border
.Weight = xlThin
.LineStyle = xlNone
End With
With Selection
.MarkerBackgroundColorIndex = xlNone
.MarkerForegroundColorIndex = xlAutomatic
.MarkerStyle = xlNone
.Smooth = False
.MarkerSize = 5
.Shadow = False
End With
ActiveChart.SeriesCollection(2).Select
With Selection.Border
.Weight = xlThin
.LineStyle = xlNone
End With
With Selection
.MarkerBackgroundColorIndex = xlAutomatic
.MarkerForegroundColorIndex = xlAutomatic
.MarkerStyle = xlNone
.Smooth = False
.MarkerSize = 5
.Shadow = False
End With
End Sub

Was muß ich àndern, das dieses funktioniert ?

Gruß
Micha
 

Lesen sie die antworten

#1 Michael Feske
17/07/2008 - 19:53 | Warnen spam
Die Lösung ist manchmal sooo einfach.
Ich habe die Ansicht verkleinert und nicht mehr gescrollt und schon
funktioniert es.

Gruß
Micha

Ähnliche fragen