vba16-7.txt

来自「本书给出了AO的常用的VAB代码 可能是初学者很好的一本参考书」· 文本 代码 · 共 32 行

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