Offthefield
Gebruiker
- Lid geworden
- 27 apr 2005
- Berichten
- 369
Ik zit met een probleem dat foto's wel op mijn computer zichtbaar zijn (op netwerk), maar niet op
het netwerk van mijn collega terwijl deze wel in het openbaar gedeelte staan
("c:\Users\Public\Pictures\ARTIKELEN1")
Hoe kan ik ze ook daar zichtbaar krijgen?
Bij voorbaat hartelijk dank
het netwerk van mijn collega terwijl deze wel in het openbaar gedeelte staan
("c:\Users\Public\Pictures\ARTIKELEN1")
Hoe kan ik ze ook daar zichtbaar krijgen?
Code:
Option Explicit
Private Sub ComboBox1_Change()
On Error Resume Next
[A1] = ComboBox1.Value
Const myDir = "c:\Users\Public\Pictures\ARTIKELEN1\"
''
With Image1
.Picture = LoadPicture(myDir & IIf(Dir(myDir & Range("D7") & ".jpg") = "", "Geen_Foto.jpg", Range("D7") & ".jpg"))
.PictureSizeMode = 1
End With
With Image2
.Picture = LoadPicture(myDir & IIf(Dir(myDir & Range("D9") & ".jpg") = "", "Geen_Foto.jpg", Range("D9") & ".jpg"))
.PictureSizeMode = 1
End With
With Image3
.Picture = LoadPicture(myDir & IIf(Dir(myDir & Range("D11") & ".jpg") = "", "Geen_Foto.jpg", Range("D11") & ".jpg"))
.PictureSizeMode = 1
End With
End SubBij voorbaat hartelijk dank
