68651521 发表于 2006-1-11 20:28:00

[VBA]图形中所有形状大小都不一的块能通过VBA统一缩放到一个固定高度吗?

如题
例如:
图形中有一个半径15的圆 是个块 叫K1
有一个尺寸为 25X14的矩形 是个块 叫K2
还有一个非规则的图形 (我也不知道该怎么描述它的尺寸 呵呵) 是个块 叫K3
想通过VBA 让他们的纵向高度 就是Y轴方向上的高度 通通缩放成5
这样就可以编排进一个单元格高度是6的表格里了
做图例用的
望高手指点一二
用VBA查找块 缩放块 插入块 的方法已经全部知晓
就是不只怎么判断原来块的尺寸 以便进行缩放

雪山飞狐_lzh 发表于 2006-1-11 21:41:00

http://www.vba.cn/object/acad2004/idh_getboundingbox.htm

68651521 发表于 2006-1-11 21:59:00

跪拜 万分感谢

dragonboy 发表于 2006-1-12 20:22:00

收下了
页: [1]
查看完整版本: [VBA]图形中所有形状大小都不一的块能通过VBA统一缩放到一个固定高度吗?