Re: ]] XL-mania [[ bagaimana cara memasukan foto/gambar ke dalam cell??

 

Untuk pekerjaan memasukkan (memindah dan me-resize) Object Picture ke dalam 

sebuah cell atau mergexcell, kita harus tahu :

NAMA Picture-nya, atau objectnya (Picture yang mana)

selain itu kita juga harus tahu ALAMAT CELL / MERGED CELL tujuannya.

"Lha"  kalo 'gitu, sebelumnya kita ada pekerjaan kecil-kecilan

1. 

menuliskan Nama Gambar (picture) ke cell (mergedCell) yg menjadi tujuannya

dalam contoh  Cell B4 kita tulis  "Picture 1"

Untuk mengetahui nama object shape / picture: select lah object tersebut lalu

tengoklah NameBox ( = combobox yg ada di sebelah kiri Formulah Bar...)

2

select-lah Cell Tujuan tersebut

Dengan cara itu kita sudah sekaligus mendapat 2 informasi maha penting

a. Object Cell (mergedCell) tujuan; dlm vba dikatakan sebagai  Selection
b. Nama Object Gambar yg mau dimasukkan bui ( di VBA dikatakan sbg Selection.Value)

Setelah itu; kita tinggal memberi komando-komando yg "agak tegas"

(jangan seperti kalo kota menghadapi ulah negeri JARAN !!, gitu loch...)

A    *geser / pindahkan gambar, sehingga

A1    **tepi-kirinya berimpit dengan tepi-kiri cell tujuan

A2    **tepi-atasnya berimpit dengan tepi-atas cell tujuan

B   *ubah lah (resize) ukuran dimensi gambar, sehingga

B1     **tinggi gambar = tinggi dimensi cell (mergedCell) tujuan

B2    **lebar gambar = lebar dimensi cell (mergedCell) tujuan

C   *Proteksilah (dan pasanglah password) terhadap woksitnya

Perintah terakhir (C) itu = dalam rangka mencegah editing gambar (diubah, digeser dst...)

karena object gambar di atas sheet hanya akan "diam", bila woksit diproteksi.

Menjalankan komando tsb dengan menCeklik Gambar Panah Orange yg sudah ada di situh..

 

Oiya,..Kalau ternyata ada cells yg ingin tetap bisa diobok-obok, silahkan area rangenya

di beri status LOCKED = FALSE (unlocked) melalui menu Format Cells Protection

'---------

Sub Cekidot()

   '--------------------------------------

   ' siti Vi

   ' menggeser dan mengubah dimensi Shape

   ' sesuai dimensi Cell Tujuan

   ' sengaja dipanjang-panjangkan biar kelihatan canggih

   '---------------------------------------

   Dim img, TopCel As Range, mCel As Range

   

   ActiveSheet.Unprotect "siti"

   If Selection.Cells.Count = 1 Then

      Set TopCel = Selection

      Set mCel = TopCel

   Else

      Set TopCel = Selection.Cells(1, 1)

      Set mCel = Selection

   End If

      

   If IsEmpty(TopCel.Value) Then

     MsgBox "Lho??.. Anda kok belum memilih range yg berisi text data nama gambar!!"

     Exit Sub

   End If

   

   Set img = ActiveSheet.Shapes(TopCel.Value)

   With img

      If .Type = msoPicture Then

         .LockAspectRatio = False

         .Top = mCel.Top

         .Left = mCel.Left

         .Width = mCel.Width

         .Height = mCel.Height

      End If

   End With

   ActiveSheet.Protect "siti"

End Sub

'------------------

2010/9/2 <iyan_PE_YMMWJ@yamaha-motor.co.id>

Dear All Master XL,
master semua minta bantu dunk,
bisa gak ya Picture dibuat ada di dalam cell, sifatnya jadi persis seperti kita ketik huruf pd cell tertentu,
jadi ukurannya berubah mengikuti cell tsb.

وألسـلام عليكم ورحمة الله وبركات
IYAN HERMAWANSYAH

__._,_.___

Reply to sender | Reply to group | Reply via web post | Start a New Topic

Messages in this topic (7)

Recent Activity:

• New Members 77

Visit Your Group

+-:: XL-mania ::::::::::::::::::::----------------------------------+
| oooppsss... 216 e-mails di folder sp4m kepencet [delete] :(       |
| http://www.facebook.com/group.php?gid=37671048001&ref=mf          |
+-------------------------------------------------------------------+
| DILARANG : MLM, money game, OOT, iklan tanpa izin, SARA, testing, |
| pembicaraan pribadi, one line message,  melecehkan,  tidak sopan. |
+-------------------------------------------------------------------+
| Buat subjek yang kreatif, jangan : "tanya", "help", "mohon bantu" |
| Usahakan besar attachment < 200 kb. Gunakan  winzip  jika  perlu. |
+-------------------------------------------------------------------+
| Ajak teman-teman Anda bergabung dengan mengirim e-mail kosong ke  |
| XL-mania-subscribe@yahoogroups.com atau kirimkan mereka file dari |
| http://groups.yahoo.com/group/XL-mania/files/Promotion/           |
+-------------------------------------------------------------------+
| Berikan testimoni di : http://www.friendster.com/xlmania atau...  |
| http://www.xl-mania.com/2008/06/testimoni-xl-mania.html           |
+-------------------------------------------------------------------+
| Message lama ada di :                                             |
| http://groups.yahoo.com/group/XL-mania/messages [perlu yahoo id]  |
| http://www.mail-archive.com/xl-mania@yahoogroups.com              |
+-------------------------------------------------------------------+

Switch to: Text-Only, Daily Digest • Unsubscribe • Terms of Use

.

__,_._,___