代码之家 › 专栏 › 技术社区 › Adam Burley

如何在Visio VBA中绘制圆角矩形?

visio vba

Adam Burley · 技术社区 · 6 年前

Shape.DrawRectangle

我发现Excel有一种等价的形状 msoShapeRoundedRectangle . 但是我找不到任何方法来创建一个在Visio中,所以它可能是特定于Excel的。除此之外,我还没有在网上或者文档中找到关于这个的信息。

2 回复 | 直到 6 年前

Nikolay 6 年前

首先,你画一个矩形,然后,你把它做成圆形:)

Set shp = ActivePage.DrawRectangle(0, 0, 1, 1)
shp.Cells("Rounding").Formula = 0.1

---更新---

Set stencil = Application.Documents.OpenEx("Basic.vss", visOpenDocked)
ActivePage.Drop stencil.Masters("Rounded Rectangle"), 1, 1

Neil B 6 年前

像这样的?

Dim vsoShape As Visio.Shape
Set vsoShape = Application.ActiveWindow.Page.DrawRectangle(1#, 7.375, 3#, 6.375)
vsoShape.CellsSRC(visSectionObject, visRowLine, visLineRounding).FormulaU = "12.5 pt"

推荐文章

CPS · 当变量值为空时,在另一个变量中赋值

2 年前

xris23 · 通过VBA选择命名范围,让用户直接编辑单元格

2 年前

Stormer · 从Access格式化Excel单元格无效

2 年前

j johns · 通过VBA将ascii art添加到命令提示符

2 年前

BinaryCat · Excel-将单元格转换为具有成对数据的行

2 年前

Waleed · 以下拆分函数的(0)表示什么?

2 年前

judo_ürgens · vlookup和sumif(每个项目的总利润)

2 年前

Louay Alkhawam · 在任意多个列中计算包含子字符串*[橙色]*的行,而不重复计算?

2 年前

smrmodel78 · VBA创建表格未选择正确的范围

2 年前

HouÅ¡tí · 如何检测鼠标释放

2 年前