Home |
Search |
Today's Posts |
|
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
How to copy an image object to new location in shame sheet, Excel.
Hi all. I have an image object inserted into sheet. What i need is to make a copy of that image and move it to new location using VBA. I tried Duplicate method defined in Shape object but that doesn´t work. Sure it makes a copy of Shape object and everything goes smoothly (no errors during duplicate) but image inside original shape object will not be copied to new one!!! All i get is empty shape object and no picture!!! Do i miss something or this is an bug? Code: ' Create a duplicate from Set CopyShape = sourceShape.Duplicate() ' Set new position CopyShape.Left = sourceShape.Left CopyShape.Top = startRow.Top + sourceShape.Top Tried this code in both, excel 97 and 2003 pro, same result.... All servicepacks are installed. OS: Windows XP Pro. cheers.... Asko. |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
How to copy an image object to new location in shame sheet, Excel.
Sub AABB()
' Create a duplicate from Set SourceShape = ActiveSheet.Shapes(1) Set StartRow = SourceShape.TopLeftCell Set CopyShape = SourceShape.Duplicate() ' Set new position CopyShape.Left = SourceShape.Left CopyShape.Top = StartRow.Top + SourceShape.Height End Sub put a copy of the shape right below the original for me. xl2003. -- Regards, Tom Ogilvy "Asko Telinen" wrote: Hi all. I have an image object inserted into sheet. What i need is to make a copy of that image and move it to new location using VBA. I tried Duplicate method defined in Shape object but that doesn´t work. Sure it makes a copy of Shape object and everything goes smoothly (no errors during duplicate) but image inside original shape object will not be copied to new one!!! All i get is empty shape object and no picture!!! Do i miss something or this is an bug? Code: ' Create a duplicate from Set CopyShape = sourceShape.Duplicate() ' Set new position CopyShape.Left = sourceShape.Left CopyShape.Top = startRow.Top + sourceShape.Top Tried this code in both, excel 97 and 2003 pro, same result.... All servicepacks are installed. OS: Windows XP Pro. cheers.... Asko. |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
How to copy an image object to new location in shame sheet, Excel.
One other thought. When you are playing with shapes, you can often get many
shapes on the sheet you are not aware of. Make sure the SourceShape actually refers to the shape you are trying to copy. sub CountShapes() msgbox "there are " & Activesheet.shapes.count & _ " Shapes on the sheet" End sub -- regards, Tom Ogilvy "Asko Telinen" wrote: Hi all. I have an image object inserted into sheet. What i need is to make a copy of that image and move it to new location using VBA. I tried Duplicate method defined in Shape object but that doesn´t work. Sure it makes a copy of Shape object and everything goes smoothly (no errors during duplicate) but image inside original shape object will not be copied to new one!!! All i get is empty shape object and no picture!!! Do i miss something or this is an bug? Code: ' Create a duplicate from Set CopyShape = sourceShape.Duplicate() ' Set new position CopyShape.Left = sourceShape.Left CopyShape.Top = startRow.Top + sourceShape.Top Tried this code in both, excel 97 and 2003 pro, same result.... All servicepacks are installed. OS: Windows XP Pro. cheers.... Asko. |
#4
Posted to microsoft.public.excel.programming
|
|||
|
|||
How to copy an image object to new location in shame sheet, Excel.
Tom Ogilvy wrote:
One other thought. When you are playing with shapes, you can often get many shapes on the sheet you are not aware of. Make sure the SourceShape actually refers to the shape you are trying to copy. sub CountShapes() msgbox "there are " & Activesheet.shapes.count & _ " Shapes on the sheet" End sub Thanks for your reply. And you were right :) There WAS an empty image right behind the image i wanted to copy and the code took that image :) Silly me. Seems like to every problem is simple answer. Thanks again. Asko. |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
how to copy an embedded image into excel from word or from any oth | Excel Worksheet Functions | |||
Protect excel sheet and still copy text or object w/o unprotectin. | Excel Discussion (Misc queries) | |||
Hyperlink to a location on worksheet and display full image. | Excel Discussion (Misc queries) | |||
Copy Rectangle Object From One Sheet To Another | Excel Discussion (Misc queries) | |||
copy shape image into image control | Excel Programming |