VBA Sheet Size doesnt work

[Anonymous]

Hello,
I want to change the sheet size by macro.
But what ever I do, it changes only height... and width only after a second run of the macro.
How can I get the code run both size at once?

The code I use:

Dim oSheets As Sheet
Dim oDrawingDoc As DrawingDocument
Set oDrawingDoc = ThisApplication.ActiveDocument
Set oSheets = oDrawingDoc.ActiveSheet

oSheets.Size = DrawingSheetSizeEnum.kCustomDrawingSheetSize
oSheets.Height = 160
oSheets.Width = 250 

[frederic.vandenplas · Accepted solution]

SyntaxEditor Code Snippet

Dim oSheets As Sheet
Dim oDrawingDoc As DrawingDocument
 oDrawingDoc = ThisApplication.ActiveDocument
 oSheets = oDrawingDoc.ActiveSheet

oSheets.Size = DrawingSheetSizeEnum.kCustomDrawingSheetSize

oSheets.Width = 250 
oSheets.Height = 160

[Anonymous]

ufff....
simply turn it

thx