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...o&userid=20119
View this thread: http://www.excelforum.com/showthread...hreadid=523130

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

"Deb Pingel" wrote
in message ...

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...o&userid=20119
View this thread: http://www.excelforum.com/showthread...hreadid=523130

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

Vaya con Dios,
Chuck, CABGx3


"Don Guillett" wrote:

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

"Deb Pingel" wrote
in message ...

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...o&userid=20119
View this thread: http://www.excelforum.com/showthread...hreadid=523130

Dear Don,
I set up a workbook named (setup) with 2 work sheets named Shapes and
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 The
lines highlited are ActiveSheet. shapes(c). and the next line that
starts with Characters. text.

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

Thanks again
Deb


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

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
SalesAid Software

"Deb Pingel" wrote
in message ...

Dear Don,
I set up a workbook named (setup) with 2 work sheets named Shapes and
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 The
lines highlited are ActiveSheet. shapes(c). and the next line that
starts with Characters. text.

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

Thanks again
Deb


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

Chuck,

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

--
Don Guillett
SalesAid Software

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

Vaya con Dios,
Chuck, CABGx3


"Don Guillett" wrote:

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

"Deb Pingel"
wrote
in message ...

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...o&userid=20119
View this thread:
http://www.excelforum.com/showthread...hreadid=523130

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


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

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.

--
Don Guillett
SalesAid Software

"Deb Pingel" wrote
in message ...

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


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