Vba 向形状/线条添加渐变

我正在尝试使用VBA为Excel中的线型添加渐变。此功能在

格式形状

选项下的

线条颜色

部分中可用。尽管此功能存在于

格式形状

选项下，但我无法在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

---

我知道你可以很容易地添加一个梯度的形状填充，但所有的搜索结果都不会返回任何东西时，想添加一个梯度的形状线。任何想法都非常受欢迎。

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