Siang Danny
Coba seperti ini.
Private Sub UserForm_Initialize()
Dim wks As Worksheet
For Each wks In ThisWorkbook.Worksheets
ComboBox1.AddItem wks.Name
Next wks
End Sub
From: belajar-excel@yahoogroups.com [mailto:belajar-excel@yahoogroups.com]
Sent: Saturday, March 21, 2015
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
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 )
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' mr.nm...@gmail.com [belajar-excel] belajar-excel@yahoogroups.com
wrote:
oh
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
File menyusul.
From: belajar-excel@yahoogroups.com [mailto:belajar-excel@yahoogroups.com]
Sent: Saturday, March 21, 2015 1:25 PM
To: belajar-excel@yahoogroups.com
Subject: RE: [belajar-excel] Memunculkan nama sheet dalam combobox
Siang Danny
Coba seperti ini.
Private Sub UserForm_Initialize()
Terima kasih banyak Pak Suyono telah membantu. Saya belum mencoba file yg bapak
beri, tapi saya yakin filenya benar pak hehehe. Terima kasih yaa pak.
7 matches
Mail list logo