Archief - [PROG]-[VBA] Grafiek veranderen van plaats

Het archief is een bevroren moment uit een vorige versie van dit forum, met andere regels en andere bazen. Deze posts weerspiegelen op geen enkele manier onze huidige ideeën, waarden of wereldbeelden en zijn op sommige plaatsen gecensureerd wegens ontoelaatbaar. Veel zijn in een andere tijdsgeest gemaakt, al dan niet ironisch - zoals in het ironische subforum Off-Topic - en zouden op dit moment niet meer gepost (mogen) worden. Toch bieden we dit archief nog graag aan als informatiedatabank en naslagwerk. Lees er hier meer over of start een gesprek met anderen.
S

Spieluhr

Legacy Member
Jeps,

vraagje: hoe kan ik 'random gecreeërde' grafieken veranderen van plaats?
Eerste gedacht was via
'ActiveSheet.Shapes("Grafiek 62").IncrementLeft -95.25'
Maar hievoor staat de naam 'Grafiek 62' er in...

Als ik deze code implementeer in visual basic en ik maak terug een grafiek aan via de macro, geeft deze een foutmelding want ondertussen is het Grafiek 63 geworden...

Iemand een oplossing om tóch te kunnen verplaatsen, ongeacht de naam van de grafiek?

Thx in advance
p

passero

Legacy Member
in plaats van ("grafiek 62") zal je waarschijnlijk ook met een index kunnen werken of je houd bij hoeveel grafieken je hebt:

dim aant as integer = 0
als je een grafiek bij maakt: aant = aant +1
en dan doe je gewoon:
'ActiveSheet.Shapes("Grafiek " & aant).IncrementLeft -95.25'
Het archief is een bevroren moment uit een vorige versie van dit forum, met andere regels en andere bazen. Deze posts weerspiegelen op geen enkele manier onze huidige ideeën, waarden of wereldbeelden en zijn op sommige plaatsen gecensureerd wegens ontoelaatbaar. Veel zijn in een andere tijdsgeest gemaakt, al dan niet ironisch - zoals in het ironische subforum Off-Topic - en zouden op dit moment niet meer gepost (mogen) worden. Toch bieden we dit archief nog graag aan als informatiedatabank en naslagwerk. Lees er hier meer over of start een gesprek met anderen.
Terug
Bovenaan