excel - Excel 2010 中的 3-D 表面图表带 - VBA 到 ctrl 透明度

Question

尝试编写 VBA 代码以使 3-D 曲面图中的条带透明和/或半透明。当我录制宏时，手动单击图例，然后单击波段，然后更改其属性 Excel 2010 记录了以下代码：

ActiveChart.Legend.Select
ActiveChart.Legend.LegendEntries(47).Select
With Selection.Format.Fill
    .Visible = msoTrue
    .ForeColor.RGB = RGB(255, 0, 0)
    .Transparency = 0
    .Solid
End With
With Selection.Format.Fill
    .Visible = msoTrue
    .ForeColor.RGB = RGB(255, 0, 0)
    .Transparency = 1
    .Solid
End With

但是当我尝试执行时，我收到一条错误消息，指出不支持“Format.Fill”。

我用来改变乐队颜色的代码是：

 With Worksheets("Sheet23").ChartObjects(1).Chart.Legend.LegendEntries(BandCount)
    .LegendKey.Interior.Color = RGB(Red(BandCount), Green(BandCount), Blue(BandCount))
    .LegendKey.Shadow = 1 
 End With

有谁知道如何修改此代码以控制透明度？谢谢！

Answer 1

代替：

With Selection.Format.Fill
    .Visible = msoTrue
    .ForeColor.RGB = RGB(255, 0, 0)
    .Transparency = 0
    .Solid
End With

用这个：

With Selection.LegendKey.Format.Fill
     .Visible = msoTrue
     .ForeColor.RGB = RGB(255, 0, 0)
     .Transparency = 0.5          <-- Or whatever value of transparency you want
     .Solid
End With

这是基于 G North 在这篇文章中推荐的方法。