vba16-7.txt

AO的原代码,都是以TXT的文件写的,对你肯定有帮助的.这些都是 我的心血啊.

Public Function GetMapFrameByName(strMapName) As IElement
    ' Return the map frame that
    ' holds a map (dataset) with
    ' the given name.
    Dim pMxDocument As IMxDocument
    Dim pPageLayout As IPageLayout
    Dim pGraphicsContainer As IGraphicsContainer
    Dim pElementsSet As ISet
    Dim pElement As IElement
    Dim pActiveView As IActiveView
    Dim pMapFrame As IMapFrame
    ' Access the page layout.
    Set GetMapFrameByName = Nothing
    Set pMxDocument = Application.Document
    Set pPageLayout = pMxDocument.PageLayout
    Set pGraphicsContainer = pPageLayout
    ' Loop through graphics elements
    ' and examine each one.
    pGraphicsContainer.Reset
    Set pElement = pGraphicsContainer.Next
    Do While Not pElement Is Nothing
        If TypeOf pElement Is IMapFrame Then
            Set pMapFrame = pElement
            If UCase(pMapFrame.Map.Name) = strMapName Then
                Set GetMapFrameByName = pElement
                Exit Do
            End If
        End If
        Set pElement = pGraphicsContainer.Next
    Loop
End Function