[belajar-excel] Digest Number 4435

Milis Belajar Microsoft Excel Group

1 Message

Digest #4435

1a

Re: Insert Picture per kolom by "Mr. Kid" nmkid.family@ymail.com

Message

1a

Re: Insert Picture per kolom

Sat Feb 24, 2018 4:38 pm (PST) . Posted by:

"Mr. Kid" nmkid.family@ymail.com

wa'alaikumussalam wr wb

Hai Heru

Insert picture menggunakan object sheet. Hasilnya adalah object Picture
Contoh :
dim oPic as Picture
set picture=sheets("nama sheet lokasi picture").pictures.insert(
"nama_file_image.ekstensi" )
atau tanpa menggunakan variabel, bisa begini :
sheets("nama sheet lokasi picture").pictures.insert
"nama_file_image.ekstensi"

Tapi, biasanya, object picture hasil insert perlu diatur tata letak maupun
dimensinya. Jadi, object picture hasil insert digunakan lebih lanjut
seperti :
1. Jika menggunakan variabel (seperti oPic di atas)
dim oPic as Picture
set picture=sheets("nama sheet lokasi picture").pictures.insert(
"nama_file_image.ekstensi" )
with opic
.name="nama_shapesN" 'nama shape dengan format tertentu akan
memudahkan pengenalan shapes sebagai sebuah koleksi
'contoh : nama shapes seperti shpKaryawan1001, shpKaryawan1002,
dsb dengan 4 karakter terakhir adalah id karyawan akan memudahkan loop
terhadap shapes foto karyawan berdasar id karyawan

'lokasi object picture juga bisa diatur agar ada di range
tertentu (misal di range Z13)
.left = sheets("nama sheet lokasi picure").range("z13").left
.top = sheets("nama sheet lokasi picure").range("z13").top
'*** object range bisa diganti dengan object cells, seperti :
.left = sheets("nama sheet lokasi picure").cells( 13 , 26
).left 'baris 13, kolom 26 alias Z -> Z13
.top = sheets("nama sheet lokasi picure").cells( 13 , 26 ).top
'*** cells sisi kolom bisa juga menggunakan nama kolom Excel
.left = sheets("nama sheet lokasi picure").cells( 13 , "z"
).left 'baris 13, kolom Z -> Z13
.top = sheets("nama sheet lokasi picure").cells( 13 , "z" ).top

'untuk dimensi object picture, yang diatur adalah dimensi
shape-nya
with .shaperange 'bisa juga dengan variabel shape dim shp as
shape : set shp=opic.shaperange:with shp
'jika rasio tinggi dan lebar object picture mengikuti
rasio tinggi dan lebar file image, turn on baris pembuat lock aspect ratio
berikut :
'.lockaspectratio=msotrue
'jika lock aspect ratio true, set salah satu saja
antara tinggi atau lebar. Jika lebar range z13 sebagai batas maksimal
dimensi object picture (tinggi menyesuaikan), maka
.width= sheets("nama sheet lokasi picure").range("z13")
..width
end with
end with

2. jika tanpa variabel oPic
seperti nomor 1 di atas, tetapi bagian with opic diganti dengan bunyi :
with sheets("nama sheet lokasi picture").pictures.insert(
"nama_file_image.ekstensi" )

Loop bisa dilakukan terhadap blok with object picture hasil insert di atas

Wassalamu'alaikum wr wb
Kid

2018-02-22 9:34 GMT+07:00 'Heru Safrudin' fcprocessing.bisikediri@bisi.co.id
[belajar-excel] <belajar-excel@yahoogroups.com>:

>
>
>
>
>
>
> Dear B-Exceller,
>
>
>
> *اَلسَّــــلَامُ عَلًيْــــكُمْ وَرَحْمَةُ اللـــهِ وَبَرَكَاتُـــهُ*
>
>
>
> Saya record macro insert picture from file berjajar dari kolom A, B,C di
> baris 1. Tetapi ketika saya jalankan macro picturenya kok nggak bisa
> berjajar per kolom, tetapi menumpuk di kolom 1. Mohon pencerahannya
>
>
>
> Terima kasih
>
>
>
> *وَالسَّـــلَامُ عَلَيْـــكُمْ وَرَحْمَةُ اللـــهِ وَبَرَكَاتُـــهُ*
>
>
>
> *Heru Safrudin*
>
>
>
>
>

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

• Privacy • Unsubscribe • Terms of Use