<P>但是上面的代码，不能实现copy指北针，图例，比例尺等Element的功能</P><P>关注中！</P>

<P><img src="http://www.gisempire.com/bbs/Skins/default/topicface/face323.gif"></P><P>关注中！</P><img src="images/post/smile/dvbbs/em02.gif" /><img src="images/post/smile/dvbbs/em02.gif" />

<P>但是上面的代码，不能实现copy指北针，图例，比例尺等Element的功能</P><P>关注中！</P>

<P>Private Sub CopyFocusMap()
'  Dim i As Integer</P><P>'  For i = 0 To m_pPMap.LayerCount - 1
'    PageLayoutControl1.ActiveView.FocusMap.AddLayer m_pPMap.layer(i)
'  Next
    '获取 IObjectCopy 接口
    Dim pObjectCopy As IObjectCopy
    Set pObjectCopy = New ObjectCopy</P><P>    '获取 IUnknown 接口 (源“Map”)
    Dim pToCopyMap As IUnknown
    Set pToCopyMap = frmMap.map1.ActiveView.FocusMap 'm_pPactiveview.FocusMap</P><P>    '获取 IUnknown 接口 (参与复制的源“Map”)
    Dim pCopiedMap As IUnknown
    Set pCopiedMap = pObjectCopy.Copy(pToCopyMap)</P><P>    '获取 IUnknown 接口 (目的“Map”)
    Dim pToOverwriteMap As IUnknown
    Set pToOverwriteMap = PageLayoutControl1.ActiveView.FocusMap</P><P>    '复制 Map
    pObjectCopy.Overwrite pCopiedMap, pToOverwriteMap</P><P>    
    '设置 PageLayoutControl 的 Extent
  
    PageLayoutControl1.Extent = frmMap.map1.Extent 'm_pPactiveview.Extent  ''hzm
  
    '刷新显示
    PageLayoutControl1.Refresh esriViewGraphics</P><P>End Sub</P>

可以用接口IOBjectCopy ,对地图进行复制