版块 › CorelDRAW专区 › 求教VBA代码 如何写群组？

sxppx 发表于 2024-4-30 16:03:50

求教VBA代码 如何写群组？

Dim s1，s2，s3，s4 As Shape

' 矩形内元素智能群组
Set s1 = ActivePage.SelectShapesFromRectangle(**, **, **, **, False)
s1.Shapes.All.Group

' 矩形内元素智能群组
Set s2 = ActivePage.SelectShapesFromRectangle(**, **, **, **, False)
s2.Shapes.All.Group

' 矩形内元素智能群组
Set s3 = ActivePage.SelectShapesFromRectangle(**, **, **, **, False)
s3.Shapes.All.Group

' 矩形内元素智能群组
Set s4 = ActivePage.SelectShapesFromRectangle(**, **, **, **, False)
s4.Shapes.All.Group


请教大佬， 如何写VBA代码把四个矩形范围智能群组的对象， 再次群组为一个对象？

sxppx 发表于 2024-4-30 17:12:56

自己搞定了， 麻烦群组删帖吧，感谢论坛提供求教平台

查看完整版本: 求教VBA代码 如何写群组？