|
Inserting into a shape
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 |
Inserting into a shape
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 |
Inserting into a shape
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:confused: -- 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 |
Inserting into a shape
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:confused: -- 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 |
Inserting into a shape
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 |
Inserting into a shape
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 |
Inserting into a shape
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 |
| All times are GMT +1. The time now is 05:37 PM. |
Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
ExcelBanter.com