Excel zoom error

[Lucas]

Why?

Macro Macro47

Code:

Copy      Help

ExcelSheet es.Init
es.ws.UsedRange.Select
es.ws.Application.ActiveWindow.Zoom=TRUE

Error (RT) in Macro47: 0x80020009, Ocurrió una excepción.
0x3EC, No se puede asignar la propiedad Zoom de la clase Window.

Macro in Excel:

Sub Macro1()
'
' Macro1 Macro
'

'
Range("A1:H57").Select
ActiveWindow.Zoom = True
End Sub

[Gintaras]

The problem is that QM does not have a bool variable type. Often COM functions accept int for bool parameters, but not in this case.

Macro Macro2769

Code:

Copy      Help

ExcelSheet es.Init
es.ws.UsedRange.Select
VARIANT v.vt=VT_BOOL; v.boolVal=TRUE
es.ws.Application.ActiveWindow.Zoom=v

[Lucas]

Thanks.