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

Kamis, 03 September 2020

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

Tentang :

saat chart bersih, kode tampilkan berjalan sukses.
tetapi, saat mau menampilkan ID lain, ingin menghapus dulu picture id sebelumya di chart gagal

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

> Chart wadah dibuat dengan script, sekalian diatur supaya width dan height chart shape sama dengan width dan height picture shape.

dim shpChart as shape

set shpChart=sheets("nama sheet lokasi chart").shapes.addchart2( width:=shapenyapicture.width, height:=shapenyapicture.height)

> Chart wadahnya selalu dibuang (drop alias delete) setiap kali sudah selesai export jadi image file.

shpchart.delete

> jadi, tidak perlu menghapus picture di dalam chart karena chart tidak pernah ada dalam worksheet kecuali ketika mengekspor shape picture menjadi image file

> sedangkan picture yang akan diproses (diekspor menjadi image file), bisa di set sebelum proses membuat chart (sebelum baris shapes.addchart2)

dim shapenyapicture as shape

dim shpChart as shape

set shapenyapicture=blabla

set shpChart=sheets("nama sheet lokasi chart").shapes.addchart2( width:=shapenyapicture.width, height:=shapenyapicture.height)

Regards,

Kid

On Tue, Sep 1, 2020 at 6:04 AM Eira I Arie cheivory_bridge@yahoo.com [belajar-excel] <belajar-excel@yahoogroups.com> wrote:

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: "Mr. Kid" <mr.nmkid@gmail.com>

Reply via web post

•

Reply to sender

•

Reply to group

•

Start a New Topic

•

Messages in this topic (4)

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