HasLeaderLines not working
 

Hi All,

Working from within Access and using VBA, I am exporting a query t
Excel, formatting the spreadsheet, and then creating six pie chart
based on the data in the query.

Everything works great, except for the Leader Lines. Even though
selected to include the Leader Lines while recording the macro that
used in my code, and my code does include "HasLeaderLines:=True" (se
below), and even though I can see the Leader Lines being created whe
the macro is running, after the program has ended, I open the Exce
file, and the Leader Lines are not there.

Here is the code for the first of the six pies:

' Group 15 Core Services pie Chart
xlApp.Charts.Add
xlApp.ActiveChart.ChartType = xlPie
xlApp.ActiveChart.SetSourceDat
Source:=xlApp.Sheets("qry_transaction_summary_core _ac").Range("C"
intGrp15_CORE_Start_Row & ":C" & intGrp15_CORE_End_Row & ",D"
intGrp15_CORE_Start_Row & ":D" & intGrp15_CORE_End_Row)
PlotBy:=xlColumns
xlApp.ActiveChart.Location WHE=xlLocationAsNewSheet
Name:="Grp15 - SVCS"
With xlApp.ActiveChart
.HasTitle = True
.ChartTitle.Characters.Text = _
"Group 15 - Payor Mix - Services - " & strMonthName_YYYY
End With
xlApp.ActiveChart.ApplyDataLabel
Type:=xlDataLabelsShowLabelAndPercent, LegendKey _
:=False, HasLeaderLines:=True
xlApp.ActiveWindow.Zoom = 75

If anyone has had experience with this, please shed some light.

Thanks in advance,

Rich

--
Message posted from http://www.ExcelForum.com