D
douglascfast
Hello all and thanks in advance,
Situation:
I have 3 sheets in a workbook.
Logos = Shapes of Arrows (up, down, flat)
Data = (pivot tables)
Reprot = Pretty front end for customers
Here is what i need to do:
On the Data sheet there are 8 cells which contain either Arw_up,
Arw_down, Arw_flat
Based on this I would like to go to Cell Data!A1 which is Arw_up, go
the the logos page and get the shape titled "Arw_Up" and paste it to
the report page in cell H32, and on the report page I want the arrow in
the top left part of the cell H32.
This happens 8 times for each of the numbers the customer is looking
at.
I have tried this, but it does not move the shape to the top and left
(It moves the one on the logos sheet to the top left, not the report
sheet)
Dim Myshape as Shape
Set myspahe = Worksheets("Logos).Shapes('Arw_up")
Myshape.Copy
Sheets('Report").Activate
Range("H32").Select
Activesheet.Paste
Myshape.Top = 0
Myshape.left = 0
Any ideas?
Doug
Situation:
I have 3 sheets in a workbook.
Logos = Shapes of Arrows (up, down, flat)
Data = (pivot tables)
Reprot = Pretty front end for customers
Here is what i need to do:
On the Data sheet there are 8 cells which contain either Arw_up,
Arw_down, Arw_flat
Based on this I would like to go to Cell Data!A1 which is Arw_up, go
the the logos page and get the shape titled "Arw_Up" and paste it to
the report page in cell H32, and on the report page I want the arrow in
the top left part of the cell H32.
This happens 8 times for each of the numbers the customer is looking
at.
I have tried this, but it does not move the shape to the top and left
(It moves the one on the logos sheet to the top left, not the report
sheet)
Dim Myshape as Shape
Set myspahe = Worksheets("Logos).Shapes('Arw_up")
Myshape.Copy
Sheets('Report").Activate
Range("H32").Select
Activesheet.Paste
Myshape.Top = 0
Myshape.left = 0
Any ideas?
Doug