You get better results if you overrule the macro recorder and put ChartType
after SetSourceData.

- Jon
-------
Jon Peltier, Microsoft Excel MVP
Tutorials and Custom Solutions
http://PeltierTech.com
_______


"tskogstrom" wrote in message
ups.com...
Hi again...im sorry to ask for help so much, but charts vba is tricky
..

I try to create a column stacked chart of three bars containing each
three different values, much like Andy Pope's
http://andypope.info/charts/StackColTotal.htm

The CHT_21QSBA_S, CHT_21QSBA_B and CHT_21QSBA_A ranges are each three
different cells (name CHT_21QSBA_S = A1,B5,Q3) and I thought this
together with stating charttype=xlcolumnstacked should create a stacked
chart - but it make 9 bars instead...

Why?

...
Set cht = ActiveSheet.ChartObjects("R_Q_" &
Sheet1.Range("RAPP_TILLF").Value & "_21").Chart
With cht
.ChartType = xlColumnStacked
.SetSourceData Union(Sheet2.Range("CHT_21QSBA_S"),
Sheet2.Range("CHT_21QSBA_B"), Sheet2.Range("CHT_21QSBA_A"))
PlotBy = xlRows
.HasTitle = True
.ChartTitle.Characters.Text = chtTitle
.Axes(xlCategory, xlPrimary).HasTitle = False
.Axes(xlValue, xlPrimary).HasTitle = False
'.ChartType = xlColumnStacked
End With

cht.SeriesCollection(1).Name = "Name1"
cht.SeriesCollection(2).Name = "Name2"
cht.SeriesCollection(3).Name = "Name3"
...
Please help,
Kind regards
tskogstrom