Yth. Mr. Kid
Berikut kode vba yang coba saya buat :
Option ExplicitDim Grafik As ChartDim Gambar As String
Sub BukaLinkedPicture()Set Grafik = Sheet11.ChartObjects("Chart 1").ChartGambar
= 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 = TrueEnd Sub
Private Sub tampilkan_Click()Call BukaLinkedPicture
tampilkan.Enabled = FalseEnd Sub
Private Sub TextBox1_Change()Sheet9.Range("an5").Value = TextBox1.ValueEnd 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.nm...@gmail..com [belajar-excel] <belajar-excel@yahoogroups.com> wrote:
wa'alaikumussalam wr wb
Pakai VBA dengan step :
1. buat chart kosong di sebuah sheet kosong2. ubah tinggi dan lebar chart
kosong tadi agar sama dengan ukuran shape dari linked picture3. copy shape
linked picture -> select chart kosong -> paste shape linked picture ke dalam
chart kosong -> chart jadi berisi shape linked picture4. select chart -> export
ke lokasi tertentu dengan nama tertentu dalam format jpg misalnya5. delete
chart di sheet kosong6. di userform sudah ada image control -> pada image
control, lakukan load picture mengambil hasil export chart tadi
wassalamu'alaikum wr wbKid
On Mon, Aug 31, 2020 at 4:39 PM Eira I Arie cheivory_bri...@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
