Hai Keket,
coba :
0. save as workbook -> type setting pilih macro enabled xlsm -> beri nama
file -> save
1. ke VBE -> menu References -> centang MS Office Powerpoint blabla object
library -> OK -> save workbook
2. ke VBE -> menu insert -> module
3. copas prosedur ini : (sesuaikan dengan kondisi setempat : nama file,
nama sheet, range yang di-copy dsb)
public sub CopasXL2PPT()
'deklarasi variabel untuk object application (aplikasi power point) dan
presentation (file ppt)
dim pptApp as powerpoint.application, pptPres as presentation
'buka aplikasi powerpoint
set pptApp=new powerpoint.application
pptapp.visible=true
'buka file ppt
set pptpres=ppt.presentations.open(
drive:\folder\subfolder\namafile.ekstensipptfile )
'copy data dari excel
sheets("nama sheet").range("alamat range").copy
'paste as bitmap ke slide pertama yang ada dalam file ppt yang dibuka
pptpres.slides(1).shapes.pastespecial pppastebitmap
'paste as text ke slide pertama yang ada dalam file ppt yang dibuka
pptpres.slides(1).shapes.pastespecial pppastetext
end sub
4. save workbook -> tutup workbook -> buka lagi -> enable security macro ->
jalankan prosedur CopasXL2PPT
Wassalam,
Kid
2015-03-20 16:29 GMT+11:00 ke2t keket....@gmail.com [belajar-excel] <
belajar-excel@yahoogroups.com>:
>
>
> Dh,
>
> Apakah bisa VBA excel bisa nyambung ke file powerpoint? Contoh:
> - Di file .xls saya copy range A1:A4 trus inginnya paste special "bitmap"
> & "text" ke file .ppt
> Jika bisa apa kode VBA ny ya?
>
> Terimakasih.
>
> Hs,
> Keket.
>
>
