Question

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

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

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

我用Google搜索了vba shapes roundness rounded，excel vba rounded rectangle corner radius和其他类似的词组，但没有找到任何非常有益或有帮助的内容。我开始认为我无法通过visual basic更改此属性，但我可以通过Excel的GUI来完成。

Answer 1

我用Google搜索msoShapeRoundedRectangle radius，第一个link有一个例子：

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

Answer 2

shape对象有一个Fill属性，它有方法

.OneColorGradient（Style，Variant，Degree）

.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

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

2 个答案: