grafiek maken met macro met dynamisch bereik

bdw · #1 3 februari 2012, 09:47

grafiek maken met macro met dynamisch bereik

Onderstaande code doet wat het moet doen, grafieken maken uit 3 verschillende kolommen. Ik wil deze grafieken een naam meegeven maar dat lukt niet, iemand enig idee?

Code:

Sub grafiek()
ActiveWorkbook.Names.Add Name:="wachttijd", RefersToR1C1:= _
        "=OFFSET(Blad1!R2C4,0,0,COUNTA(Blad1!C4)-1,1)"
ActiveWorkbook.Names.Add Name:="arrive", RefersToR1C1:= _
        "=OFFSET(Blad1!R2C5,0,0,COUNTA(Blad1!C5)-1,1)"
ActiveWorkbook.Names.Add Name:="leave", RefersToR1C1:= _
        "=OFFSET(Blad1!R2C6,0,0,COUNTA(Blad1!C6)-1,1)"
        
     With ActiveSheet.ChartObjects.Add _
             (Left:=700, Width:=375, Top:=0, Height:=225)
         .Chart.SetSourceData Source:=Sheets("Blad1").Range("wachttijd")
         .Chart.ChartType = xlXYScatterLines
        
     End With
  With ActiveSheet.ChartObjects.Add _
             (Left:=700, Width:=375, Top:=230, Height:=225)
         .Chart.SetSourceData Source:=Sheets("Blad1").Range("arrive")
         .Chart.ChartType = xlXYScatterLines
        
     End With
With ActiveSheet.ChartObjects.Add _
             (Left:=700, Width:=375, Top:=460, Height:=225)
         .Chart.SetSourceData Source:=Sheets("Blad1").Range("leave")
         .Chart.ChartType = xlXYScatterLines
        
     End With
     
     
End Sub

alphamax · #2 3 februari 2012, 14:56

principe

Code:

 With ActiveSheet.ChartObjects.Add _
             (Left:=700, Width:=375, Top:=0, Height:=225)
         .Chart.SetSourceData Source:=Sheets("Blad1").Range("wachttijd")
         .Chart.ChartType = xlXYScatterLines
         .Chart.SetElement (msoElementChartTitleAboveChart)
         .Chart.ChartTitle.Text = "wachttijd"
     End With

bdw · #3 3 februari 2012, 18:15

Citaat:

Oorspronkelijk geplaatst door alphamax

principe

Code:

 With ActiveSheet.ChartObjects.Add _
             (Left:=700, Width:=375, Top:=0, Height:=225)
         .Chart.SetSourceData Source:=Sheets("Blad1").Range("wachttijd")
         .Chart.ChartType = xlXYScatterLines
         .Chart.SetElement (msoElementChartTitleAboveChart)
         .Chart.ChartTitle.Text = "wachttijd"
     End With

heel erg bedankt, dit is de oplossing

Discussietools
Printversie tonen Deze pagina e-mailen
Weergave
Lineaire weergave Switchen naar hybride weergave Switchen naar vertakte weergave

Soortgelijke discussies
Discussie	Auteur	Forum	Reacties	Laatste bericht
dynamisch bereik	glda19	Afgehandelde vragen	1	24 januari 2012 22:13
Grafiek met dynamisch bereik	alfred83	Afgehandelde vragen	3	11 oktober 2010 17:06
Dynamisch bereik bepalen d.m.v. macro	passenier	Afgehandelde vragen	2	11 maart 2010 17:32
Draaitabellen met dynamisch bereik	ihalkes	Afgehandelde vragen	2	29 oktober 2008 11:27
Grafiek (Dynamisch gegevens bereik)	Jeroen1234	Afgehandelde vragen	2	30 mei 2007 14:45