vba15-3.txt

来自「ao的一些代码集合」· 文本 代码 · 共 18 行

Public Sub OpenMapInsetWindow()
    ' Create a magnification window
    ' and set its zoom factor to 500%.
    Dim pDataWindowFactory As IDataWindowFactory
    Dim pMapInsetWindow As IMapInsetWindow
    Dim pMapInset As IMapInset
    Set pDataWindowFactory = New MapInsetWindowFactory
    If Not pDataWindowFactory.CanCreate(Application) Then
        MsgBox "Unable to create magnification window."
        Exit Sub
    End If
    Set pMapInsetWindow = pDataWindowFactory. _
    Create(Application)
    pMapInsetWindow.Show True
    Set pMapInset = pMapInsetWindow.MapInset
    pMapInset.ZoomPercent = 500
End Sub