Inserting into a shape

  • Thread starter Thread starter Deb Pingel
  • Start date Start date
D

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
 
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
 
Absolutely FANTASTIC Don!!!,
That one goes in my secret goodie-stash........
Thanks

Vaya con Dios,
Chuck, CABGx3


Don Guillett said:
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 said:
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
Click to expand...
Click to expand...
 
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
 
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.
 
Chuck,

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

--
Don Guillett
SalesAid Software
(e-mail address removed)
CLR said:
Absolutely FANTASTIC Don!!!,
That one goes in my secret goodie-stash........
Thanks

Vaya con Dios,
Chuck, CABGx3


Don Guillett said:
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:D[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
Click to expand...
Click to expand...
Click to expand...
 
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
 
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.
 
Back
Top