以下是一个使用 Visio VBA 创建一个举行形状并设置其字体样式为宋体、无边框、填充样式为蓝色的函数示例:
Sub CreateRectangleWithBlueFill()
' 创建举行形状
Dim vsoShape As Visio.Shape
Set vsoShape = ActivePage.DrawRectangle(0, 0, 2, 1)
' 设置字体样式
vsoShape.TextStyle = "宋体"
' 设置无边框
vsoShape.LineStyle = "None"
' 设置填充样式