Zobacz temat - makro - pętla do wyszukiwania co którejś krzywej

Corel FORUM
Forum użytkowników programów firmy Corel. Grafika wektorowa, rastrowa i obróbka zdjęć cyfrowych

Makra - makro - pętla do wyszukiwania co którejś krzywej

michal.s - 20 Sierpień 2021, 16:36
Temat postu: makro - pętla do wyszukiwania co którejś krzywej

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 :-)

Martin Nez - 20 Sierpień 2021, 18:42

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 - 23 Sierpień 2021, 11:22

Martin Nez,
STOKROTNE DZIĘKI :-)

michal.s - 23 Sierpień 2021, 11:24

p.s

Cytat:

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

Według mnie kod wygląda SUPER :-)