Reply

Set background sheets

[ Edited ]

Hello all,

 

Just a quick question which I can't seem to solve. I have a Title Block routine which uses Custom Properties and also enables the user to change the background sheet size on the fly. I can retrieve the background name:

 

MsgBox objDoc.ActiveSheet.Background.Name

 

However, is it possible to set it? Perhaps:

 

objDoc.ActiveSheet.Background("Size - O").Visible = True

 

Thanks,

 

Bill

 

Posted by: Bill Ledbetter
Post date: 2/16/2006 4:02:35 AM

1 REPLY

RE: Set background sheets

[ Edited ]

Hello,

 

I've found a resolution. I used the following code:

 

Set objBackground = objDoc.Sections.BackgroundSection.Sheets.Item("Size - I")

objSheet.SheetSetup.PaperUnits = igUnitInches

objSheet.SheetSetup.SheetHeight = 22.25 / 39.370066

objSheet.SheetSetup.SheetWidth = 30.5 / 39.37006

objSheet.Background = objBackground

 

This enable me to let the user pick a new background the way I was after.

 

Thanks,

 

Posted by: Bill Ledbetter
Post date: 2/17/2006 12:33:25 AM