2 全图.txt

来自「ao的一些代码集合」· 文本 代码 · 共 14 行

'全图：
Sub FullExtentPlus()

  Dim pDoc As IMxDocument    '地图文档
  Dim pActiveView As IActiveView    '活动地图

  Set pDoc = Application.Document    '获取当前地图文档
  Set pActiveView = pDoc.activeView    '获取当前活动地图
  
  pActiveView.Extent = pDoc.ActiveView.FullExtent    '全图显示
  pActiveView.Refresh    '刷新当前视图

End Sub