VBA code to copy objects

[szymq]

Hello,

If possible, I would like to improve my code to be able to copy and paste all data in the sheet, including objects and attachments. Right now it looks like this:

With WBPrepaid.Sheets("Usage Summary")
.Activate
.Range("A1:Az150").Copy
WBExport.Sheets("Usage Summary").Range("A1").PasteSpecial xlPasteAll

I am not familiar with VBA, just changing macro created by my colleague.

I would appreciate any help!

 

[James006]

Hello,

When you are talking about Objects ...

Are you dealing with Shapes, Pictures, Charts or .... ?

 

[szymq]

Hi,

I mean pictures and inserted files displayed as icon (emails in .msg format).

 

[James006]

Hello,

You could test following:

Sub SelectAll()
ActiveSheet.Pictures.Select
ActiveSheet.Shapes.SelectAll
End Sub

Hope this will help

 

[szymq]

Thank you!

Could you please show me, how the complete code should look like?

 

[James006]

Thank you!

Could you please show me, how the complete code should look like?

No problem ...

Could you please post your current macro ( complete code... too ) :wink: