[求助]请高手帮忙,看看程序问题啊,这是明经发表的程序

kaolahu

小弟求一个VBA源代码,

具体的是比如:按快捷键,框选一个矩形,以指定比例0.24的缩放.程序结束

这也就当高手们的练习啊,谢过

急用,高手们请小试牛刀啊

Sub Ch3_ZoomScaled()

MsgBox "使用以下参数执行 ZoomScaled:"
& vbCrLf & _

"比例类型: acZoomScaledRelative" & vbCrLf
& _

"比例因子: 2", , "ZoomScaled"


Dim scalefactor As Double

Dim scaletype As Integer


scalefactor = 2

scaletype = acZoomScaledRelative


ThisDrawing.Application.ZoomScaled scalefactor, scaletype

End Sub

这个程序有问题?,找找