Goedemorgen Helpmij !
Ik ben helemaal nieuw hier op t forum , en ik heb een vraag die ik zo goed mogelijk zal
proberen duidelijk te maken :
Ik heb een worksheet ( Zie bijage )waarop ik in eerste instantie het wilde regelen dat ik een foto uit een map
kon laten zien met VBA Code , voor de code die ik hiervoor gebruikte zie hieronder .
Dit werkt prima zolang je dit met 1 foto wil doen , maar zoals je in de bijlage kunt zien wil ik graag
twee fotos kunnen zoeken en laten zien. Maar dan werkt de code niet meer goed : als ik 1 van de 2 foto's
verander dan verdwijnt de andere foto , Ik snap dat dit gebeurd maar ik weet niet hoe ik de code voor de
buttons moet veranderen zodat de ik ze onafhankelijk van elkaar kan updaten , kan iemand mij hier mee helpen ?
Ik hoop dat ik de code op juiste manier heb toegevoegd
Ben erg benieuwd of iemand mij kan helpen
Gr.
Herman
Ik ben helemaal nieuw hier op t forum , en ik heb een vraag die ik zo goed mogelijk zal
proberen duidelijk te maken :
Ik heb een worksheet ( Zie bijage )waarop ik in eerste instantie het wilde regelen dat ik een foto uit een map
kon laten zien met VBA Code , voor de code die ik hiervoor gebruikte zie hieronder .
Dit werkt prima zolang je dit met 1 foto wil doen , maar zoals je in de bijlage kunt zien wil ik graag
twee fotos kunnen zoeken en laten zien. Maar dan werkt de code niet meer goed : als ik 1 van de 2 foto's
verander dan verdwijnt de andere foto , Ik snap dat dit gebeurd maar ik weet niet hoe ik de code voor de
buttons moet veranderen zodat de ik ze onafhankelijk van elkaar kan updaten , kan iemand mij hier mee helpen ?
Code:
Private Sub CmdDisplayPicture_Click()
Application.ScreenUpdating = False
'Dim myObj
'Dim Pictur
'Set myObj = ActiveSheet.DrawingObjects
'For Each Pictur In myObj
'If Left(Pictur.Name, 7) = "Picture" Then
'Pictur.Select
'Pictur.Delete
'End If
'Next
Dim PictureName As String, T As String
myDir = "G:\SNA Services\Q - EH&SS\_hfst 7 registraties\actiepuntenlijst\Cora\Picture\"
PictureName = Range("B42")
T = ".JPG"
Range("B67").Value = PictureName
On Error GoTo errormessage:
ActiveSheet.Shapes.AddPicture Filename:=myDir & PictureName & T, linktofile:=msoFalse, savewithdocument:=msoTrue, Left:=38, Top:=677, Width:=400, Height:=314
errormessage:
If Err.Number = 1004 Then
MsgBox "File does not exist." & vbCrLf & "Check filename!"
Range("B42").Value = ""
Range("B67").Value = ""
End If
Application.ScreenUpdating = True
End Sub
Ik hoop dat ik de code op juiste manier heb toegevoegd
Ben erg benieuwd of iemand mij kan helpen
Gr.
Herman
Bijlagen
Laatst bewerkt: