How to put text into a shape without Select

10-11-2004, 09:09 AM

tinyjack

Captain TJ

Forum Leader
* Expert *

Join Date: Jun 2003

Location: England

Posts: 1,664

How to put text into a shape without Select

This is bugging me, how do I get rid of the Select?

Code:

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

__________________
Oh dear, I need a beer.
Online Motorsport Game

10-11-2004, 09:51 AM

Mike Rosenblum Mike Rosenblum is offline

Microsoft Excel MVP

Forum Leader
* Guru *

Join Date: Jul 2003

Location: New York, NY, USA

Posts: 7,848

I can't test it right now... but I think what you want is:

Code:

shpItem.TextFrame.Characters.Text = "Bugging Me"

Fingers crossed...

10-11-2004, 10:35 AM

tinyjack

Captain TJ

Forum Leader
* Expert *

Join Date: Jun 2003

Location: England

Posts: 1,664

I am debugged

Cheers Mike

__________________
Oh dear, I need a beer.
Online Motorsport Game

Posting Rules

You may not post new threads

You may not post replies

You may not post attachments

You may not edit your posts

BB code is On

Smilies are On

[IMG] code is Off

HTML code is Off

Forum Rules