通過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