ich lese mit folgendem Code von Beverly ein Bild in ein Image eines UF ein
Private Sub CommandButton4_Click()
Dim strPfad As String
strPfad = Workbooks("Carearrange1").Sheets("Daten").Range("J3")
ChDrive Left(strPfad, 1)
If Right(strPfad, 1) "\" Then strPfad = strPfad & "\"
ChDir strPfad
varBild = Application.GetOpenFilename("JPG Files (*.JPG), *.JPG")
If varBild = "" Or varBild = False Then Exit Sub
Me.Image2.Picture = LoadPicture(varBild)
End Sub
wie kann ich dem Bild einem Namen geben. Dies hat den Hintergrund das ich es Klienten bezogen abspeichern muß. Kann mir da jemand helfen?
Danke & Gruß
kocky