How to put text into a shape without Select

tinyjack
10-11-2004, 10:09 AM
This is bugging me, how do I get rid of the Select?


Dim shpItem as Shape

Set shpItem = Sheet2.Shapes.AddShape(msoShapeFlowchartDecision, GAP, (lngScreenBottom / 2) - (HEIGHT / 2), WIDTH, HEIGHT)
shpItem.Fill.Solid
shpItem.Fill.ForeColor.SchemeColor = 43
shpItem.Name = "Start"
Sheet2.Shapes("Start").Select
Selection.Characters.Text = "Bugging Me"


Any thoughts?

TJ

Mike Rosenblum
10-11-2004, 10:51 AM
I can't test it right now... but I think what you want is:shpItem.TextFrame.Characters.Text = "Bugging Me" Fingers crossed...

tinyjack
10-11-2004, 11:35 AM
I am debugged :)

Cheers Mike

EZ Archive Ads Plugin for vBulletin Copyright 2006 Computer Help Forum