Insert a Quickinfo to a Visio-Shape using Visual Basic from Excel

[magreu]

Hi,

How to use Visual Basic in Excel to add a Quickinfo to a newly created shape in Visio.

Example: How to add a Quickinfo to "Line"
Sub DrawLine()
Set Line = oPage.DrawLine(5, 5, 10, 5)
With AktLine
.Text = "Text"
End With
End Sub

Thanks,
Matthias

 

[johnwm]

I haven't seen quickinfo applied to a standard shape. To apply text to a shape:

1. Make sure you are referencing the right page
2. Make sure you are referencing the same object

  Set myLine = ThisDocument.Pages(1).DrawLine(5, 5, 10, 8)
  With myLine
     .Text = "Text"
  End With

________________________________________________________________
If you want to get the best response to a question, please check out FAQ222-2244 first.
'If we're supposed to work in Hex, why have we only got A fingers?'
Drive a Steam Roller