Macros for changing page size.

Hi Corel users,

I am in need of a macro that allows me to make my page size the same size as the current grouped objects or object in my scene.

I do large format digital printing and before exporting a file I need to make my page size the same size of the object that I am exporting.

I tried recording a macro with no success.

Any help will be appreciated.

Thank you

Parents
  • I am able to run the following one:

    Sub SetPageSameAsSelected()

    Dim sr As ShapeRange, s As Shape
    Dim x#, y#, w#, h#, dOffset#

    dOffset = 0# 'change as needed postive of negative

    Set sr = ActiveSelectionRange
    If sr.Count = 0 Then Exit Sub

    sr.GetBoundingBox x, y, w, h

    ActivePage.SetSize w, h

    End Sub

    Where in the above scripting do give the page size value?





    Kind Regards/Vriendelike Groete
    Shaun Goosen

    Dynamcor Visualization (Pty) Ltd
    76 Garsfontein Drive, Alphen Park, Pretoria
    076 716 2317


       

Reply Children