Dear rekan rekan Pecinta Excel,
Listing dibawah hanya mempaste berdasarkan value, format dan lebar
colom,
tetapi objek seperti gambar, wordArt maupun grafik tidak ikut terkopi.
Asumsi gambar, wordArt dan Grafik berada di sekitar area Range yang di
Copy ("A1:L100")
Bagaimana agar objek tersebut ikut terkopy ke workbooks.
Workbooks.Add
ThisWorkbook.ActiveSheet.Range("A1:L100").Copy
With ActiveWorkbook.Sheets(1).Cells(1)
.PasteSpecial xlPasteValues
.PasteSpecial xlPasteFormats
.PasteSpecial xlPasteColumnWidths
End With
Application.CutCopyMode = False
Terima kasih
Salam: |Rasyid|
Disclaimer - This message including any attachments and information
contained
herein ("Message" ) may contain privileged information or otherwise is
protected
from disclosure. Any unauthorized use of this Message by any person may
lead to
legal consequences. If you receive this Message in error, or if the
recipient
of this Message is not the intended recipient or the employee or agent
authorized
for delivering this Message to the intended recipient you are hereby notified
that
any disclosure, dissemination, distribution or copying of this Message or
let or
cause this Message to be disclosed,disseminated, distributed, or copied is
strictly
prohibited, and please notify the sender by return message and immediately
delete
this Message from your system. Incoming and outgoing communications using
this
electronic mail may be monitored by PT Arutmin Indonesia,as permitted by
applicable
law and regulations. Unless it is made by the authorized person,any views
expressed
in this Message are those of the individual sender and may not necessarily
reflect
the views of PT Arutmin Indonesia.
You should check attachments for viruses and defects before opening or using
them.
We are not liable to recover any injuries caused by virused or defected
attachments.
