如何通过 Python 添加 link 到 Visio 文档

Question

我在谷歌上搜索了一些代码，通过 Python 创建 Visio 文档。我想添加形状，并有 hyperlinks。这样您就可以单击形状，或者最好单击形状内的文本，然后转到 URL.

import os
import win32com.client

from win32com.client import constants

appVisio = win32com.client.Dispatch("Visio.Application")
appVisio.Visible =1

doc = appVisio.Documents.Add("Basic Diagram.vst")
pagObj = doc.Pages.Item(1)
stnObj = appVisio.Documents("Basic Shapes.vss")
mastObj = stnObj.Masters("Rectangle")

shpObj1 = pagObj.Drop(mastObj, 4.25, 5.5)
shpObj1.Text = "This is some text."

shpObj2 = pagObj.Drop(mastObj, 2, 2)
shpObj2.Text = """This is some more text. {\field{\*\fldinst HYPERLINK "http://www.google.com/"}{\fldrslt http://www.google.com}}"""


connectorMaster = appVisio.Application.ConnectorToolDataObject

connector = pagObj.Drop(connectorMaster, 0, 0)
connector.Cells("BeginX").GlueTo(shpObj1.Cells("PinX"))
connector.Cells("EndX").GlueTo(shpObj2.Cells("PinX"))

doc.SaveAs(r'C:\utils\MyDrawing.vsd')
doc.Close()

appVisio.Visible =0
appVisio.Quit()

RTF link 被忽略 - 我试过了。 Visio 可以在 UI 中添加 hyperlinks。所以...有谁知道我如何在这里通过 Python 添加 link？

Answer 1

Visio 仅支持形状上的链接（而不是文本本身内的链接）。一个形状有 Hyperlinks collection of Hyperlink 个对象，因此您可以按如下方式添加：

# shpObj2.Text = """This is some more text. {\field{\*\fldinst HYPERLINK "http://www.google.com/"}{\fldrslt http://www.google.com}}"""
shpObj2.Text = "This is a shape with multiple links."

shp2Hyperlink1 = shpObj2.Hyperlinks.Add()
shp2Hyperlink1.Name = "Google"
shp2Hyperlink1.Address = "http://www.google.com"

shp2Hyperlink2 = shpObj2.Hyperlinks.Add()
shp2Hyperlink2.Name = "BBC"
shp2Hyperlink2.Address = "http://www.bbc.co.uk"

在幕后，这只是将单元格写入 ShapeSheet：

如何通过 Python 添加 link 到 Visio 文档

How to add a link to a Visio document via Python

python

visio

win32com