Myzoomin vbaSub MyZoomIn()
来源：互联网 发布：淘宝店铺取名 编辑：程序博客网 时间：2024/04/30 23:19
Sub MyZoomIn()
Dim pDoc As IMxDocument
Dim pEnv As IEnvelope
Set pDoc = ThisDocument
Set pEnv = pDoc.ActivatedView.Extent
pEnv.Expand 0.6, 0.6, True
pDoc.ActiveView.Extent = pEnv
pDoc.ActiveView.Refresh
End Sub
close and return to arcmap
