[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

收下了

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

发表回复

精选推荐