VBA Porfofolio Grafiek

[rikik]

Hey Hey allen

Ik zit met een klein probleempje.

Ik zou graag een macro willen creëren zodanig dat ik de grafieken automatisch kan verkrijgen.
Indien ik " macro opnemen" klik krijg ik foutmeldingen

Weet iemand toevallig hoe ik doormiddel van een macro deze grafieken kan verkrijgen.
De tabellen is de informatie waarop ik me baseer.

Moest je dit weten, super thx :d:d

Rik Bekijk bijlage Portofolio_Help_mij.xlsxBekijk bijlage Portofolio_Help_mij.xlsx

 

[VenA]

Wat is de bedoeling en wat is de vraag? Wat voor macro wil je opnemen welke fout krijg je bij de opname? Waarom wil je grafieken via een macro verkrijgen?

 

[rikik]

Hey VenA,

Dank je voor je interesse.

In het tabblad "Portofolio" heb ik twee tabellen.
Deze informatie heb ik telkens ter beschikking.

Maar ik zou graag met een macro de tabellen omzetten naar eenzelfde grafieken.

Bij het opnemen van de macro krijg ik onderstaande, spijtig genoeg is dit blijkbaar niet correct.

Range("U17:W24").Select
ActiveSheet.Shapes.AddChart2(201, -4111).Select
ActiveChart.SetSourceData Source:=Range("Portofolio!$U$17:$W$24")
ActiveSheet.Shapes("Grafiek 3").IncrementLeft -27
ActiveSheet.Shapes("Grafiek 3").IncrementTop -126.75
ActiveSheet.Shapes("Grafiek 3").ScaleWidth 1.3270833333, msoFalse, _msoScaleFromTopLeft
ActiveSheet.Shapes("Grafiek 3").ScaleHeight 1.3177085156, msoFalse, _msoScaleFromTopLeft
ActiveChart.Axes(xlValue).MajorGridlines.Select

Alvast bedankt