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 SHAPE
makronya sudah disiapkan ; anda tinggal mn SET shp = nama Shape
tiap baris makro bahkan sudan diberi petunjuk
Sebenarnya (LAGI) milis ini tempat untuk belajar
Pelajaran 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 If
End Sub
'-------------------------------
2012/1/27 neza ibaneza <[email protected]>
> **
> dear all,
> salam be excel
> saya 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??
> salam
> Neza
>
>
>
