Excel VB.NET如何更改气泡图中单个气泡的边框？

我正在VB.NET中生成气泡图，我认为将气泡的边界加厚会很好，这样更容易看到是否有重叠，但我无法确定如何做。要手动操作，只需右键单击气泡，转到“边框样式”并输入值

我选择了如何使用以下选项更改气泡的颜色：

.chart.SeriesCollection(i).interior.color = RGB

我花了相当多的时间四处阅读，寻找类似的东西，使我能够提高边境的重量一个点左右，但我没有运气

有人知道怎么做吗？一如既往地谢谢你

更新：我所做的：

            With oChart

            With CType(.SeriesCollection, Excel.SeriesCollection)
                .NewSeries()
                With CType(.Item(counterVal - 43), Excel.Series)
                    .Name = mainSheet.Range("a" & counterVal).Value
                    .XValues = mainSheet.Range("b" & counterVal).Value
                    .Values = mainSheet.Range("d" & counterVal).Value
                    .BubbleSizes = mainSheet.Range("c" & counterVal).Value
                    .HasDataLabels = True
                    .DataLabels.Position = XlDataLabelPosition.xlLabelPositionAbove
                    'DL.ShowSeriesName = True
                    .Has3DEffect = True
                    .Format.ThreeD.SetThreeDFormat(Microsoft.Office.Core.MsoPresetThreeDFormat.msoThreeD1)
                    '.Format.Line.Weight = 1.5
                End With
            End With
        End With

我最终只使用了3D效果而不是线宽，但我把它们都保留了下来

例如

Dim ws As Worksheet
Dim co As ChartObject
Dim ch As Chart
Dim sr As Series
Dim pt As Point

Set ws = ActiveSheet
Set co = ws.ChartObjects(1)
Set ch = co.Chart
Set sr = ch.SeriesCollection(1)
Set pt = sr.Points(19)

pt.Select

With Selection.Format.Fill
    .Visible = msoTrue
    .ForeColor.ObjectThemeColor = msoThemeColorAccent2
    .ForeColor.TintAndShade = 0
    .ForeColor.Brightness = 0
    .Transparency = 0
    .Solid
End With
With Selection.Format.Line
    .Visible = msoTrue
    .ForeColor.RGB = RGB(0, 176, 80)
    .Transparency = 0
End With

---

抱歉，刚才看到您要求的是VB.Net，而这个答案是针对VBA的。但是，您仍然需要引用您的系列集合中的点谢谢，我在VBA和VB.NET中都提供了它，因为VBA经常通知.NET，这是宏记录器使我失败的罕见实例之一。我将深入研究你发布的内容，看看我是否能从中得到答案，到目前为止，它看起来很有希望。VBA中有一种奇怪的行为，没有

pt.Select

语句，此代码似乎无法工作。如果您尝试直接更新

Point.Format.Fill

，它似乎不起作用。因此，显然我没有认真思考和整理它。我给你荣誉，因为你的帖子让我走上了正确的轨道。谢谢我更新了我的第一篇博文，其中包含了最终有效的内容。