如何使用 Python 更改 Visio 字体名称和颜色？答案

【问题标题】：How to change Visio font name and color using Python?如何使用 Python 更改 Visio 字体名称和颜色？
【发布时间】：2015-09-02 00:54:56
【问题描述】：

我正在使用带有 win32com.client 的 Python 2.7，并试图弄清楚如何更改 Microsoft Visio 2013 形状的字体名称和颜色。

下面的代码在已打开的 Visio 文档上创建一个矩形。这段代码可以正常工作，并且可以毫无问题地设置形状颜色、文本和线宽。

import sys, win32com.client

visio = win32com.client.Dispatch("Visio.Application")

vsoShape1 = visio.ActivePage.DrawRectangle(1,1,2,2)
vsoShape1.Cells("LineColor").FormulaU = 0
vsoShape1.Cells("LineWeight").FormulaU = "2.0 pt"
vsoShape1.FillStyle = "None"
vsoShape1.Text = "This is a test"
vsoShape1.Cells("Char.size").FormulaU = "20 pt"

尝试了不同的方法来更改导致错误消息的字体名称和字体颜色。

这两行代码都会导致以下错误消息：pywintypes.com_error: (-2147352567, 'Exception occurred.', (0, u'Drawing4 - Visio Standard', u'\n\nUnexpected end of file。 ', 无, 0, -2032466967), 无)

vsoShape1.Cells("Font.Name").FormulaU = "Courier"
vsoShape1.Cells("Font.Bold").FormulaU = "True"

接下来的三行代码都导致了类似的错误消息，但没有文件结尾错误：pywintypes.com_error: (-2147352567, 'Exception occurred.', (0, u'Drawing4 - Visio Standard', u' \n\nNAME?', 无, 0, -2032466907), 无)

vsoShape1.Cells("Char.Font").FormulaU = "Courier"
vsoShape1.Cells("Char.colorIndex").FormulaU = 16
vsoShape1.Cells("Font.Bold").FormulaU = 0

多试几次，结果：DrawRectangle.xxxxx 无法设置。

vsoShape1.fontName = "Courier"   
vsoShape1.Bold = True
vsoShape1.Bold = 1

【问题讨论】：

发布后我确实发现了一个关于在 Excel 中更改字体颜色的类似问题，但没有看到任何其他关于更改字体名称的问题。 stackoverflow.com/questions/31708983/…

标签： python visio win32com

【解决方案1】：

我看到您尝试了不同的方法来使文本变为粗体但没有成功。我找到了一个解决方案，我将把它和其他样式选项一起发布。由于几乎没有任何明确的文档，因此将它们全部弄清楚很烦人，所以我希望这会对某人有所帮助。

import win32com.client
from win32com.client import constants as vis

# gencache.EnsureDispatch will ensure constants are built
app = win32com.client.gencache.EnsureDispatch( 'Visio.Application' )

# hide the window if you want
#app.Visible = 0

shape = app.ActivePage.DrawRectangle(1,1,2,2)

# text in shape
shape.Text = 'Text'

# fill color of shape
shape.Cells( 'Fillforegnd' ).FormulaU = 'RGB(255,255,0)'

# shape without fill
shape.FillStyle = "None"

# color of border line
shape.Cells( 'LineColor' ).FormulaU = 'RGB(0,0,255)'

# shape without border line
shape.LineStyle = "None"

# line pattern, numbers for patterns can be looked up in visio, they are displayed in the pattern drop down
shape.Cells( 'LinePattern' ).FormulaU = '3'

# line weight
shape.Cells( 'LineWeight' ).FormulaU = '0.1'

# text color
shape.CellsSRC( vis.visSectionCharacter, 0, vis.visCharacterColor ).FormulaU = 'RGB(255,0,0)'

# size of text
shape.Cells( 'Char.size' ).FormulaU = '20 pt'

# vertical alignment of text, values are 0,1,2
shape.Cells( 'VerticalAlign' ).FormulaU = '1'

chars = shape.Characters

# here you can set which characters the following styles will be applied to
chars.Begin = 0
chars.End = chars.CharCount

# text bold, italic and underline styles, add to combine
chars.CharProps( vis.visCharacterStyle, vis.visBold + vis.visItalic + vis.visUnderLine )

# text strikethrough
chars.CharProps( vis.visCharacterStrikethru, True )

【讨论】：

额外的一个：如何添加工具提示。我花了很长时间才发现您必须像在 Excel 中一样将字符串作为公式提供。 shape.CellsSRC( vis.visSectionObject, vis.visRowMisc, vis.visComment ).FormulaU = '="Tooltip"'

【解决方案2】：

这将设置颜色和字体。

# Microsoft Office Visio Constants
visCharacterFont = 0
visCharacterColor = 1
visSectionCharacter = 3
visCharacterDblUnderline = 8
visSectionFirstComponent = 10

设置文字颜色

vsoShape.CellsSRC(visSectionCharacter, 0, visCharacterColor).FormulaU = "THEMEGUARD(RGB(0,0,0))"

设置字体

vsoShape.CellsSRC(visSectionCharacter, 0, visCharacterFont).FormulaU = 100

字体的编号被描述为“一个整数，表示系统上安装的字体集合的索引。零 (0) 表示默认字体”。文档没有说明这个整数是始终相同还是因安装的字体而异。我通过运行宏并查看 VB 脚本的输出得到了这个数字。

【讨论】：