gegevens toewijzen aan chart

Status
Niet open voor verdere reacties.
I

Interface

Gebruiker
Lid geworden
27 jan 2009
Berichten
156
Hi,

Het is alweer een tijd geleden dat ik waarde wou toevoegen aan een chart vanuit een array. ik vroeg mij af of dit eenvoudiger kan, in het onderstaande voorbeeld moet ik eerst uit mn With stappen alvorens is de betreffende chart geselecteerd heb en vervolgens met met die selected object een newseries te "setten" en vanuit daar dan weer de values toe te wijzen.

Vraag is of dit ook vanuit de eerste width gaat zonder deze eerst te moeten sluiten.

Code: 
With .Shapes.AddChart2
            .Name = "Chart2"
            .Left = Range("a61:m64").Cells(1).Left
            .Top = Range("a61:m64").Cells(1).Top
            .Width = Range("a61:m64").Width
            .Height = Range("a61:m64").Height
            .Select
End With

Set s = ActiveChart.SeriesCollection.NewSeries
s.Values = t1
 

Bijlagen

  • HelpMijChart.xlsm
    8,2 KB · Weergaven: 19
Laatst bewerkt:
Het leven is zóóóóveel makkelijker als je het bestand er bij doet...
 
true

Hi Octafish,

Heb er even gauw een bestandje workbook van gemaakt, moest dit even anonimiseren. Ik dacht dat het vanuit de code wel duidelijk was (lees:excuus)

gr Interface
 
Probeer het maar eens.

Code: 
With Me.Shapes.AddChart2
            .Name = "Chart2"
            .Left = Range("a61:m64").Cells(1).Left
            .Top = Range("a61:m64").Cells(1).Top
            .Width = Range("a61:m64").Width
            .Height = Range("a61:m64").Height
    Set s = .chart.[COLOR=#3E3E3E]SeriesCollection.NewSeries[/COLOR]
    s.Values = t1
End With
 
thanks, zat dus in het stukje .Chart en daarna de objectvariable voor de seriescollection.
 
Laatst bewerkt:
Code: 
Sub M_snb()
  With Cells(61, 1)
    Shapes.AddChart(, .Left, .Top, .Resize(, 13).Width, .Resize(4).Height).Chart.SeriesCollection.NewSeries.Values = Range("N1:N12")
  End With
End Sub
 
thanks

@ snb Eigenlijk kom jij altijd met de code die ik zoek, het liefst als zo goed als 1 line. Bijzonder weer hoe je het voor elkaar krijgt. Daarom vind ik je site zo handig altijd!
 
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan