eh pptApp yang mana yang diubah jadi pptPres ?
saya pikir ndak ada pptApp yang bisa diubah jadi pptPres deh dalam script
di email lalu : (yang di latar hijau adalah perbaikan)
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=pptapp.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
object pptApp tertulis di 4 baris saja. Bagian mana yang diubah jadi
pptPres ya ?
2015-03-21 18:23 GMT+11:00 ke2t [email protected] [belajar-excel] <
[email protected]>:
>
>
> Dh,
>
> Tadinya jg pas running tetap eror di kode paste as bitmap. Jadi saya coba2
> ganti dari: pptApp jadi: pptPres ternyata berhasil.
>
> Terimakasih Mr. Kid atas ilmunya.
> Mudulnya sdh bs jalan :-)
>
> Hs,
>
> Keket
>
> "'Mr. Kid' [email protected] [belajar-excel]" <
> [email protected]> wrote:
>
>
>
> oh iya, ada yang salah pada email yang lalu. thanks sudah mengingatkan.
>
> yang baris ini :
> set pptpres=ppt.presentations.open(
> drive:\folder\subfolder\namafile.ekstensipptfile )
>
> harusnya :
> set pptpres=pptapp.presentations.open( "
> drive:\folder\subfolder\namafile.ekstensipptfile" )
>
> Sepertinya sebaris ini saja penyebabnya.
>
> ;)
>
> Wassalam,
> Kid
>
>
>
>
> 2015-03-21 16:52 GMT+11:00 ke2t [email protected] [belajar-excel] <
> [email protected]>:
>
>>
>>
>> Dh,
>>
>> Sdh sy coba tp masih belum bisa jalan.
>> - sdh add: microsoft powerpoint 14.0 object library
>> - file sy simpan di drive d:\
>> - set pptpres eror, jadi sy ganti posisi file dengan mnggunakan tanda
>> petik
>> - setelah running : mode paste eror gak bisa jalan
>>
>> Mohon bimbingan selanjutnya.
>>
>> Tks
>> Keket
>>
>> "'Mr. Kid' [email protected] [belajar-excel]" <
>> [email protected]> wrote:
>>
>>
>>
>> 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 [email protected] [belajar-excel] <
>> [email protected]>:
>>
>>>
>>>
>>> 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.
>>>
>>
>>
>
>
