Afbeelding worksheet vervangen voor afbeelding userform

[mark1987vw]

Goedemiddag,

Ik heb een userform waarin ik een afbeelding inlaad.

Genaamd image1.

Deze afbeelding wil ik gebruiken in een worksheet.
Maar hoe kan ik een afbeelding vanuit een userform kopieren naar een afbeelding in een worksheet.

Ik dacht een afbeelding te plaatsen op blad1 en ik heb geprobeerd deze aan te passen naar de bestandsnaam of naar het bestand in de userform maar dit lukt niet helemaal.

Ik dacht zo iets te proberen maar dit werkt niet.

 ActiveSheet.Shapes("Gerechtfoto").picture = Me.Image1.picture

Dit is de huidige code wanneer ik op een button druk.

Hierin worden de values van de textboxen naar cellen in de worksheet gekopieerd.
Dit lukt prima zo maar hoe krijg ik dit voor elkaar met de afbeelding uit de userform (Image1) te kopieren naar een cell of te vervangen voor een afbeelding die ik nu in de sheet heb gezet.

Sub NaarDatabase()

Dim rng As Range
Dim sh As Worksheet
Dim Lastrow As Long
Set sh = Worksheets("PDF")

'    Set rng = Range(0,0
'    Lastrow = Sheets("Totalen").Cells(Rows.Count, "A").End(xlUp).Row
    
    If UserForm1.TextBox1.Value = "" Then
    
    MsgBox "Er is geen invoer gedaan", vbCritical, "Strandpaviljoen Noordduine - Geen invoer"
    
    Exit Sub
    
    Else
    
    Range("B1").Value = UserForm1.TextBox1.Value
    Range("B2").Value = UserForm1.TextBox2.Value
    Range("B3").Value = UserForm1.ComboBox1.Value
    Range("B4").Value = UserForm1.ComboBox2.Value
    

End If

End Sub

Ik hoor het graag.

 

[AccessGuru]

Doe er vooral een bestandje bij; ik heb geen tijd (lees: geen zin) om het eerst na te bouwen.

 

[mark1987vw]

Bij deze het bestandje.

Heb hem zo ver mogelijk uitgekleed zodat het naar de essentie van mijn probleem gaat.

Oftewel textbox1 wordt bij de opslaan knop naar cell B1 gekopieerd en de afbeelding die ik inlaad in de Userform, wil ik op de plaats hebben van de afbeelding in de worksheet.
Deze heb ik voor het gemak FotoWorksheet genoemd.

Ik hoop iemand het antwoord weet.

 

[snb]

Verwijder al je code (ook de macromodule)
Zet in de macromodule van het userform:
Pas padnaam 'G:\OF" aan.

Private Sub cmdGetFile_Click()
   With Application.FileDialog(3)
     .InitialFileName = "G:\OF\*.jpg"
     If .Show Then
        Image1.Picture = LoadPicture(.SelectedItems(1))
        With Blad1.Shapes(1)
           sn = Array(.Left, .Top, .Width, .Height)
           .Delete
        End With
        Blad1.Shapes.AddPicture .SelectedItems(1), 1, 1, sn(0), sn(1), sn(2), sn(3)
     End If
   End With
End Sub

Private Sub CommandButton1_Click()
    Blad1.Cells(1, 2) = TextBox1
End Sub

 

[mark1987vw]

Bedankt! dit is wat ik zocht.