Dear Pak Toby,Apakah tidak ada script yang bisa saat lookup image kemudian
ditambahkan script untuk mengcopy image yang sudan di insert tersebut.misalnya
ilustrasi logika saya :Setelah image di insert :
ActiveSheet.Pictures.Insert(Path & "C:\Katalog Material\03. dBase Foto
Marketing\" & Target.Value & ".jpg").Select
baru kemudian image tersebut di copy ( misal saya belum tau scriptsnya:
"Activesheet.picture.target.value.copy""activesheet.picture.target.value.paste".
mudah-mudahan dimengerti maksud saya.
Terima Kasih atas pencerahannya, Odhy.
On Thursday, March 2, 2017 4:50 PM, "Toby kenzo [email protected]
[belajar-excel]" <[email protected]> wrote:
Dear Odhy,
Sepertinya apa yang anda inginkan sulit di wujudkan, masalahnya bagaimana
membuka file di drive C yang notabene drive pribadi bisa di buka oleh computer
lain.Artiya kalo mau di buka bersama, harus di tempatkan di drive dimana semua
computer bisa membukanya.Jangan pernah memaksakan jika memang sulit untuk di
lakukan, Excel di buat untuk mempermudah bukan menyulitkan..
TerimaKasih.
Pada Kamis, 2 Maret 2017 14:27, "Odhy [email protected]
[belajar-excel]" <[email protected]> menulis:
Dear para master,Maksudku begini, database foto tetap di computer saya
namun tetap bisa terlihat di computer lain. mungkin dengan cara menambahkan
script agar padaa saat lookup foto sekaligus copy foto di file tersebut, jadi
pada saat dibuka di computer lain tidak lookup / ngelink ke database foto.
demikian atas bantuannya saya ucapkan banyak terima kasih.
Terima Kasih atas pencerahannya, Odhy.
On Thursday, March 2, 2017 12:00 PM, "hendrik karnadi
[email protected] [belajar-excel]" <[email protected]> wrote:
Dan extension filenya juga...
Sent from Yahoo Mail on Android
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.
#yiv8303546652 #yiv8303546652 -- #yiv8303546652ygrp-mkp {border:1px solid
#d8d8d8;font-family:Arial;margin:10px 0;padding:0 10px;}#yiv8303546652
#yiv8303546652ygrp-mkp hr {border:1px solid #d8d8d8;}#yiv8303546652
#yiv8303546652ygrp-mkp #yiv8303546652hd
{color:#628c2a;font-size:85%;font-weight:700;line-height:122%;margin:10px
0;}#yiv8303546652 #yiv8303546652ygrp-mkp #yiv8303546652ads
{margin-bottom:10px;}#yiv8303546652 #yiv8303546652ygrp-mkp .yiv8303546652ad
{padding:0 0;}#yiv8303546652 #yiv8303546652ygrp-mkp .yiv8303546652ad p
{margin:0;}#yiv8303546652 #yiv8303546652ygrp-mkp .yiv8303546652ad a
{color:#0000ff;text-decoration:none;}#yiv8303546652 #yiv8303546652ygrp-sponsor
#yiv8303546652ygrp-lc {font-family:Arial;}#yiv8303546652
#yiv8303546652ygrp-sponsor #yiv8303546652ygrp-lc #yiv8303546652hd {margin:10px
0px;font-weight:700;font-size:78%;line-height:122%;}#yiv8303546652
#yiv8303546652ygrp-sponsor #yiv8303546652ygrp-lc .yiv8303546652ad
{margin-bottom:10px;padding:0 0;}#yiv8303546652 #yiv8303546652actions
{font-family:Verdana;font-size:11px;padding:10px 0;}#yiv8303546652
#yiv8303546652activity
{background-color:#e0ecee;float:left;font-family:Verdana;font-size:10px;padding:10px;}#yiv8303546652
#yiv8303546652activity span {font-weight:700;}#yiv8303546652
#yiv8303546652activity span:first-child
{text-transform:uppercase;}#yiv8303546652 #yiv8303546652activity span a
{color:#5085b6;text-decoration:none;}#yiv8303546652 #yiv8303546652activity span
span {color:#ff7900;}#yiv8303546652 #yiv8303546652activity span
.yiv8303546652underline {text-decoration:underline;}#yiv8303546652
.yiv8303546652attach
{clear:both;display:table;font-family:Arial;font-size:12px;padding:10px
0;width:400px;}#yiv8303546652 .yiv8303546652attach div a
{text-decoration:none;}#yiv8303546652 .yiv8303546652attach img
{border:none;padding-right:5px;}#yiv8303546652 .yiv8303546652attach label
{display:block;margin-bottom:5px;}#yiv8303546652 .yiv8303546652attach label a
{text-decoration:none;}#yiv8303546652 blockquote {margin:0 0 0
4px;}#yiv8303546652 .yiv8303546652bold
{font-family:Arial;font-size:13px;font-weight:700;}#yiv8303546652
.yiv8303546652bold a {text-decoration:none;}#yiv8303546652 dd.yiv8303546652last
p a {font-family:Verdana;font-weight:700;}#yiv8303546652 dd.yiv8303546652last p
span {margin-right:10px;font-family:Verdana;font-weight:700;}#yiv8303546652
dd.yiv8303546652last p span.yiv8303546652yshortcuts
{margin-right:0;}#yiv8303546652 div.yiv8303546652attach-table div div a
{text-decoration:none;}#yiv8303546652 div.yiv8303546652attach-table
{width:400px;}#yiv8303546652 div.yiv8303546652file-title a, #yiv8303546652
div.yiv8303546652file-title a:active, #yiv8303546652
div.yiv8303546652file-title a:hover, #yiv8303546652 div.yiv8303546652file-title
a:visited {text-decoration:none;}#yiv8303546652 div.yiv8303546652photo-title a,
#yiv8303546652 div.yiv8303546652photo-title a:active, #yiv8303546652
div.yiv8303546652photo-title a:hover, #yiv8303546652
div.yiv8303546652photo-title a:visited {text-decoration:none;}#yiv8303546652
div#yiv8303546652ygrp-mlmsg #yiv8303546652ygrp-msg p a
span.yiv8303546652yshortcuts
{font-family:Verdana;font-size:10px;font-weight:normal;}#yiv8303546652
.yiv8303546652green {color:#628c2a;}#yiv8303546652 .yiv8303546652MsoNormal
{margin:0 0 0 0;}#yiv8303546652 o {font-size:0;}#yiv8303546652
#yiv8303546652photos div {float:left;width:72px;}#yiv8303546652
#yiv8303546652photos div div {border:1px solid
#666666;height:62px;overflow:hidden;width:62px;}#yiv8303546652
#yiv8303546652photos div label
{color:#666666;font-size:10px;overflow:hidden;text-align:center;white-space:nowrap;width:64px;}#yiv8303546652
#yiv8303546652reco-category {font-size:77%;}#yiv8303546652
#yiv8303546652reco-desc {font-size:77%;}#yiv8303546652 .yiv8303546652replbq
{margin:4px;}#yiv8303546652 #yiv8303546652ygrp-actbar div a:first-child
{margin-right:2px;padding-right:5px;}#yiv8303546652 #yiv8303546652ygrp-mlmsg
{font-size:13px;font-family:Arial, helvetica, clean, sans-serif;}#yiv8303546652
#yiv8303546652ygrp-mlmsg table {font-size:inherit;font:100%;}#yiv8303546652
#yiv8303546652ygrp-mlmsg select, #yiv8303546652 input, #yiv8303546652 textarea
{font:99% Arial, Helvetica, clean, sans-serif;}#yiv8303546652
#yiv8303546652ygrp-mlmsg pre, #yiv8303546652 code {font:115%
monospace;}#yiv8303546652 #yiv8303546652ygrp-mlmsg *
{line-height:1.22em;}#yiv8303546652 #yiv8303546652ygrp-mlmsg #yiv8303546652logo
{padding-bottom:10px;}#yiv8303546652 #yiv8303546652ygrp-msg p a
{font-family:Verdana;}#yiv8303546652 #yiv8303546652ygrp-msg
p#yiv8303546652attach-count span {color:#1E66AE;font-weight:700;}#yiv8303546652
#yiv8303546652ygrp-reco #yiv8303546652reco-head
{color:#ff7900;font-weight:700;}#yiv8303546652 #yiv8303546652ygrp-reco
{margin-bottom:20px;padding:0px;}#yiv8303546652 #yiv8303546652ygrp-sponsor
#yiv8303546652ov li a {font-size:130%;text-decoration:none;}#yiv8303546652
#yiv8303546652ygrp-sponsor #yiv8303546652ov li
{font-size:77%;list-style-type:square;padding:6px 0;}#yiv8303546652
#yiv8303546652ygrp-sponsor #yiv8303546652ov ul {margin:0;padding:0 0 0
8px;}#yiv8303546652 #yiv8303546652ygrp-text
{font-family:Georgia;}#yiv8303546652 #yiv8303546652ygrp-text p {margin:0 0 1em
0;}#yiv8303546652 #yiv8303546652ygrp-text tt {font-size:120%;}#yiv8303546652
#yiv8303546652ygrp-vital ul li:last-child {border-right:none
!important;}#yiv8303546652
