Excel/VBA: modifier l'arrondi d'un rectangle arrondi dans vba/excel

Question

J'essaie de comprendre comment modifier l'arrondi d'une forme de rectangle arrondi dans Excel en utilisant VBA. J'ai commencé par créer le rectangle arrondi, mais à ce stade je ne sais pas quoi faire ensuite.

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

J'ai googlé pour vba shapes roundness rounded, excel vba rounded rectangle corner radius et d'autres expressions similaires, mais ils ont rien trouvé terriblement instructif ou utile. Je commence à penser que je ne peux pas changer cette propriété via Visual Basic, mais je peux le faire via l'interface graphique d'Excel.

Answer 1

I googlé msoShapeRoundedRectangle radius, et la première link avait un exemple:

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

Answer 2

L'objet de forme a une propriété de remplissage qui a des méthodes

.OneColorGradient (style, Variant, degré)

.TwoColorGradient (Style, variante)

exemple d'utilisation

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