Skip to main content
Announcements
Have questions about Qlik Connect? Join us live on April 10th, at 11 AM ET: SIGN UP NOW
cancel
Showing results for 
Search instead for 
Did you mean: 
Anonymous
Not applicable

set Chart Type

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

4 Replies
Not applicable
Author

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

marcus_sommer

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

Not applicable
Author

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.

marcus_sommer

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