- Katılım
- 6 Eylül 2004
- Mesajlar
- 239
- Excel Vers. ve Dili
- Excel 2013 Türkçe
Selam Arkadaşlar
Private Sub Worksheet_Change(ByVal Target As Range)
Dim i As Byte, yol As String
yol = ThisWorkbook.Path
dosya = [f2]
On Error Resume Next
Image1.Picture = LoadPicture("")
Image1.Picture = LoadPicture(yol & "\\Resim\" & dosya & ".jpg")
End If
End Sub
Bu kodları excel 2003 de kullanıyordum herhanki sorun yoktu
excel 2010 kulanmaya başladım resimler çok yavaş gelmeye başladı.
Kullandığım doşya paylaşımda olduğu için diğer kullanıcılar benden daha fazla beklediklerini söylüyorlar.
Bu kodlarda değişiklik veya farklı bir kod yazılımı için yardımcı olacak arkadaşar şimdiden teşekkür ediyorum.
İmdat Saral
İzmir
Private Sub Worksheet_Change(ByVal Target As Range)
Dim i As Byte, yol As String
yol = ThisWorkbook.Path
dosya = [f2]
On Error Resume Next
Image1.Picture = LoadPicture("")
Image1.Picture = LoadPicture(yol & "\\Resim\" & dosya & ".jpg")
End If
End Sub
Bu kodları excel 2003 de kullanıyordum herhanki sorun yoktu
excel 2010 kulanmaya başladım resimler çok yavaş gelmeye başladı.
Kullandığım doşya paylaşımda olduğu için diğer kullanıcılar benden daha fazla beklediklerini söylüyorlar.
Bu kodlarda değişiklik veya farklı bir kod yazılımı için yardımcı olacak arkadaşar şimdiden teşekkür ediyorum.
İmdat Saral
İzmir