Sub cui()
Dim daerah As Range
Set daerah = ThisWorkbook.ActiveSheet.Range("A1:L100")
daerah.Copy Workbooks.Add
Dim tujuan As Range
Set tujuan = ActiveWorkbook.Sheets(1).Cells(1)
tujuan.Activate
ActiveSheet.Paste
End Sub
To: [email protected]
CC: [email protected]
From: [email protected]
Date: Mon, 30 Jan 2012 13:44:16 +0700
Subject: [belajar-excel] Gambar WordArd dan Grafik juga ikut terPaste ke
Workbooks yg baru
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.
