1 Message

Digest #4272

Re: Export table to JPG by "Ariya Suryanto"

Message

1a

Terimakasih Mr Kid
nanti saya coba

--
Best Regards,
ARIYA SURYANTO

On 8/12/2017 5:09 PM, 'Mr. Kid' mr.nmkid@gmail.com [belajar-excel] wrote:
> Hai Ariya,
>
> Coba begini :
> dim rng as range, cht as chart 'deklarasi variabel rng dan cht
> application.displayalerts=false 'turn off alerts
> set rng=sheets("nama sheet range yang mau dijadikan
> image").range("b3:e10") 'set area range yang akan dijadikan image
> set cht=charts.add 'buat chart sheet
> with cht 'pada chart sheet baru
> with .chartarea 'set dimensi chart sheet tanpa border
> .width=rng.width+10
> .height=rng.width+10
> .border.linestyle=xllinestylenone
> end with 'selesai kerja di area chart
> rng.copypicture xlscreen,xlpicture 'xlscreen supaya bisa lebih
> besar ruangnya, xlpicture supaya lebih baik kalau di-rezise
> .paste 'paste ke dalam chart sheet
> .export "D:\myRange.jpg","jpg" 'export chart sheet seukuran
> si range terpilih jadi image file berformat jpg dengan nama
> myRange.jpg di root folder drive D
> .delete 'buang chart sheet
> end with 'selesai kerja dengan chart sheet
> application.cutcopymode=false 'buang clipboard (entah ada efeknya
> atau gak, moga2 ada efeknya, walaupun pesimis)
> application.displayalerts=true 'turn on alerts
> msgbox "File gambar : D:\myRange.jpg",vbinformation,"Range image
> saved" 'finish msgbox
>
> Untuk clear clipboard yang ada efeknya, biasanya pakai winapi function
> bernama EmptyClipboard.
> Kalau yang lengkap, pakai OpenClipboard, EmptyClipboard, lalu
> CloseClipboard.
> Yang perlu diingat, kalau pakai office 64bit perlu declare ptrsafe.
> Kemudian semua inputan variabel hWnd (pointer handle object) pakai
> tipe LongPtr.
> Kalau function-nya sendiri, memberi nilai balikan (return) bertipe
> Long di 32 bit maupun 64 bit.
>
> Regards,
> Kid
>
>
>
>
>
> On Wed, Aug 9, 2017 at 2:06 PM, Ariya Suryanto
> asuryanto@alfa-retail.co.id <mailto:asuryanto@alfa-retail.co.id>
> [belajar-excel] <belajar-excel@yahoogroups.com
> <mailto:belajar-excel@yahoogroups.com>> wrote:
>
> Dear Master
>
> Master2 sekalian saya minta tolong;
> bagaimana cara membuat macro untuk menyimpan sebuah table (
> katakanlah
> di Range B3:E10 ) di dalam excel ke dalam sebuah gambar (jpg)
> dan di simpan di dalam folder tempat woorkbook berada:
> Terimakasih sebelum dan sesudahnya
>
> Regards
> Ariya
>
> This e-mail and any attachment are confidential and intended
> solely for the use of the individual to whom it is addressed. If
> you are not the intended recipient, please telephone or email the
> sender and delete this message and any attachment from your
> system. Unauthorized publication, use, dissemination, forwarding,
> printing or copying of this e-mail and its associated attachments
> is stricly prohibited.
>
>
>

This e-mail and any attachment are confidential and intended solely for the use of the individual to whom it is addressed. If you are not the intended recipient, please telephone or email the sender and delete this message and any attachment from your system. Unauthorized publication, use, dissemination, forwarding, printing or copying of this e-mail and its associated attachments is stricly prohibited.

Reply to sender . Reply to group . Reply via Web Post . All Messages (4) . Top ^

============================================================
Pojok Lowongan Kerja yang disediakan milis :
http://milis-belajar-excel.1048464.n5.nabble.com/Pojok-Lowongan-Kerja-f5725753.html
*** Posting lowongan kerja : ke link tersebut dan klik New Topic
============================================================
bergabung ke milis (subscribe), kirim mail kosong ke: belajar-excel-subscribe@yahoogroups.com
posting ke milis, kirimkan ke: belajar-excel@yahoogroups.com
berkunjung ke web milis : http://tech.groups.yahoo.com/group/belajar-excel/messages
melihat file archive / mendownload lampiran : http://www.mail-archive.com/belajar-excel@yahoogroups.com/
atau (sejak 25-Apr-2011) bisa juga di : http://milis-belajar-excel.1048464.n5.nabble.com/
menghubungi moderators & owners: belajar-excel-owner@yahoogroups.com
keluar dari membership milis (UnSubscribe), kirim mail kosong ke : belajar-excel-unsubscribe@yahoogroups.com
---------------------------------------------------------------------

Visit Your Group