如何以编程方式设置 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
结果:
我可以更改形状中字符的字体、颜色、大小。但仅适用于已存在于形状表 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
结果: