Using Excel zoom window from Access VBA 1

[MichaelintheUK]

Hello

I have an export routine to create as new Excel workbook from Access VBA.

The Excel reference is enabled.

The following shows the declarations....

Dim xlapp As Excel.Application
Dim xlbook As Excel.Workbook
Dim xlSheet As Excel.Worksheet

These all work alright.

The page set line below works.

xlSheet.PageSetup.Zoom = 70

The problem is the line to make the sheet resize with a zoom of 70.

What I want is the full Excel reference equivalent to the internal Excel code below.

ActiveWindow.Zoom = 70

If anyone can help please.

thanks

Michael

 

[PHV]

Did you try this ?
xlapp.ActiveWindow.Zoom = 70

Hope This Helps, PH.
FAQ219-2884
FAQ181-2886

 

[MichaelintheUK]

Hello PHV

thanks for a quick and helpful response.

Michael