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

FAQFAQ  SzukajSzukaj  UżytkownicyUżytkownicy  GrupyGrupy
RejestracjaRejestracja  ZalogujZaloguj  DownloadDownload

Poprzedni temat «» Następny temat
makro - pętla do wyszukiwania co którejś krzywej
Autor Wiadomość
michal.s 
Praktyk


Wersja CorelDRAW: x4
Pomógł: 1 raz
Dołączył: 01 Lut 2012
Posty: 65
Skąd: Poznań
Wysłany: 20 Sierpień 2021, 16:36   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 :-)



Przechwytywanie.JPG
Pobierz Plik ściągnięto 192 raz(y) 89.58 KB

 
 
Martin Nez 
Doradca
Grafik?


Wersja CorelDRAW: 2019
Pomógł: 14 razy
Dołączył: 29 Sty 2011
Posty: 113
Skąd: Czmoń
Wysłany: 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 
Praktyk


Wersja CorelDRAW: x4
Pomógł: 1 raz
Dołączył: 01 Lut 2012
Posty: 65
Skąd: Poznań
Wysłany: 23 Sierpień 2021, 11:22   

Martin Nez,
STOKROTNE DZIĘKI :-)
 
 
michal.s 
Praktyk


Wersja CorelDRAW: x4
Pomógł: 1 raz
Dołączył: 01 Lut 2012
Posty: 65
Skąd: Poznań
Wysłany: 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 :-)
 
 
Wyświetl posty z ostatnich:   
Odpowiedz do tematu
Nie możesz pisać nowych tematów
Nie możesz odpowiadać w tematach
Nie możesz zmieniać swoich postów
Nie możesz usuwać swoich postów
Nie możesz głosować w ankietach
Nie możesz załączać plików na tym forum
Możesz ściągać załączniki na tym forum
Dodaj temat do Ulubionych
Wersja do druku

Skocz do:  

Powered by phpBB modified by Przemo © 2003 phpBB Group
Nowe zasady dotyczące cookies. Wykorzystujemy pliki cookies, aby nasz serwis lepiej spełniał Państwa oczekiwania. Można zablokować zapisywanie cookies, zmieniając ustawienia przeglądarki.
         
Strona wygenerowana w 0.08 sekundy. Zapytań do SQL: 15