Question

我正在编写一个宏来读取excel文件中的行，创建矩形，自动连接矩形，并从Excel文件向连接器屏幕提示添加信息。这是我将注释添加到连接器的代码部分......

'Auto connect shapes
Dim vsoConnectorShape As Visio.Shape
Set vsoConnectorShape = Visio.ActivePage.Shapes("Dynamic connector")
vsoConnectorShape.Text = xlWsh.Range("A" & r)

'Populate screen tip with info from Excel
Dim PrintString As String

PrintString = "Interface #: " + "   " + xlWsh.Range("A" & r) + vbCrLf & _
              "Descr: " + "   " + xlWsh.Range("B" & r) + vbCrLf & _
              "Cat: " + "   " + xlWsh.Range("C" & r) + vbCrLf & _
              "Info Obj: " + "   " + xlWsh.Range("D" & r) + vbCrLf & _
              "Src: " + "   " + xlWsh.Range("E" & r) & _
              " Tgt: " + "   " + xlWsh.Range("F" & r) + vbCrLf & _
              "New/Changed: " + "   " + xlWsh.Range("G" & r)

vsoConnectorShape.Cells("Comment").FormulaU = "=""" & PrintString & """"

如何在评论中添加标签（界面＃：，描述：，猫：，信息对象等...）粗体，并保留原文的其余部分？< / p>

Answer 1

据我所知，你不能。评论文本不可合成。

Visio VBA添加粗体文本到形状注释

1 个答案: