Page Index Toggle Pages: 1 Send TopicPrint
Normal Topic Change text for imported VISIO Shape (Read 1595 times)
JCRonSaratoga
YaBB Newbies
*
Offline


Go Cubs Go!

Posts: 30
Joined: Apr 15th, 2008
Change text for imported VISIO Shape
May 15th, 2008 at 6:25pm
Print Post  
Hi:

How do I change the text for an imported VISIO shape?

I can change the shape tooltip using:

       For I2 = 0 To NumFlowChartShapes(0)
           diag.Items(I2).ToolTip = "Shape# " &  Str(I2)
       Next

Thanks,
Jim
  
Back to top
 
IP Logged
 
Stoyo
God Member
*****
Offline


MindFusion support

Posts: 13230
Joined: Jul 20th, 2005
Re: Change text for imported VISIO Shape
Reply #1 - May 16th, 2008 at 7:32am
Print Post  
Hi,

Try this:

       For i2 = 0 To NumFlowChartShapes(0)
           Dim item As DiagramItem = diag.Items(i2)
           item.ToolTip = "Shape# " & Str(i2)

           If TypeOf item Is ShapeNode Then
               Dim shape As ShapeNode = CType(item, ShapeNode)
               shape.Text = "Shape# " & Str(i2)
           End If
       Next

I hope that helps,
Stoyan
  
Back to top
 
IP Logged
 
JCRonSaratoga
YaBB Newbies
*
Offline


Go Cubs Go!

Posts: 30
Joined: Apr 15th, 2008
Re: Change text for imported VISIO Shape
Reply #2 - May 16th, 2008 at 1:36pm
Print Post  
Excellent!
Thank you, that works.

Have A Good Day,
Jim
  
Back to top
 
IP Logged
 
Page Index Toggle Pages: 1
Send TopicPrint