如何在excel vba中更改弯头接头的颜色？

下面的代码给了我一个错误，说明指定的值超出范围

Sub Green()
    ThisWorkbook.Sheets(1).Activate
    ActiveSheet.Shapes("Elbow Connector 62").Fill.ForeColor.RGB = vbGreen
End Sub

---

这里有两个选项-一个带变量，一个不带变量。您可能需要将2更改为62

Sub Macro1()

    ActiveSheet.shapes.Range(Array("Elbow Connector 2")).Select
    With Selection.ShapeRange.Line
        .Visible = msoTrue
        .ForeColor.RGB = RGB(255, 0, 0)
        .Transparency = 0
    End With
End Sub



Sub shapes()

Dim s As ShapeRange

Set s = ActiveSheet.shapes.Range(Array("elbow connector 2"))

    With s
        .Line.ForeColor.RGB = RGB(255, 0, 0)
    End With
End Sub