Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Paste Graphics in a specific Loacation
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 |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Finding the cell loacation that matches a specific value in a rang | Excel Worksheet Functions | |||
make it easy to turn off the little paste option graphics | Excel Worksheet Functions | |||
Mass Delete/Paste Graphics in a Workbook | Excel Programming | |||
copy and paste graphics into comment boxes | Excel Programming | |||
Excel/VB Copy/Paste of Graphics | Excel Programming |