| |
Corel FORUM
Forum użytkowników programów firmy Corel. Grafika wektorowa, rastrowa i obróbka zdjęć cyfrowych |
 |
Makra - Automatyczne grupowanie obiektów w innym obiekcie
Sparkman - 17 Kwiecień 2019, 13:52
Temat postu: 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 - 18 Kwiecień 2019, 09: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
|
|
|