Excel/VBA：在VBA/Excel中更改圆角矩形的圆度

我试图找出如何使用VBA在Excel中更改圆角矩形形状的圆度

我从创建圆角矩形开始，但此时我不确定下一步该做什么

Set roundedRec = ws.Shapes.AddShape(msoShapeRoundedRectangle, 10, 10, 200, 40) 

---

我在谷歌上搜索了

vba形状圆度圆角

，

ExcelVBA圆角矩形圆角半径

和其他类似的短语，但没有发现任何非常有启发性或有用的东西。我开始认为我不能通过visual basic更改此属性，尽管我可以通过Excel的GUI进行更改。

我在谷歌上搜索了

msoShapeRoundedRectangle radius

，第一个例子是：

With oSh
    oSh.AutoShapeType = msoShapeRoundedRectangle
    .Adjustments(1) = sngRounding
End With

---

形状对象具有一个填充属性，该属性具有多个方法

.OneColorGradient（样式、变体、度）

.TwoColorGradient（样式，变体）

使用示例

Set shp = ActiveSheet.Shapes("Rounded Rectangle 1")
shp.Adjustments(1) = shp.Adjustments(1) * 2

shp.Fill.ForeColor.RGB = RGB(0, 0, 128)

shp.Fill.OneColorGradient msoGradientHorizontal, 1, 1