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

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

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

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

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

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

<P>跪拜 万分感谢 </P>

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

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