H
holysoul
Hi,
my problem is that i have sheet on which i have an image. On thi
image, I've got "Shapes" which are a part of an other excel sheet grid
(They were selected to be the object to import) and i want to writ
some content in these Objects by specifying a range or cell where t
write in that grid.
I can do this but my problem is that whenever i write something in it
i have to open the "shape" (so it opens as an other excel file), write
then close it... and that is for the 15 shapes I have on my image
Doing this for some time usually crash my program because i'm out o
memory.
my question would be: can i wrtie in these Objects specifying a rang
without having to open and close each of them one a after an other????
My code is:
ActiveSheet.Shapes("Machine").Select
Selection.Verb xlOpen
Range("A4").Value = vMachine
ActiveWindow.Close
ActiveSheet.Shapes("Calandre").Select
Selection.Verb xlOpen
Range("B3").Value = vCalandre1
Range("B4").Value = vCalandre2
Range("B5").Value = vCalandre3
ActiveWindow.Close
.....
and so on!
reply if you have any question, need help!
Holysou
my problem is that i have sheet on which i have an image. On thi
image, I've got "Shapes" which are a part of an other excel sheet grid
(They were selected to be the object to import) and i want to writ
some content in these Objects by specifying a range or cell where t
write in that grid.
I can do this but my problem is that whenever i write something in it
i have to open the "shape" (so it opens as an other excel file), write
then close it... and that is for the 15 shapes I have on my image
Doing this for some time usually crash my program because i'm out o
memory.
my question would be: can i wrtie in these Objects specifying a rang
without having to open and close each of them one a after an other????
My code is:
ActiveSheet.Shapes("Machine").Select
Selection.Verb xlOpen
Range("A4").Value = vMachine
ActiveWindow.Close
ActiveSheet.Shapes("Calandre").Select
Selection.Verb xlOpen
Range("B3").Value = vCalandre1
Range("B4").Value = vCalandre2
Range("B5").Value = vCalandre3
ActiveWindow.Close
.....
and so on!
reply if you have any question, need help!
Holysou