flow chart in een loop verwijderen

[gklap]

Beste VBA gebruikers,

Ik heb hulp nodig. Ik ben met behulp van een userfoarm een automatische tabel aan het maken. Hierbij wil ik ook dat eer flow chart komt per rij van de tabel. Dit lukt allemaal, maar deze moeten ook allemaal weer verwijderd worden met één druk op de knop. zo kan een pijl een naam krijgen en lijkt het mij handig om, net als een koe, deze een nummer te geven. Vervolgens wil ik met een loop de pijlen kunnen verwijderen, maar het nummer staat tussen "1234" zodat het een tekst is. Hierdoor lukt het mij niet om met een loop alle gemaakt flow pijlen te verwijderen.Wwie kan mij de gouden tip of het goude trucje geven. Om het verhaal af te beelden wat ik wil:



Dim i As Long

For i = 1 to 100


ActiveSheet.Shapes.Range(Array("99999+i")).Delete

next i

zodat ik in dit geval 100 pijlen kan verwijderen

 

[edmoor]

Plaats eens een voorbeeld van zo'n document met de pijlen.

 

[VenA]

Het is inderdaad niet duidelijk wat je wil. Om alles op te ruimen

Sub VenA()
For Each shp In Sheets("Blad1").Shapes
    shp.Delete
Next shp
End Sub

 

[gklap]

Excuus voor de onduidelijkheid. goed verworden is soms lastig.

Ik heb een bestandje bijgevoegd.

In de macro "verwijderen" staat dit:

ActiveSheet.Shapes.Range(Array("101")).Delete
ActiveSheet.Shapes.Range(Array("102")).Delete
ActiveSheet.Shapes.Range(Array("103")).Delete
ActiveSheet.Shapes.Range(Array("104")).Delete

Dit zou ik graag de vier regels willen veranderen naar een loop, dat je bijvoorbeeld 1 regel krijgt.

een kort door de bocht voorbeeld, dat helaas niet werkt, maar krijg je een idee wat ik graag zou willen:

for i = 101 to 104

ActiveSheet.Shapes.Range(Array(i)).Delete

next i


alvast bedankt

gerard
Bekijk bijlage lijnen verwijderen variabel in tekst.xlsm

 

[edmoor]

Doe het eens zo:

    For i = 101 To 104
        ActiveSheet.Shapes(CStr(i)).Delete
    Next i

 

[gklap]

Yes dat is hem!

ik ben een trail and error vba gebruiker. en nu ben ik benieuwd wat het betekend. Hoezo werkt dat wel? Wat betekend mijn functie en wat betekend de jouwe?

Alvast bedankt

 

[hellboy01]

http://www.techonthenet.com/excel/formulas/cstr.php

http://www.techonthenet.com/excel/formulas/index.php

 

[edmoor]

Die shapes hebben geen nummer maar een naam. Het nummer in i moet dus eerst worden geconverteerd naar een String en dat is wat CStr(i) doet.
hellboy01 verwees al naar een pagina waar die functie wordt uitgelegd.

 

[gklap]

Bedankt! ook voor de uitleg. alles doet het naar behoren.