step-nya kurang lebih begini (pake ppt 2000):
1. insert semua picture ke sebuah slide
2. loop ke collection PowerPoint.Slide.Shapes, misalnya:
Dim x As Shape
For each x in ActivePresentation.Slides(1).Shapes -> hasil paste selalu
berurutan dari sisi collection
'atur posisi object x dengan mengatur nilai property Left, Right,
Width, dan Height sesuai kebutuhan
Next
ActivePresentation.Slides(1).Shapes.SelectAll
ActiveWindow.Selection.ShapeRange.Group.Select
dst...
atau solusi lain (tapi vb, bukan vba), coba kunjungi
http://www.vb-helper.com/howto_compose_pictures.html
semoga membantu,
Aris
-----Original Message-----
From: [email protected] [mailto:[EMAIL PROTECTED] Behalf Of
wedhi2002
Sent: Wednesday, January 30, 2008 3:19 PM
To: [email protected]
Subject: [belajar-access] Re: Gabung 2 file JPG jadi 1 file JPG / 1 file PDF
dgn nama Baru
Makasih kang aris.
Contoh.
KTP.Edy.Page.1.jpg
KTP.Edy.Page.2.jpg
kalo pake Powerpoint, hasilnya gambar numpuk.
kalo di edit dulu, kendalanya nama object berubah setiap kali kita
jalankan macronya.
Misalnya: tadinya page1 disebut Picture1, kalo kita jalankan macro
sekali lagi, namanya berubah jadi Picture 3.
So pendekatan ini belum berhasil.
Saya sudah coba dengan New Photo Album, tapi tidak bisa direcord
dengan macro powerpoint.
Please, pencerahan dari rekan2 lain.
--- In belajar-access@ <mailto:belajar-access%40yahoogroups.com>
yahoogroups.com, "Adrianto Suryadi, Aris "
<[EMAIL PROTECTED]> wrote:
>
> pake macro:
> insert all picture ke powerpoint
> select all -> group -> save as picture
>
>
>
> -----Original Message-----
> From: belajar-access@ <mailto:belajar-access%40yahoogroups.com>
> yahoogroups.com [mailto:belajar-
[EMAIL PROTECTED] <mailto:access%40yahoogroups.com> com]On Behalf Of wedhi2002
> Sent: Wednesday, January 30, 2008 2:01 PM
> To: belajar-access@ <mailto:belajar-access%40yahoogroups.com> yahoogroups.com
> Subject: [belajar-access] Gabung 2 file JPG jadi 1 file JPG / 1
file PDF dgn nama Baru
>
>
>
> Rekan-rekan miliser,
>
> Saya butuh sharing dari rekan2 untuk kasus sbb:
>
> DOCs.File.1.1.jpg
> DOCs.File.1.2.jpg
>
> mau digabung jadi satu file bernama
> DOCs.File.1.jpg
>
> atau
> DOCs.File.1.pdf
>
> ada gak satu cara untuk mewujudkan hal tsb dengan VBA - Access?
>
> saya sudah coba dengan adobe photoshop hanya bisa dilakukan satu
> persatu, padahal saya punya 1000-an file bersaudara seperti di
atas.
>
> data path, filename, ekstensi sdh dibuat dgn access.
>
> Terimakasih sebelumnya,
>
> Edy WIYONO
>
