[求助]请高手帮忙,看看程序问题啊,这是明经发表的程序
本帖最后由 作者 于 2007-3-30 10:13:50 编辑 <br /><br /> <p>小弟求一个VBA源代码,</p><p>具体的是比如:按快捷键,框选一个矩形,以指定比例0.24的缩放.程序结束</p><p>这也就当高手们的练习啊,谢过</p><p>急用,高手们请小试牛刀啊</p><p></p><p><font color="#000080">Sub Ch3_ZoomScaled()</font></p><p><font color="#000080">MsgBox "使用以下参数执行 ZoomScaled:" <br/>& vbCrLf & _<br/><br/>"比例类型: acZoomScaledRelative" & vbCrLf <br/>& _<br/><br/>"比例因子: 2", , "ZoomScaled"<br/><br/><br/>Dim scalefactor As Double<br/><br/>Dim scaletype As Integer<br/><br/><br/>scalefactor = 2<br/><br/>scaletype = acZoomScaledRelative<br/><br/><br/>ThisDrawing.Application.ZoomScaled scalefactor, scaletype</font></p><p><font color="#000080">End Sub</font></p><p><font color="#000080">这个程序有问题?,找找</font></p>
页:
[1]