Corel FORUM

[Sparkman]

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]

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