Разве это не то что нужно? Или я что-то не понял? У вас есть открытый документ в ArcMap и форма с PageLayouteControl и вам нужно загруженную карту поместить в данный контрол на вашей форме? Я попробывал переписать тот пример под ArcMap все работает.
Private Sub UserForm_Activate()
CopyAndOverwriteMap
End Sub
Public Sub CopyAndOverwriteMap()
'Get IObjectCopy interface
Dim pObjectCopy As IObjectCopy
Set pObjectCopy = New ObjectCopy
'Get IUnknown interface (map to copy)
Dim pToCopyMap As IUnknown
Dim pMxDoc As IMxDocument
Set pMxDoc = ThisDocument
Set pToCopyMap = pMxDoc.ActiveView.FocusMap
Dim pMap As IMap
Set pMap = pToCopyMap
pMap.IsFramed = False
'Get IUnknown interface (copied map)
Dim pCopiedMap As IUnknown
Set pCopiedMap = pObjectCopy.Copy(pToCopyMap)
'Get IUnknown interface (map to overwrite)
Dim pToOverwriteMap As IUnknown
Set pToOverwriteMap = PageLayoutControl1.ActiveView.FocusMap
'Overwrite the MapControl's map
pObjectCopy.Overwrite pCopiedMap, pToOverwriteMap
End Sub