Jika Shape yang berasal dari menu Insert Picture ( excel 2007/2010 ) atau
Insert , Picture, From File ( excel 2003 ) tak dapat diubah dengan
metode : UserPicture. Bila Shape berasal dari menu insert , Shapes ( excel
2007/2010 ) atau Insert, Picture , AutoShapes ( excel 2003 ) dapat
diubah dengan metode : UserPicture. <Shapeobject>.Fill.userPicture <File
gambar lengkap dengan pathnya >
To: [email protected]
From: [email protected]
Date: Fri, 27 Jan 2012 15:36:26 +0700
Subject: Re: [belajar-excel] menampilkan foto dengan shape
waduh lampirannya 635 KB bgmana ini, milisnya sendiri kok di tabrak terus
??
saya suah isi lihat filenya
sebenarnya makro dari Mr. Kid sudah SANGAT SIAP untuk menangani SHAPEmakronya
sudah disiapkan ; anda tinggal mn SET shp = nama Shape
tiap baris makro bahkan sudan diberi petunjuk
Sebenarnya (LAGI) milis ini tempat untuk belajarPelajaran sudah diberikan
mestinya dibaca dan dipelajari
bukan tempat minta dibuatkan program: Pelajaran yg sudah diberikan dan sangat
jelas, e... masih minta lagi!
Maafkan saya selalu pakai "nada tinggi"... tapi itu semua sebenarnya didorong
oleh rasa sayyyang kepada milis dan members nya, semua !
ini kode yg sudah diperbaiki; hanya beberapa huruf saja
'-------------------------------
Private Sub Worksheet_Change(ByVal Target As Range) Dim sFileName As String
Dim shp As Shape
On Error Resume Next 'cek yang berubah nilai hanya 1 cell ? If
Target.Count = 1 Then
'cek yang berubah adalah b2 ? If Target.Address(False, False) =
"B2" Then 'cek trigger (b2) ada isinya ? (untung pakai data
validation)
If LenB(Target.Value) <> 0 Then 'ini picture
filename sFileName = ThisWorkbook.Path & "\" & Target.Value &
".jpg"
'init object variable shape Set
shp = ActiveSheet.Shapes("Rounded Rectangle 2")
With shp 'set lebar dan tinggi object
(contoh dengan shape) .Width = 135
.Height = 158 'cek ada file picturenya ?
If LenB(Dir$(sFileName)) <> 0 Then
'kalau pakai object : ActiveX Image Control
'load si picture Image1.Picture =
LoadPicture(sFileName)
'kalau pakai shape
'fill dengan si picture
.Fill.UserPicture sFileName Else
'kalau pakai object : ActiveX Image Control
'kosongkan object Image1.Picture
= Nothing
'kalau pakai shape 'ganti mode
fill dengan solid .Fill.Solid
'yang warnanya hijau 'diset
dengan kombinasi Red Green Blue .Fill.ForeColor.RGB =
RGB(0, 128, 0)
End If End With End If End
If
End IfEnd Sub'-------------------------------
2012/1/27 neza ibaneza <[email protected]>
dear all,salam be excelsaya punya program yg dulu dibantu sama um KID, untuk
auto live picture
tapi yg saya bisa cuma pake insert activecontrol image pada tools.gimana kalau
mau pake shape.. apa VBA harus diubah banyak??salamNeza
