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中的字体大小

2 个答案: