EXCEL FEED: Re: [belajar-excel] Display Linked Picture in Worksheet to Userform

Senin, 31 Agustus 2020

Re: [belajar-excel] Display Linked Picture in Worksheet to Userform

Yth. Mr. Kid

Berikut kode vba yang coba saya buat :

Option Explicit

Dim Grafik As Chart

Dim Gambar As String

Sub BukaLinkedPicture()

Set Grafik = Sheet11.ChartObjects("Chart 1").Chart

Gambar = ThisWorkbook.Path & "\" & "mychart1.JPEG"

Sheets("lap stase").Select

ActiveSheet.Shapes.Range(Array("Picture 9")).Select

Application.CutCopyMode = False

Selection.Copy

Sheets("Sheet1").Select

ActiveChart.Paste

Grafik.Export Filename:=Gambar, Filtername:="JPEG"

Image1.Picture = LoadPicture(Gambar)

End Sub

Private Sub hapus_Click()

Sheet11.ChartObjects("Chart 1").Activate

ActiveChart.Shapes.Range(Array("Picture 4")).Select

Selection.Delete

tampilkan.Enabled = True

End Sub

Private Sub tampilkan_Click()

Call BukaLinkedPicture

tampilkan.Enabled = False

End Sub

Private Sub TextBox1_Change()

Sheet9.Range("an5").Value = TextBox1.Value

End Sub

mohon koreksinya kode tersebut ..

saat chart bersih, kode tampilkan berjalan sukses.

tetapi, saat mau menampilkan ID lain, ingin menghapus dulu picture id sebelumya di chart gagal (nama obsject picyure nya berubah2) ..

bagaimana mensiasati name object yang berubah-ubah saat copy paste linked picture ke chart kosong ?

terima kasih

On Monday, August 31, 2020, 05:25:26 PM GMT+7, 'Mr. Kid' mr.nmkid@gmail.com [belajar-excel] <belajar-excel@yahoogroups.com> wrote:

wa'alaikumussalam wr wb

Pakai VBA dengan step :
1. buat chart kosong di sebuah sheet kosong

2. ubah tinggi dan lebar chart kosong tadi agar sama dengan ukuran shape dari linked picture

3. copy shape linked picture -> select chart kosong -> paste shape linked picture ke dalam chart kosong -> chart jadi berisi shape linked picture

4. select chart -> export ke lokasi tertentu dengan nama tertentu dalam format jpg misalnya

5. delete chart di sheet kosong

6. di userform sudah ada image control -> pada image control, lakukan load picture mengambil hasil export chart tadi

wassalamu'alaikum wr wb

Kid

On Mon, Aug 31, 2020 at 4:39 PM Eira I Arie cheivory_bridge@yahoo.com [belajar-excel] <belajar-excel@yahoogroups.com> wrote:

Assalamualaikum warahmatullahi wa barakaatuh

Mohon bantuannya ..
Saya mempunyai sheet surat keterangan di Excel, lalu saya set print area, copy Linked picture ..

Saya buat juga userform dengan ada combobox id dan image .. harapannya jika kita ubah id record combobox maka, display image di userform ikut berubah mengikuti Linked picture di sumber sheet..

Bagaimana kode vba nya menamplikan Linked picture di userform ?

Terimakasih

Wassalamu'alaikum warahmatullahi wa barakaatuh

Ari
Dikirim dari Yahoo Mail di Android

__._,_.___

Posted by: Eira I Arie <cheivory_bridge@yahoo.com>

Reply via web post

•

Reply to sender

•

Reply to group

•

Start a New Topic

•

Messages in this topic (3)

============================================================
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