Changing page size dynamically

EricBregant1 — Mon, 11 Jul 2011 22:13:22 GMT

I have a macros function that worked in 9.3 but it is sketchy in 10. When I run the macros it brings up the window where I can type my desired page size in. The problem happens when I edit some data or change something on the mxd. When I run the macros, all of my data and the data frame shrinks down into the bottom corner. It never used to do this in 9.3! Any ideas?

Sub PageSize()
Dim pMxDoc As IMxDocument
Dim pPage As IPage
Dim pDialog As ICoordinateDialog
Dim pActiveView As IActiveView

Set pMxDoc = Application.Document
Set pActiveView = pMxDoc.PageLayout
Set pPage = pMxDoc.PageLayout.Page
Set pDialog = New CoordinateDialog

If pDialog.DoModal("Enter new page size", 8.5, 11, 2, Application.hWnd) Then
    pPage.PutCustomSize pDialog.X, pDialog.Y
    pActiveView.Refresh
End If

Dim pMxDocument As IMxDocument
Set pMxDocument = ThisDocument
Dim pGraphicContainer As IGraphicsContainer
Set pGraphicContainer = pMxDocument.PageLayout
Dim pElement As IElement
Dim pFrameElement As IFrameElement
Dim pEnvelope As IEnvelope
pGraphicContainer.Reset
Set pElement = pGraphicContainer.Next
Do While Not pElement Is Nothing
      If TypeOf pElement Is IMapFrame Then
          Set pFrameElement = pElement
          Set pEnvelope = pElement.Geometry.Envelope
          With pEnvelope 'set position in page unit
              .XMin = 0
              .XMax = pDialog.X
              .YMin = 0
              .YMax = pDialog.Y
          End With
          pElement.Geometry = pEnvelope
      End If
      Set pElement = pGraphicContainer.Next
Loop
If TypeOf pMxDocument.ActiveView Is IPageLayout Then pMxDocument.ActiveView.Refresh
End Sub

topic Changing page size dynamically in Mapping Questions

Changing page size dynamically