Tek-Tips is the largest IT community on the Internet today!

Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!

  • Congratulations gkittelson on being selected by the Tek-Tips community for having the most helpful posts in the forums last week. Way to Go!

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

Status
Not open for further replies.

magreu

Technical User
Feb 21, 2006
1
CH
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
 
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
Code:
  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
 
Status
Not open for further replies.

Part and Inventory Search

Sponsor

Back
Top