'全圖：
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