雷达图点的访问边界属性

在Excel VBA中，我可以使用访问RadarChart的每个点

ActiveChart.FullSeriesCollection(1).Points(1).Select 

我正在使用一个图像

 With Selection .MarkerStyle = -4147 .MarkerSize = 5 End With With Selection.Format.Fill .Visible = msoTrue .UserPicture FilePath + "Red.PNG" End With 

问题是这个标记结束了一个边界如果我logging一个macros做改变，看看代码

 Selection.Format.Line.Visible = msoFalse 

被logging下来，但如果运行相同，则会导致系列行消失。

有人可以帮我用代码来closures边界。

Answer 1

你必须使用.MarkerForegroundColorIndex = xlColorIndexNone

看到这个例子

 Option Explicit Sub Sample() Dim sc As Series, dp As Point Dim FilePath As String FilePath = "C:\" Set sc = ActiveSheet.ChartObjects(1).Chart.SeriesCollection(1) With sc .MarkerStyle = -4147 .MarkerSize = 5 For Each dp In sc.Points dp.MarkerForegroundColorIndex = xlColorIndexNone Next With .Format.Fill .Visible = msoTrue .UserPicture FilePath + "Red.PNG" End With End With End Sub 

之前

后