hallo
vba is nog vrij nieuw voor mij!
Ik ben bezig voor een projectje en heb een aantal grafieken generereerd dmv data die ik haal uit wincc.
doordat er telkens grafieken verwijderd worden en bijkomen, krijgen de grafieken steeds andere namen.(bv grafiek 20,grafiek 21 enz)
dus is het moeilijk om een code of macro te maken om deze grafieken telkens te verwijderen.
om de grafieken te verplaatsen heb ik een count functie gebruikt die als volgt gaat:
Dim intshape As Long
intshape = ActiveSheet.Shapes.Count
ActiveSheet.Shapes(intshape).IncrementLeft -231.25
ActiveSheet.Shapes(intshape).IncrementTop -150.75
want als ik bv "grafiek 20" ipv intshape in zou vullen doet hij het maar 1 keer omdat de grafiek een andere naam krijgt, alleen nu is mijn probleem dat dit niet lukt om de grafieken te verwijderen.
de naam moet dus hetzelfde zijn als de gegenereerde grafieken zodat deze verwijderd kunnen worden.
iemand oplossing, waarschijnlijk makkelijk op te lossen maar ik zie het niet.
bedankt
tim
vba is nog vrij nieuw voor mij!
Ik ben bezig voor een projectje en heb een aantal grafieken generereerd dmv data die ik haal uit wincc.
doordat er telkens grafieken verwijderd worden en bijkomen, krijgen de grafieken steeds andere namen.(bv grafiek 20,grafiek 21 enz)
dus is het moeilijk om een code of macro te maken om deze grafieken telkens te verwijderen.
om de grafieken te verplaatsen heb ik een count functie gebruikt die als volgt gaat:
Dim intshape As Long
intshape = ActiveSheet.Shapes.Count
ActiveSheet.Shapes(intshape).IncrementLeft -231.25
ActiveSheet.Shapes(intshape).IncrementTop -150.75
want als ik bv "grafiek 20" ipv intshape in zou vullen doet hij het maar 1 keer omdat de grafiek een andere naam krijgt, alleen nu is mijn probleem dat dit niet lukt om de grafieken te verwijderen.
de naam moet dus hetzelfde zijn als de gegenereerde grafieken zodat deze verwijderd kunnen worden.
iemand oplossing, waarschijnlijk makkelijk op te lossen maar ik zie het niet.
bedankt
tim
Laatst bewerkt: