CorelDRAW VBA - 矩形内组(智能群组)方法


在 CorelDRAW VBA 中,可以通过 Page 对象的 SelectShapesFromRectangle 方法选中某个矩形范围内的所有其他形状,选中后得到选中的形状,再执行群组,就实现了矩形内组,一般也可以叫做智能群组。

准备工作

在页面上绘制一个矩形,大致的效果如下图所示:

首先选中最大的矩形外框,然后在VBA编辑器中,编写一个过程并运行该过程,就可以发现矩形内部的形状都被选中,并且自动群组。代码参考如下:

Sub testInnerGroup()
	Dim sh As Shape, s As Shape
	Set s = ActiveShape ' 这是当前选中的矩形(请先在页面中选中)
	Set sh = ActivePage.SelectShapesFromRectangle(s.LeftX, s.TopY, s.RightX, _
	                                                   s.BottomY, False)
	' 将选中的全部形状进行群组
	sh.Shapes.All.Group
	MsgBox "矩形内组完成!"
End Sub
相关推荐
©️2020 CSDN 皮肤主题: 护眼 设计师:闪电赇 返回首页
实付 9.90元
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、C币套餐、付费专栏及课程。

余额充值