Changing the size of a drawing sheet

[Anonymous]

I'm trying to set the heigh of my sheet to 20% bigger than the height of the view, but i get the following errors:

Anyone know what i'm doing wrong?

Error on Line 5 : Property 'Size' is 'ReadOnly'.
Error on Line 6 : Property 'Height' is 'ReadOnly'.

SyntaxEditor Code Snippet

Height = ThisDrawing.Sheet("Sheet:2").View("1To1").Height
Width  =  ThisDrawing.Sheet("Sheet:2").View("1To1").Width

With ThisDrawing.Sheet("Sheet:2")
    .Size = DrawingSheetSizeEnum.kCustomDrawingSheetSize
    .Height = Round(Height*1.2,0)
    
End With

 Regards

Mark

[frederic.vandenplas]

Hi,

Try to declare your sheet first and then modify the options

SyntaxEditor Code Snippet

Dim odrawdoc As DrawingDocument
odrawdoc = ThisApplication.ActiveDocument
Dim osheet As Sheet
osheet = odrawdoc.ActiveSheet

With osheet
	.Size = kCustomDrawingSheetSize
	.Width = 100
	.Height = 100
End With

[Anonymous]

Thanks.

...but how do i define sheet 2? It's unlikley to be the activesheet

Regards

Mark

[frederic.vandenplas · Accepted solution]

Hi,

Now i see your error, you need to add a S to Sheet

odrawdoc.Sheets("Sheet:2") instead of

odrawdoc.Sheet("Sheet:2")

SyntaxEditor Code Snippet

Dim odrawdoc As DrawingDocument
odrawdoc = ThisApplication.ActiveDocument
Dim osheet As Sheet
osheet = odrawdoc.Sheets("Sheet:2")

With osheet
	.Size = kCustomDrawingSheetSize
	.Width = 100
	.Height = 100
End With

[Anonymous]

Thanks. 

I had tried that, but forgot the "s" on the end of Sheet

doh!