grafieken selecteren en verwijderen

[hsmn]

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

 

[Roncancio]

In bijgevoegd bestand zit een menu.
In dat menu zit een lijst van de grafieken.
Door een keuze te maken uit de lijst en op Grafiek Verwijderen te klikken wordt de grafiek automatisch verwijderd.

Met vriendelijke groet,


Roncancio

 

[hsmn]

dank je wel precies wat ik nodig had!:thumb:

tim

 

[Roncancio]

dank je wel precies wat ik nodig had!:thumb:

tim

Graag gedaan.
Gaarne de vraag op opgelost zetten (onderaan de pagina).
Bvd.

Met vriendelijke groet,


Roncancio

 

[hsmn]

sorry het lukt me toch niet zoals ik had verwacht.

nu kan ik idderdaad selecteren wat ik wil maar ik heb zonder userform een aantal checkboxen gemaakt waar je kunt selecteren welke grafieken je wil genereren, nu wil ik gewoon alle aangemaakte grafieken verwijderen met 1 druk op de knop zonder userform.

ik heb ook gekeken naar die counter van u volgens mij kan ik die wel gebruiken maar krijg het niet voor mekaar.


tim

 

[Roncancio]

sorry het lukt me toch niet zoals ik had verwacht.

nu kan ik idderdaad selecteren wat ik wil maar ik heb zonder userform een aantal checkboxen gemaakt waar je kunt selecteren welke grafieken je wil genereren, nu wil ik gewoon alle aangemaakte grafieken verwijderen met 1 druk op de knop zonder userform.

ik heb ook gekeken naar die counter van u volgens mij kan ik die wel gebruiken maar krijg het niet voor mekaar.


tim

Via ActiveSheet.ChartObjects.Delete worden ALLE grafieken verwijderd.

Met vriendelijke groet,


Roncancio

 

[hsmn]

jep nu wel gelukt bedankt

tim

 

[J P]

Allereerst even wat ik heb.
Ik heb een bestand met 52 tabbladen voor de weken van het jaar.
Per tabblad heb ik een cirkel grafiek met gegevens.

Is het ook mogelijk zoals hierboven is aangegeven dat ik op 1 pagina 52 selectie rondjes krijg en als ik 1 of meerder selecteer dat die dan de cirkel grafiek uit een ander tabblad laat zien in het tabblad met de selectie rondjes.

Of moet ik het op een andere manier aanpakken?