topic zoom in QlikView

zoom

hopkinsc — Fri, 29 Oct 2010 11:09:52 GMT

Hi,

Is it possible to use a custom zoom instead of the standard :

25% 50% 75% 100% 125% 150% 175% 200% 400%

I know i can use the 'Fit Zoom to Window' option, but i would like if possible the user to input a zoom level themselves using an input box or selecting from a list box.

Thanks

zoom

hopkinsc — Fri, 29 Oct 2010 12:48:05 GMT

any update on this?

zoom

Fri, 29 Oct 2010 13:16:54 GMT

Hi,

You can use a macro and set in document properties, Triggers / Filed Event Triggers / On Selection

Set a external / Run Macro

Create macro and set then

SUB ZOOM

set mysheet=ActiveDocument.ActiveSheet
set sp=mysheet.GetProperties
sp.ZoomFactor = ActiveDocument.Fields("YOUR_FIELD").GetSelectedValues.Item(0).Text
mysheet.SetProperties sp

END SUB

zoom

hopkinsc — Fri, 29 Oct 2010 13:29:57 GMT

Thanks Eduardo.

What do i put instead of YOUR FIELDS though? I want to change the zoom on the enire sheet not a specific field. or am i missunderstanding it?

zoom

Fri, 29 Oct 2010 13:34:05 GMT

Hi,

YOUR_FIELD reference a number of zoom that you want.

TABLE_ZOOM:

0.10

0.20

0.30

...

This zoom will be reflected in you sheet.

zoom

tanelry — Fri, 29 Oct 2010 13:36:48 GMT

I have played with this once.

Here is a macro built around a variable called "zoom" (default value: 100%).

The variable has "on input" trigger which runs the macro.

You can change the variable via slider or buttons.

Have fun!


sub zoom
zoomvalue = ActiveDocument.Evaluate("num(zoom)")
set mysheet=ActiveDocument.ActiveSheet
set sp=mysheet.GetProperties
sp.ZoomFactor = zoomvalue
mysheet.SetProperties sp

ActiveDocument.GetApplication.WaitForIdle

ActiveDocument.ActiveSheet.ApplyZoomToAllSheets
end sub

zoom

hopkinsc — Fri, 29 Oct 2010 13:44:48 GMT

Thanks Tanel.. I am getting an error when tring to run the macro

the edit module box appears with the error:

Type mismatch: 'sp.ZoomFactor'

Have you got an example of this working you could upload please??

zoom

tanelry — Fri, 29 Oct 2010 14:03:26 GMT

should be working. Try variable value 1 then 1.1 or 0.9.

If still error, it could be local settings issue (decimal sep). Then use integers (100, 110) in variable and make division in macro:

change this line to: sp.ZoomFactor = zoomvalue * 0.01

zoom

hopkinsc — Fri, 29 Oct 2010 14:10:50 GMT

Hmm, still not working. It doesnt like 'zoomvalue'....

zoom

hopkinsc — Fri, 29 Oct 2010 14:15:15 GMT

Can you confirm that this is right please?

I'm lost now 😞

sub zoom
zoomvalue = ActiveDocument.Evaluate("num(zoom)")
set mysheet=ActiveDocument.ActiveSheet
set sp=mysheet.GetProperties
sp.ZoomFactor = zoomvalue * 0.01
mysheet.SetProperties sp
ActiveDocument.GetApplication.WaitForIdle
ActiveDocument.ActiveSheet.ApplyZoomToAllSheets
end sub

zoom

tanelry — Fri, 29 Oct 2010 14:24:51 GMT

Check if your variable is called "zoom".

If not change the Evaluate(...) line to find your variable name:

zoomvalue = ActiveDocument.Evaluate("num(YOURVARIABLE)")

Also make sure there is no fields with the same name.

zoom

hopkinsc — Fri, 29 Oct 2010 14:39:15 GMT

Ahh, found it!!

My variable was called zoom but with a CAPITAL Z!

All working now!

thanks for your help.