topic Macro for fast change in charts in QlikView

Macro for fast change in charts

Wed, 20 Nov 2013 08:17:06 GMT

I am having difficulty getting VB script to work to fast-change a particular chart (exactly how you would by pressing the fast-change button). I got the idea from a previous post on the subject here, but I need to flip between at least 3 chart types.

Here is my macro code. I have attached it to a button. The first part works, so if the chart is currently a line chart, it changes to a bar chart. It doesn't do anything further. I have also tried nesting IF...ELSE IF statements but it doesn't work either. Any ideas?

sub Set1stChartType

set chart = ActiveDocument.GetSheetObject("CH35")

intObjectType = chart.GetObjectType

if intObjectType = 15 then 'is currently a line chart

chart.SetChartType 0

end if

if intObjectType = 0 then 'is currently a line chart

chart.SetChartType 1

end if

if intObjectType = 1 then 'is currently a pie chart

chart.SetChartType 15

end if

end sub

Re: Macro for fast change in charts

bbi_mba_76 — Wed, 20 Nov 2013 09:11:38 GMT

Hi,

I suppose you are missing the ActiveDocument.GetSheetObject("CH196").SetChartType XXX

I use the following macro:

sub SetChartType_Freq

set chart = ActiveDocument.GetSheetObject("CH178")

intObjectType = chart.GetObjectType

if intObjectType = 15 then 'is currently a Bar chart

chart.SetChartType 0

ActiveDocument.GetSheetObject("CH196").SetChartType 0

else

chart.SetChartType 4

ActiveDocument.GetSheetObject("CH196").SetChartType 4

end if

'0=Bar

'1=Pie

'2=Pivot

'3=Scatter

'4=Line

'5=Straight Table

'6=Combo

'7=Radar

'8=Gauge

'9=Grid

'10=Block

'11=Funnel

end sub

Re: Macro for fast change in charts

Wed, 20 Nov 2013 11:28:25 GMT

Thanks for the assistance, your code works great (I realise I left out those lines). However I try to modify it in order to evaluate 3 different charts, and it fails to do anything at all. I'm sure it's because I'm unfamiliar with VBScript syntax. Here it is:

sub SetChartType_Freq

set chart = ActiveDocument.GetSheetObject("CH35")

intObjectType = chart.GetObjectType

if intObjectType = 15 then 'is currently a Bar chart

chart.SetChartType 0

ActiveDocument.GetSheetObject("CH35").SetChartType 0

else

if intObjectType = 0 then

chart.SetChartType 4

ActiveDocument.GetSheetObject("CH35").SetChartType 4

else

if intObjectType = 4 then

chart.SetChartType 15

ActiveDocument.GetSheetObject("CH35").SetChartType 15

end if

end sub

Re: Macro for fast change in charts

bbi_mba_76 — Thu, 21 Nov 2013 08:02:20 GMT

Hi,

you could add a msgbox to 'debug', msgbox intObjectType, to see if the values are correct (after you have to remove the msgbox).

So, after you find the correct intObjectType, you have to define the fast change you need