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

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

如题

例如：

图形中有一个半径15的圆是个块叫K1

有一个尺寸为 25X14的矩形是个块叫K2

还有一个非规则的图形（我也不知道该怎么描述它的尺寸呵呵）是个块叫K3

想通过VBA 让他们的纵向高度就是Y轴方向上的高度通通缩放成5

这样就可以编排进一个单元格高度是6的表格里了

做图例用的

望高手指点一二

用VBA查找块缩放块插入块的方法已经全部知晓

就是不只怎么判断原来块的尺寸以便进行缩放

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

[WEB]http://www.vba.cn/object/acad2004/idh_getboundingbox.htm[/WEB]

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

跪拜万分感谢

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

收下了

账号		自动登录	找回密码
密码			注册