Dan extension filenya juga...
Sent from Yahoo Mail on Android
On Thu, Mar 2, 2017 at 11:58, Toby kenzo [email protected]
[belajar-excel]<[email protected]> wrote:
Dear Odhy,
Pastikan Path yang tertulis dalam script sesuai dengan path computer lain
(C:\Katalog Material\03. dBase Foto Marketing\" & Target.Value & ".jpg")
Terimakasih.
Pada Kamis, 2 Maret 2017 11:34, "Odhy [email protected]
[belajar-excel]" <[email protected]> menulis:
Dear Master,untuk lookup foto ke folder sudah running, namun kendalanya
saat saya mau kirim file tersebut atau buka di computer lain fotonya tidak
kelihatan.nah bagaimana caranya / scriptnya biar foto tersebut biasa dibuka di
computer lain.
// script untuk lookup foto yang saya gunakan yaitu :
Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [B:B]) Is Nothing Then Exit Sub
If Target.Row Mod 100 = 0 Then Exit Sub
On Error GoTo son
ActiveSheet.Pictures.Insert(Path & "C:\Katalog Material\03. dBase Foto
Marketing\" & Target.Value & ".jpg").Select
Selection.Top = Target.Offset(0, 4).Top
Selection.Left = Target.Offset(0, 4).Left
Selection.ShapeRange.LockAspectRatio = msoFalse
Selection.ShapeRange.Height = Target.Offset(0, 4).Height
Selection.ShapeRange.Width = Target.Offset(0, 4).Width
Target.Offset(1, 0).Select
son:
End Sub
atas bantunnay saya ucapkan banyak-banyak terima kasih.Salam,Odhy.
