topic set Chart Type in QlikView

set Chart Type

Anonymous — Mon, 22 Sep 2014 08:28:44 GMT

Hi all ,

i hava a Chart CH04 which is a line Chart now from an example i found on the forum i can change the type using a button with the following macro:

sub SetChartType

set chart = ActiveDocument.GetSheetObject("CH04")

intObjectType = chart.GetObjectType

if intObjectType = 15 then 'is currently a line chart

chart.SetChartType 2

else

chart.SetChartType 4

end if

end sub

it works fine

but my issue is i have a ist on chart names in a listbox the chart have different type

now i want to b able to change the Chart type based on the selection in the ChartName list box

example:

Charts:

ChartName,ChartType,ChartTypeID

Billing,LineChart,15

Sales,PivotTable,10

i have a variables that picks the ChartType and ChartTypeID on selecting a ChartName

vChartType:

=only(ChartType)

vChartTypeID:

=only(ChartTypeID)

my problem now is i want to select CahrtName ,- Billing then set the ChartType for CH01 to the value of the vChartTypeID variable

thanx in advance

Re: set Chart Type

Wed, 02 Mar 2016 23:33:51 GMT

I like what you are trying to do but I am having another issue where trying to set the chart type doesn't always work.

First of all, when I try to set a chart value, it doesn't adhere to the values I have found online. The values appear to be correct--I know this because I used a msgbox to tell me the object type and it matched what I've found online.

Here is my code:

sub SetChartType

set chart = ActiveDocument.GetSheetObject("adhoc")

intObjectType = chart.GetObjectType

Dim ChartValue

ChartValue = ActiveDocument.Variables("vSetChartType").GetContent().String

intObjectType = chart.GetObjectType

msgbox (intObjectType)

intTest = 12

if ChartValue = "1" then 'Straight Table

chart.SetChartType 5

elseif ChartValue = "2" then 'pivot table

chart.SetChartType 2

elseif ChartValue = "3" then 'bar chart --- DOES NOT WORK, set's it to a mekko chart...

chart.SetObjectType 12

elseif ChartValue = "4" then 'line chart

chart.SetChartType 3

elseif ChartValue = "5" then 'bar/line chart

chart.SetChartType 2

end if

end sub

Troubleshooting:
Set chart to bar chart, added msgbox to tell me the object value. The msgbox reads the bar chart as 12. As soon as it executes "chart.SetObjectType 12", it switches to a mekko chart. When I use msgbox to read the chart type selected, it tells me 37--what the heck?

This is the list I have:

0=Unknown

1=List Box

2=Multi Box

3=Statistics Box

4=Table Box

5=Button

6=Text Object

7=Current Selections Box

8=Input Box

9=Line/Arrow Object

10=Pivot Table

11=Straight Table

12=Bar Chart

13=Pie Chart

14=Scatter Chart

15=Line Chart

16=Combo Chart

17=Custom Object

18=Bookmark Object

19=Slider/Calendar Object

20=Grid Chart

21=Radar Chart

22=Gauge Chart

Re: set Chart Type

marcus_sommer — Thu, 03 Mar 2016 12:03:44 GMT

I think it should more look like:

sub SetChartType

Dim ChartValue

ChartValue = ActiveDocument.Variables("vSetChartType").GetContent().String

set chart = ActiveDocument.GetSheetObject("adhoc")

intObjectType = chart.GetObjectType

if ChartValue <> intObjectType then chart.SetChartType = ChartValue

end sub

But why didn't you use the feature of fast chart-type change (object properties in tab general)?

- Marcus

Re: set Chart Type

Thu, 03 Mar 2016 14:33:20 GMT

There are many users of this dashboard and honestly, the fast switch button is extremely tiny. It's easily missed.

...I was just informed that macro's don't work on the ajax website of Qlik.... so scrap all this

I suppose the alternative would be conditional show/hide with different flavors of the chart. Gosh, I wish there was an elegant way to manage show/hide variables and triggers.

Re: set Chart Type

marcus_sommer — Thu, 03 Mar 2016 16:14:23 GMT

I understand what you mean and it's really a pity that the icons are not customizable. But maybe something like this could be used to emphasize the icon:

There are probably more elegant solutions possible - it should only demonstrate what I mean.

- Marcus