Vba 获取形状的数值'；s角半径？（例如：带圆角的矩形）

在VBA中，我可以通过执行以下操作获得形状的x、y、宽度和高度值：

Debug.Print , , "x:"; Round(itm.Left), "y:"; Round(itm.Top)
Debug.Print , , "width:"; Round(itm.Width), "height:"; Round(itm.Height)

我想找到相同形状的角半径，例如，圆角矩形的角半径。你知道怎么做吗？ 此外，形状在powerpoint中

---

任何帮助都将不胜感激

我对Powerpoint了解不多，但一些快速的谷歌搜索显示：

itm.Adjustments（1）

Hey@braX你能想出一种方法来使用我们已经知道的4个值计算角半径吗？x，y，width，height？不太可能，您可以做的唯一假设是半径小于宽度的一半，小于高度的一半。调整值是形状最小尺寸（高度/宽度）的分数，因此您可以使用该信息计算半径。