• Privacywetgeving
    Het is bij Helpmij.nl niet toegestaan om persoonsgegevens in een voorbeeld te plaatsen. Alle voorbeelden die persoonsgegevens bevatten zullen zonder opgaaf van reden verwijderd worden. In de vraag zal specifiek vermeld moeten worden dat het om fictieve namen gaat.

Grafiek VBA

Status
Niet open voor verdere reacties.

rikik

Gebruiker
Lid geworden
14 feb 2017
Berichten
125
Hey Hey, :)

Ik zit met een kwestie die mezelf overstijgt :confused:

Bekijk bijlage VBA Graph.xlsx

Ik probeer met VBA grafieken op te stellen.
Ik heb ondertussen al enkel dagen youtube filmpjes bekeken en alles geprobeerd.

Spijtig genoeg krijg ik nooit de grafiek zoals ik het voor ogen heb :(

Weet iemand toevallig hoe dit in VBA moet?

Alvast bedankt, :thumb:

RIkik
 
blijkbaar wil je steeds een ander soort grafiek.
De beste leerschool (zo doe ik het toch) is via "macro opnemen" een keer je grafiek maken.
Dan staat er een hele hoop bagger in je code, gooi die weg, maar het leert je sneller vooruit dan al die youtube-filmpjes.

Wat wil je bereiken ?
 
Hey cow 18,

Heb ik ook geprobeerd, ik denk namelijk ook dat dit beste leerschool is.
Probleem is dat er weinig overblijft van wat ik dan wens.

In het bestand " VBA Graph" vind je twee tabellen, met daarnaast telkens een grafiek.
Nu zou ik graag aan de hand van de tabel een gelijkaardige grafiek wensen te creeeren in VBA.

Weet je toevallig hoe dit moet?

Ik zou je eeuwig dankbaar zijn :)
 
rikik

zie bijlage, klik op de knop
 

Bijlagen

  • VBA Graph (hs).xlsb
    27,7 KB · Weergaven: 106
Hey Haije,

Super bedankt :d

Weet je toevallig hoe ik de maanden op x as krijg?

Weet je toevallig ook hoe je de tweede grafiek doet?

Op deze manier kan ik beiden analyseren en heb ik weer een gans pak bijgeleerd.
Alvast super bedankt voor al je hulp....you're a champion :)
 
Haijes code 'gefatsoeneerd':

Code:
Sub Macro4a()
    sn = Range("V17:W17")
    
    With ActiveSheet.Shapes.AddChart.Chart
      .ChartType = 51
      .HasAxis(2) = True
         
      With .SeriesCollection.NewSeries
        .Name = sn(1, 1)
        .Values = "=Blad1!$V$18:$V$25"
      End With
        
      With .SeriesCollection.NewSeries
        .Name = sn(1, 2)
        .Values = "=Blad1!$W$18:$W$25"
        .XValues = "=Blad1!$U$18:$U$25"
        .AxisGroup = 2
        .ChartType = 4
      End With
        
      .SetElement (104)
      .SetElement (2)
      .ChartTitle.Text = "Portfolio Balance"
    End With
End Sub
 
@snb :thumb:
 
Hey Haije en snb

Super bedankt

Weet je toevallig hoe ik de maanden op x as krijg?

Weet je toevallig ook hoe je de tweede grafiek doet?

Op deze manier kan ik beiden analyseren en heb ik weer een gans pak bijgeleerd.
Alvast super bedankt voor al je hulp....you're the champions :thumb:
 
@rikik,

mijn bijdrage is het directe resultaat van de macrorecorder, dus als je voor de tweede grafiek nu eens alle stappen opneemt, kan het bijna niet anders of je krijgt een "leesbaar" resultaat.

De maanden op de x-as lukt met deze:
Code:
Sub Macro4b()
    sn = Range("V17:W17")
    
    With ActiveSheet.Shapes.AddChart.Chart
      .ChartType = 51
      .HasAxis(2) = True
         
      With .SeriesCollection.NewSeries
        .Name = sn(1, 1)
        .Values = "=Blad1!$V$18:$V$25"
        .XValues = "=Blad1!$U$18:$U$25"
      End With
        
      With .SeriesCollection.NewSeries
        .Name = sn(1, 2)
        .Values = "=Blad1!$W$18:$W$25"
        .XValues = "=Blad1!$U$18:$U$25"
        .AxisGroup = 2
        .ChartType = 4
      End With
        
      .SetElement (104)
      .SetElement (2)
      .ChartTitle.Text = "Portfolio Balance"
    End With
End Sub
 
Laatst bewerkt:
Nog wat verder uitgeprobeerd:

Code:
Sub Macro4a()
    sn = Range("V17:W17")
    
    With ActiveSheet.Shapes.AddChart.Chart
      .ChartType = 51
      .HasAxis(2) = -1
         
      With .SeriesCollection.NewSeries
        .Name = sn(1, 1)
        .Values = [V18:V25]
        .XValues = [U18:U25]
      End With
        
      With .SeriesCollection.NewSeries
        .Name = sn(1, 2)
        .Values = [W18:W25]
        .XValues = [U18:U25]
        .AxisGroup = 2
        .ChartType = 4
      End With
        
      .SetElement 104
      .SetElement 2
      .ChartTitle.Text = "Portfolio Balance"
    End With
End Sub
 
Gevonden. :D

Heeft me even geduurd.

Super bedankt voor al jullie hulp:thumb:
 
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan