如何以编程方式设置 visio 形状(颜色、大小、字体)中的文本格式?

How can I programmatically format text in visio shapes (color, size, font)?

我可以更改形状中字符的字体、颜色、大小。但仅适用于已存在于形状表 VisSectionIndices.visSectionCharacter 中的行。

我无法为此部分创建新行,也无法更改每种格式的字符数。

任何解决方案都适合我。任何技巧,任何想法。

我已经崩溃了,我不知道如何处理这个问题。

如何更改一个形状内文本的颜色? (比如黑绿红?)

欢迎使用 Whosebug。您可以查看一些 visio 书籍,例如免费的 Microsoft 书籍“开发 Visio 解决方案”,它讨论了这些主题。

还有一个很棒的 Visio 论坛,http://visguy.com/vgforum/ where you can find lots of visio-specific question answered out of the box. Russian visio related forum forum: https://visio.getbb.ru/

此外,您始终可以使用宏录制器来生成代码(我的意思是,您打开录制,手动执行操作,并在 VBA IDE)

总之。您可以使用 shape.Characters 修改文本片段的样式。像这样:

    Set shp = ActivePage.DrawRectangle(0, 0, 1, 1)
    
    Set chars = shp.Characters
    chars.Text = "Something  with Red Text"

    chars.Begin = 10
    chars.End = 19
    chars.CharProps(visCharacterColor) = 2

结果: