Inserting into a shape

[Deb Pingel]

Hello,
Does anyone know how to take a list from a columnm in Excell and hav
each cell insert into a shape? I would eventually like to write
macro to take a list of equipment and place it into individual circle
on another worksheet. This will be used for flow charting. However
can't get past the first part where You can paste, or link into th
shape.
Thanks for any input, maybe it isn't possible?
De

 

[Don Guillett]

try this idea where the rectangle name is in col a
Sub NameShapes()
Sheets("yoursheetname").Select
For Each c In [setup!a4:a15]
ActiveSheet.Shapes(c).TextFrame. _
Characters.Text = c.Offset(0, 1)
Next c
End Sub

 

[Guest]

Absolutely FANTASTIC Don!!!,
That one goes in my secret goodie-stash........
Thanks

Vaya con Dios,
Chuck, CABGx3

try this idea where the rectangle name is in col a
Sub NameShapes()
Sheets("yoursheetname").Select
For Each c In [setup!a4:a15]
ActiveSheet.Shapes(c).TextFrame. _
Characters.Text = c.Offset(0, 1)
Next c
End Sub

--
Don Guillett
SalesAid Software
(e-mail address removed)

Hello,
Does anyone know how to take a list from a columnm in Excell and have
each cell insert into a shape? I would eventually like to write a
macro to take a list of equipment and place it into individual circles
on another worksheet. This will be used for flow charting. However I
can't get past the first part where You can paste, or link into the
shape.
Thanks for any input, maybe it isn't possible?
Deb

 

[Deb Pingel]

Dear Don,
I set up a workbook named (setup) with 2 work sheets named Shapes an
Equip. I pasted in information (equip names)from A4 to A15.
But when I run the macro I get an erro; Runtime error
The item with specified name wasn't found. and when I go to debug Th
lines highlited are ActiveSheet. shapes(c). and the next line tha
starts with Characters. text.

Does c stand for circle? The book I have here at work doesn't have an
of the following terms in the VBA chapter. Shapes or Textframe.

Thanks again
Deb:confused

 

[Don Guillett]

As I said the name of the rectangle is in column A
rectanglename namedesired

rectangle 1 Joe's shape

c stands for nothing. I could have used x or sh or whatever.

 

[Don Guillett]

Chuck,

Glad you like it. I have used some of your ideas also.

--
Don Guillett
SalesAid Software
(e-mail address removed)

Absolutely FANTASTIC Don!!!,
That one goes in my secret goodie-stash........
Thanks

Vaya con Dios,
Chuck, CABGx3

try this idea where the rectangle name is in col a
Sub NameShapes()
Sheets("yoursheetname").Select
For Each c In [setup!a4:a15]
ActiveSheet.Shapes(c).TextFrame. _
Characters.Text = c.Offset(0, 1)
Next c
End Sub

--
Don Guillett
SalesAid Software
(e-mail address removed)
"Deb Pingel" <[email protected]>
wrote
in message news[email protected]...

Hello,
Does anyone know how to take a list from a columnm in Excell and have
each cell insert into a shape? I would eventually like to write a
macro to take a list of equipment and place it into individual circles
on another worksheet. This will be used for flow charting. However I
can't get past the first part where You can paste, or link into the
shape.
Thanks for any input, maybe it isn't possible?
Deb


--
Deb Pingel
------------------------------------------------------------------------
Deb Pingel's Profile:
http://www.excelforum.com/member.php?action=getinfo&userid=20119
View this thread:
http://www.excelforum.com/showthread.php?threadid=523130

 

[Deb Pingel]

Dear Don,
I have tried putting oval1 in column A and the desired name in colum
b,
and I am still getting a runtime error. What should I replace the
with? You said you could use anything, why? Son't I need a cel
reference for where I am expecting the shape?
De

 

[Don Guillett]

Feel free to send me your workbook along with a copy of this thread so I
will know who you are and what you want.