通过 Visual Basic 在 Visio 中更改字体大小答案

【问题标题】：Changing font size in Visio through Visual Basic通过 Visual Basic 在 Visio 中更改字体大小
【发布时间】：2017-07-25 09:30:34
【问题描述】：

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

【问题讨论】：

标签： vba fonts visio

【解决方案1】：

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

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

【讨论】：

太棒了，谢谢！您知道是否有类似的方法可以在字体中添加粗体或斜体？

【解决方案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

【讨论】：