Activating Data Frame

nassar1nassar2

I wrote two codes for activating the second data frame in arcmap,the first one works on but the second doesn't and I get the error "object doesn't support this action" Iwant to understand why?

1st code:
Dim pMxDoc As IMxDocument
Set pMxDoc = ThisDocument

Dim pMaps As IMaps
Set pMaps = pMxDoc.Maps

Dim pMap As IMap
Set pMap = pMaps.Item(1)

Set pMxDoc.Activeview=pMap

2nd Code:

Dim pMxDoc As IMxDocument
Set pMxDoc = ThisDocument

Dim pMaps As IMaps
Set pMaps = pMxDoc.Maps

Dim pMap As IMap
Set pMap = pMaps.Item(1)

Dim pActiveView As IActiveView
Set pActiveView = pMap
Set pActiveview.FocusMap=pMap

SiqiLi

The 2nd code fails at Set pActiveview.FocusMap=pMap . You can set IActiveView.FocusMap property, only if current active view is in the page layout mode.

Here is the code I would use:

Dim pActiveView As IActiveView
Set pActiveView = pMxDoc.ActiveView
If TypeOf pActiveView Is IPageLayout Then
   Set pActiveView.FocusMap = pMap
ElseIf TypeOf pActiveView Is IMap Then
   Set pMxDoc.ActiveView = pMap
End If