通过 Visual Basic 更改 Visio 中的字体大小

Question

我正在尝试根据使用 Visual Basic 从 Excel 文档导出的数据更改 Visio 中形状内文本的字体大小。我需要为不同的形状设置不同的字体大小。在VBA中是否有Shape.FontSize = X方法或类似的东西？我是 Visual Basic 的新手，如果这是一个菜鸟问题，我深表歉意。感谢您的帮助！

Answer 1

在 MS Visio 中，您可以在 ShapeSheet™ 环境中更改属性以更改字体参数

  Dim shp As Shape 
  Set shp = ActivePage.Shapes.ItemFromID(4) 
  shp.Cells("Char.Size").FormulaU = "12 pt"

Answer 2

我找到另一种更改字体大小的方法

Dim shp As Shape 
Set shp = ActivePage.Shapes.ItemFromID(1) 
With shp.Characters 
   ' set font size - 6 pt
   .CharProps(visCharacterSize) = 6 
   ' set font bold, italic and underline
   .CharProps(visCharacterStyle) = visBold + visItalic + visUnderLine 
End With

通过 Visual Basic 更改 Visio 中的字体大小

Changing font size in Visio through Visual Basic

fonts

vba

visio