各种透明步骤在图表中的一行

Question

我正在使用VBA与Excel 2013.我正在开发一个带有图表的宏，在图表内部有一条线，如果点有一个系列。我需要在2点之间的步骤中应用透明度形状。

示例 1至2固体 2至3透明 3到4个固体

使用.transparency = 0和1，形状将应用于整行。我尝试将各种时间应用于.trasnparency，但它适用于整行。

如何应用透明度来实现上述行为？

Answer 1

获得间隙的最简单方法是在要显示的线段之间插入一个空行。在下面的顶视图中，数据范围是连续的，图表也是如此。在底部视图中，我在水平线段的X-Y值之间插入了空行，图表奖励了我在图中的间隙，因此垂直线不会显示出来。

如果您的代码将数组插入图表系列源数据中，则无法获得这些差距，但您可以使用此类代码使其消失（使用No Line而不是Transparency，个人偏好）：< / p>

Sub TransparentVerticals()
  Dim srs As Series
  Dim iPt As Long
  Set srs = ActiveChart.SeriesCollection(1)
  For iPt = 1 To srs.Points.Count Step 2
    With srs.Points(iPt)
      .Format.Line.Visible = msoFalse
    End With
  Next
End Sub