I am trying to add a shadow effect to a Pie Chart. I found some code on your site for the plot area and converted that. When I open the xlsx file that is created, I do not see the shadow effect. However when I select format dataseries and check the shadow settings, I can see all of my settings present. If I just change one of the settings than the shadow effect shows up. Am I missing a step to get the shadow to show. Here is my code and I have attached the xlsx file that is created. In the end, I will be saving this as an image which also is not showing the shadow effect
I am using version 7.2.2.0 or ASPOSE Cells
Dim workbook As Workbook = New Workbook
Dim worksheet As Worksheet = workbook.Worksheets(0)
'Adding a chart to the worksheet
Dim chartIndex As Integer = worksheet.Charts.Add(Aspose.Cells.Charts.ChartType.Pie, 1, 7, 13, 11)
Dim chart As Aspose.Cells.Charts.Chart = worksheet.Charts(chartIndex)
chart.NSeries.Add("A1:A3", True)
worksheet.Cells(0, 0).PutValue(15)
chart.NSeries(0).Points(0).Area.ForegroundColor = System.Drawing.Color.PowderBlue
worksheet.Cells(1, 0).PutValue(25)
chart.NSeries(0).Points(1).Area.ForegroundColor = System.Drawing.Color.GreenYellow
worksheet.Cells(2, 0).PutValue(60)
chart.NSeries(0).Points(2).Area.ForegroundColor = System.Drawing.Color.Pink
chart.NSeries(0).Border.IsVisible = True
chart.NSeries(0).Border.Color = System.Drawing.Color.White
chart.NSeries(0).Border.Weight = 2
chart.NSeries(0).Border.Transparency = 0.5
chart.NSeries(0).Shadow = True
Dim shpt As Aspose.Cells.Drawing.ShapePropertyCollection = chart.NSeries(0).ShapeProperties
Dim shadowEffect As Aspose.Cells.Drawing.ShadowEffect = shpt.ShadowEffect
Dim cellcolor As CellsColor = workbook.CreateCellsColor
cellcolor.Color = System.Drawing.Color.Red
shadowEffect.Color = cellcolor
shadowEffect.Transparency = 0.6
shadowEffect.Size = 1
shadowEffect.Blur = 4
shadowEffect.Angle = 90
shadowEffect.Distance = 3
chart.ShowLegend = objGraphOptions.ShowLegend
chart.PlotArea.Border.IsVisible = objGraphOptions.ShowPlotAreaBorder
chart.ChartArea.Border.IsVisible = objGraphOptions.ShowChartAreaBorder
strImageName = strAccessCode & strAdditionalGraphName & CreateUniqueString(UniqueStringType.TimeOnly) & ".emf"
chart.ToImage(objEnvironmentVariables.ReportPath & strImageName, System.Drawing.Imaging.ImageFormat.Emf)
workbook.Save(objEnvironmentVariables.ReportPath & strImageName & CreateUniqueString(UniqueStringType.TimeOnly) & ".xlsx", Aspose.Cells.SaveFormat.Xlsx)