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
Automatyczne grupowanie obiektów w innym obiekcie
Autor Wiadomość
Sparkman
Początkujący


Wersja CorelDRAW: Corel X6
Dołączył: 17 Kwi 2019
Posty: 5
Skąd: Wrocław
Wysłany: 17 Kwiecień 2019, 12:52   Automatyczne grupowanie obiektów w innym obiekcie

Witam,

Szukam makra, które by automatycznie grupowało obiekty znajdujące się w innym obiekcie.

Np. mam na stronie kilkadziesiąt kwadratów, a w każdym kwadracie znajdują się inne obiekty.
I teraz chciałbym, że żeby makro grupowało ten główny kwadrat wraz z jego zawartością.

Czy jest to możliwe?
 
 
Sparkman
Początkujący


Wersja CorelDRAW: Corel X6
Dołączył: 17 Kwi 2019
Posty: 5
Skąd: Wrocław
Wysłany: 18 Kwiecień 2019, 08:20   

Już sobie poradziłem.
Może komuś takie makro się przyda.

Kod:

Sub GroupInsideObject()
Dim s As Shape
Dim sr As ShapeRange
Dim x As Double, y As Double, w As Double, h As Double
Set sr = ActivePage.Shapes.All
For Each s In sr.Shapes
s.GetBoundingBox x, y, w, h, True
    Set s = ActivePage.SelectShapesFromRectangle(x, y, x + w, y + h, False)
    If s.Shapes.Count >= 1 Then s.Group
Next s
End Sub
 
 
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: 13