向形状/线条添加渐变

Question

我正在尝试使用 VBA 将渐变添加到 Excel 中的线条形状。此功能可在选项Line Color下的部分中找到Format Shape。尽管该Format Shape选项下存在此功能，但我无法在 VBA 中重现该功能。我的代码是：

With ActiveSheet.Shapes("Straight Connector 4")
    .Line.ForeColor.RGB = RGB(193, 193, 193)
    .Line.Transparency = 0.25
    .Line.Visible = msoTrue
    .Line.ForeColor.SchemeColor = 24
    .Line.BackColor.SchemeColor = 34
    .Line.GradientStops.Insert RGB(255, 0, 0), 0.25 ' Creates error
    .Line.Gradient.ColorStops.Add (1) ' Creates error
End With

我知道您可以轻松地向形状填充添加渐变，但当想要向形状线添加渐变时，所有搜索结果都不会返回任何内容。任何想法都非常受欢迎。

Answer 1

据我所知，这是不可能的。您可以通过 VBA 为形状的填充设置渐变，但不能为线条设置渐变。您可以创建一个带有渐变填充且无边框的薄形状，或者您必须使用 VBA 之外的东西。（例如 VB.NET + OpenXLM SDK。）