我知道我可以使用 Shape.DrawRectangle 方法在 Visio VBA 中绘制矩形，这基本上相当于使用手动 UI 中的“矩形”工具。但是，Visio 形状面板还包括“圆角矩形”。如何使用 VBA 绘制圆角矩形？
我通过 msoShapeRoundedRectangle 发现 Excel 有一种等效的形状。但是，我找不到任何在 Visio 中创建 msoShapeRoundedRectangle 的方法，所以可能它是 Excel 特定的。除此之外，我在网上或文档中没有找到任何与此相关的信息。
最佳答案
首先，绘制一个矩形，然后将其设为圆角:)
Set shp = ActivePage.DrawRectangle(0, 0, 1, 1)
shp.Cells("Rounding").Formula = 0.1
这里的一个常见建议是使用宏记录器，手动执行这些步骤，然后查看生成的代码。
--- 更新 ---
如果您想要“圆角矩形”形状(带有黄色 handle 的样式矩形)，您可以使用类似下面的代码(“圆角矩形”形状位于“基本形状”模具中，即“基本形状”) .vss”或“Basic.vssx”，具体取决于您的 Visio 版本)。您打开该模板，然后将形状从该模板拖放到给定坐标处的页面上:
Set stencil = Application.Documents.OpenEx("Basic.vss", visOpenDocked)
ActivePage.Drop stencil.Masters("Rounded Rectangle"), 1, 1
关于vba - 如何在 Visio VBA 中绘制圆角矩形？，我们在Stack Overflow上找到一个类似的问题： https://stackoverflow.com/questions/52484025/