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

Question

我想弄清楚如何使用VBA在Excel中更改圓角矩形形狀的圓度。

我從創建圓角矩形開始，但此時我不確定接下來要做什麼。

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

我GOOGLE了vba shapes roundness rounded，excel vba rounded rectangle corner radius和其他類似的短語，但沒有發現任何東西非常有啓發性或有幫助。我開始認爲我不能通過視覺基礎來改變這個屬性，儘管我可以通過Excel的GUI來完成。

Answer 1

我一派msoShapeRoundedRectangle radius，並且第一link有一個例子：

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

Answer 2

形狀對象具有其具有方法

.OneColorGradient（風格，變體，度）

一個Fill屬性

.TwoColorGradient（Style，Variant）

檢查使用

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