Excel VBA用于更改雷达图上的标记大小、颜色和透明度

当我试图在雷达图上指定自定义标记颜色和透明度级别时，VBA阻止了我。我已经了解到顺序存在一些问题，但无论我在哪里尝试.transparency参数，都会出现以下错误：对象不支持此属性或方法

如果我在下面的代码中注释掉.transparency行，我会得到一个很好的雷达图，其中的标记由rngColors中的值着色。我只想让它们透明，这样底层的线条图也能通过。任何帮助或建议都将不胜感激

问候,， 亚当

---

我找到的信息具有正确的语法

.Format.Fill.Transparency=0.5

尽管根据您的Excel版本，有关于该编码错误的讨论：

---

感谢这些链接…我看到了一些类似的东西，并尝试单独使用“.Format.Fill.Transparency=0.5”，以及“.Format.Fill”和格式参数（实心、可见等）的其他几种组合，但该错误仅在我添加透明度时出现，而不管它出现在代码中的何处。感谢您的建议，稍微摆弄一下就行了！

Sub colorPoints()

'Must select chart when running macro

  Dim x As Long
  Dim rngColors As Range

  Set rngColors = Range("H8:H57") 'set range of RGB color

  For x = 1 To ActiveChart.SeriesCollection(1).Points.Count
    With ActiveChart.SeriesCollection(1).Points(x)

        .Format.Fill.Solid
        .MarkerBackgroundColor = RGB(212, 142, rngColors(x))
        .transparency = 0.5 <-Error: 'Object doesn't support this property or method.'

    End With
Next

End Sub

Sub transcheck()

' transcheck Macro

Dim cht As Chart
Dim Ser As Series
Dim lngIndex As Long
Dim lngChartType As XlChartType

Set cht = ActiveSheet.ChartObjects(1).Chart
Set Ser = cht.SeriesCollection(1)
lngChartType = Ser.ChartType
Ser.ChartType = xlColumnClustered

For lngIndex = 1 To 50
 With Ser.Format.Fill
   .Solid
   .Visible = True
   .transparency = 0.5
 End With

Ser.ChartType = lngChartType
Next
End Sub