Corel FORUM

[michal.s]

Witam wszystkich.
Próbuję samemu coś stworzyć, ale... nie mam na tyle wiedzy.
Prosiłbym was o pomoc w prozaicznie łatwym temacie, a mianowicie
Jak widać na poniższym zrzucie, potrzebuję zaznaczyć 4,5,6 krzywą i je usunąć, następnie mechanizm powtarza się.
Myślę, że jest to prosta pętla, tyle, że nie władam dobrze językiem VBA.

Podobnych plików mam dziesiątki i każdy może mieć inną ilość krzywych, ale zawsze wielokrotność '6'.

Będę wdzięczny za pomoc

---

Przechwytywanie.JPG

Pobierz Plik ściągnięto 266 raz(y) 89.58 KB

[Martin Nez]

Pisane na szybko, więc kod wygląda średnio, ale działa.

Kod:

Sub michals()     Dim s As Shape     Dim i, j As Integer     For i = 1 To ActivePage.Shapes.Count         For j = 1 To 6 ' tutaj ustawic ile obiektow jest w "grupie"             If j = 4 Or j = 5 Or j = 6 Then ActivePage.Shapes(i).AddToSelection ' ustawic ktore obiekty ma zaznaczac             i = i + 1             If i > ActivePage.Shapes.Count Then Exit Sub         Next         i = i - 1     Next End Sub

Pozdr,
MN

[michal.s]

Martin Nez,
STOKROTNE DZIĘKI

[michal.s]

p.s

Cytat:

Pisane na szybko, więc kod wygląda średnio, ale działa.

Według mnie kod wygląda SUPER