vba16-3.txt

ao的一些代码集合

Public Sub CreateLayout()
    ' This VBA macro, gets the page
    ' size from the user and creates
    ' a layout. It requires two map
    ' frames named Detail and Overview.
    Dim pOverviewElement As IElement
    Dim pDetailElement As IElement
    '
    ' (1) Remove any existing elements on
    '     the page layout except map frames.
    ClearPageLayout
    '
    ' (2) Get the page size and orientation
    '     from the user and apply it to the
    '     page layout.
    If Not SetPageSize() Then
        Exit Sub
    End If
    '
    ' (3) Position the detail map frame.
    Set pDetailElement = PlaceDetailMapFrame
    If pDetailElement Is Nothing Then
        Exit Sub
    End If
    '
    ' (4) Position the overview map frame.
    Set pOverviewElement = PlaceOverviewMapFrame
    If pOverviewElement Is Nothing Then
        Exit Sub
    End If
    '
    ' (5) Add legend, north arrow and scalebar.
    AddLegend pDetailElement
    AddNorthArrow pDetailElement
    AddScalebar pDetailElement
    '
    ' (6) Add two text areas for the
    '     user to add title and subtitle.
    AddText
    ' Page layout is refreshed in the
    ' AddText procedure.
End Sub