software

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: www.excelforum.com/member.php...oamp;userid=20119
View this thread: www.excelforum.com/showthread...hreadid=523130try this idea where the rectangle name is in col a
Sub NameShapes()
Sheets(quot;yoursheetnamequot;).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

quot;Deb Pingelquot; gt; wrote
in message news
gt;
gt; Hello,
gt; Does anyone know how to take a list from a columnm in Excell and have
gt; each cell insert into a shape? I would eventually like to write a
gt; macro to take a list of equipment and place it into individual circles
gt; on another worksheet. This will be used for flow charting. However I
gt; can't get past the first part where You can paste, or link into the
gt; shape.
gt; Thanks for any input, maybe it isn't possible?
gt; Deb
gt;
gt;
gt; --
gt; Deb Pingel
gt; ------------------------------------------------------------------------
gt; Deb Pingel's Profile:
gt; www.excelforum.com/member.php...oamp;userid=20119
gt; View this thread: www.excelforum.com/showthread...hreadid=523130
gt;
Absolutely FANTASTIC Don!!!,
That one goes in my secret goodie-stash........
Thanks

Vaya con Dios,
Chuck, CABGx3quot;Don Guillettquot; wrote:

gt; try this idea where the rectangle name is in col a
gt; Sub NameShapes()
gt; Sheets(quot;yoursheetnamequot;).Select
gt; For Each c In [setup!a4:a15]
gt; ActiveSheet.Shapes(c).TextFrame. _
gt; Characters.Text = c.Offset(0, 1)
gt; Next c
gt; End Sub
gt;
gt; --
gt; Don Guillett
gt; SalesAid Software
gt;
gt; quot;Deb Pingelquot; gt; wrote
gt; in message news
gt; gt;
gt; gt; Hello,
gt; gt; Does anyone know how to take a list from a columnm in Excell and have
gt; gt; each cell insert into a shape? I would eventually like to write a
gt; gt; macro to take a list of equipment and place it into individual circles
gt; gt; on another worksheet. This will be used for flow charting. However I
gt; gt; can't get past the first part where You can paste, or link into the
gt; gt; shape.
gt; gt; Thanks for any input, maybe it isn't possible?
gt; gt; Deb
gt; gt;
gt; gt;
gt; gt; --
gt; gt; Deb Pingel
gt; gt; ------------------------------------------------------------------------
gt; gt; Deb Pingel's Profile:
gt; gt; www.excelforum.com/member.php...oamp;userid=20119
gt; gt; View this thread: www.excelforum.com/showthread...hreadid=523130
gt; gt;
gt;
gt;
gt;


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: www.excelforum.com/member.php...oamp;userid=20119
View this thread: www.excelforum.com/showthread...hreadid=523130As 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

quot;Deb Pingelquot; gt; wrote
in message news
gt;
gt; Dear Don,
gt; I set up a workbook named (setup) with 2 work sheets named Shapes and
gt; Equip. I pasted in information (equip names)from A4 to A15.
gt; But when I run the macro I get an erro; Runtime error
gt; The item with specified name wasn't found. and when I go to debug The
gt; lines highlited are ActiveSheet. shapes(c). and the next line that
gt; starts with Characters. text.
gt;
gt; Does c stand for circle? The book I have here at work doesn't have any
gt; of the following terms in the VBA chapter. Shapes or Textframe.
gt;
gt; Thanks again
gt; Deb
gt;
gt;
gt; --
gt; Deb Pingel
gt; ------------------------------------------------------------------------
gt; Deb Pingel's Profile:
gt; www.excelforum.com/member.php...oamp;userid=20119
gt; View this thread: www.excelforum.com/showthread...hreadid=523130
gt;
Chuck,

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

--
Don Guillett
SalesAid Software

quot;CLRquot; gt; wrote in message
...
gt; Absolutely FANTASTIC Don!!!,
gt; That one goes in my secret goodie-stash........
gt; Thanks
gt;
gt; Vaya con Dios,
gt; Chuck, CABGx3
gt;
gt;
gt; quot;Don Guillettquot; wrote:
gt;
gt;gt; try this idea where the rectangle name is in col a
gt;gt; Sub NameShapes()
gt;gt; Sheets(quot;yoursheetnamequot;).Select
gt;gt; For Each c In [setup!a4:a15]
gt;gt; ActiveSheet.Shapes(c).TextFrame. _
gt;gt; Characters.Text = c.Offset(0, 1)
gt;gt; Next c
gt;gt; End Sub
gt;gt;
gt;gt; --
gt;gt; Don Guillett
gt;gt; SalesAid Software
gt;gt;
gt;gt; quot;Deb Pingelquot; gt;
gt;gt; wrote
gt;gt; in message news
gt;gt; gt;
gt;gt; gt; Hello,
gt;gt; gt; Does anyone know how to take a list from a columnm in Excell and have
gt;gt; gt; each cell insert into a shape? I would eventually like to write a
gt;gt; gt; macro to take a list of equipment and place it into individual circles
gt;gt; gt; on another worksheet. This will be used for flow charting. However I
gt;gt; gt; can't get past the first part where You can paste, or link into the
gt;gt; gt; shape.
gt;gt; gt; Thanks for any input, maybe it isn't possible?
gt;gt; gt; Deb
gt;gt; gt;
gt;gt; gt;
gt;gt; gt; --
gt;gt; gt; Deb Pingel
gt;gt; gt; ------------------------------------------------------------------------
gt;gt; gt; Deb Pingel's Profile:
gt;gt; gt; www.excelforum.com/member.php...oamp;userid=20119
gt;gt; gt; View this thread:
gt;gt; gt; www.excelforum.com/showthread...hreadid=523130
gt;gt; gt;
gt;gt;
gt;gt;
gt;gt;

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: www.excelforum.com/member.php...oamp;userid=20119
View this thread: www.excelforum.com/showthread...hreadid=523130Feel 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

quot;Deb Pingelquot; gt; wrote
in message news
gt;
gt; Dear Don,
gt; I have tried putting oval1 in column A and the desired name in column
gt; b,
gt; and I am still getting a runtime error. What should I replace the C
gt; with? You said you could use anything, why? Son't I need a cell
gt; reference for where I am expecting the shape?
gt; Deb
gt;
gt;
gt; --
gt; Deb Pingel
gt; ------------------------------------------------------------------------
gt; Deb Pingel's Profile:
gt; www.excelforum.com/member.php...oamp;userid=20119
gt; View this thread: www.excelforum.com/showthread...hreadid=523130
gt;