Excel/VBA：在vba/excel中更改圆角矩形的圆度-Excel/VBA:changeroundnessofaroundedrectangleinvba/excel

I am trying to figure out how to change the roundness of a rounded rectangle shape in Excel using VBA.

我试图弄清楚如何使用VBA在Excel中更改圆角矩形的圆度。

I started out by creating the rounded rectangle, but at this point I'm not sure what to do next.

我开始创建圆角矩形,但此时我不知道下一步该做什么。

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

I've googled for vba shapes roundness rounded, excel vba rounded rectangle corner radius and other similar phrases, but haven't found anything terribly instructive or helpful. I'm beginning to think I can't change this property via visual basic, though I can do it through Excel's GUI.

我用谷歌搜索vba形状圆度圆形,excel vba圆角矩形圆角半径和其他类似的短语,但没有找到任何非常有启发性或有帮助的东西。我开始认为我不能通过visual basic改变这个属性,尽管我可以通过Excel的GUI来实现。

2 个解决方案

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

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