/ Forside/ Teknologi / Udvikling / VB/Basic / Spørgsmål
Login
Glemt dit kodeord?
Brugernavn 

Kodeord  


Reklame
Top 10 brugere
VB/Basic
#NavnPoint
berpox 2425
pete 1435
CADmageren 1251
gibson 1230
Phylock 887
gandalf 836
AntonV 790
strarup 750
Benjamin... 700
10  tom.kise 610
Fejl i makro
Fra : Josph
Vist : 323 gange
300 point
Dato : 16-06-09 19:24

Får følgende fejl i min kode
Run-time error 1004;
Metoden Select for klassen Series mislykkes

Så hvordan finder jeg ud af hvad ActiveChart.SeriesCollection(4).Select er ?
Kan ikke finde noget på mine diagrammer der hedder noget med 4


Koden har virket for mig i lang tid, men ville lige ændere noget på valgte grafer,
men hvad er det som jeg er kommet til at ændre så makro ikke kan finde ud af det ?



ActiveChart.Axes(xlCategory).MinorGridlines.Select

Windows("Målepunkter grafer.xls").SmallScroll ToRight:=-8
ActiveChart.Axes(xlValue, xlSecondary).AxisTitle.Select
ActiveChart.Axes(xlValue, xlSecondary).Select
ActiveChart.Legend.Select
ActiveChart.PlotArea.Select
ActiveChart.ChartArea.Select
ActiveChart.SeriesCollection(4).Select *******************************************************Fejlen kommer her
ActiveChart.SeriesCollection(3).Select
ActiveChart.SeriesCollection(5).Select
ActiveChart.SeriesCollection(5).XValues = "='Grafer'!" & dageomr & "C1:" & slutomr & "C1"
ActiveChart.SeriesCollection(1).XValues = "='Grafer'!" & dageomr & "C1:" & slutomr & "C1"
ActiveChart.SeriesCollection(2).XValues = "='Grafer'!" & dageomr & "C1:" & slutomr & "C1"
Windows("Målepunkter grafer.xls").SmallScroll ToRight:=7
ActiveChart.SeriesCollection(2).Select
Windows("Målepunkter grafer.xls").SmallScroll ToRight:=11
ActiveWindow.Visible = False
Windows("Målepunkter grafer.xls").Activate
ActiveSheet.ChartObjects("Diagram 21").Activate
ActiveChart.ChartArea.Select
ActiveChart.SeriesCollection(5).Select
ActiveChart.SeriesCollection(5).Values = "='Grafer'!" & dageomr & "C32:" & slutomr & "C32"
ActiveChart.SeriesCollection(5).XValues = "='Grafer'!" & dageomr & "C28:" & slutomr & "C28"
ActiveChart.SeriesCollection(1).XValues = "='Grafer'!" & dageomr & "C28:" & slutomr & "C28"
ActiveChart.SeriesCollection(2).XValues = "='Grafer'!" & dageomr & "C28:" & slutomr & "C28"

 
 
Du har følgende muligheder
Dette spørgsmål er blevet annulleret, det er derfor ikke muligt for at tilføje flere kommentarer.
Søg
Reklame
Statistik
Spørgsmål : 173474
Tips : 31650
Nyheder : 719565
Indlæg : 6382458
Brugere : 218248

Månedens bedste
Årets bedste
Sidste års bedste