ich scheitere an einem letzten Schritt..schon seit Stunden..
Ein Bild aus der Zwischenablage soll nicht in einem festen Pfad abgelegt werden, sondern in einem Ordner bestehend aus Variablen. Der Ordner wird auch
anhand der Variablen erstellt. Die Bild-Datei landet leider immer nur auf dem Desktop, wo sich mein DB-Projekt befindet.
Kann es sein, dass ich für die Pfadangabe bei SavePicture die Variable path nicht verwenden kann, weil ich sie als String gedimmt habe? Habe die Stelle unten im Code mit *** markiert. Danke für Eure Hilfe! Grüße U.
Function GrafikZwischenablage2Datei(DatName As String) As Boolean
Dim lPicType As Long, oPic As Variant
Dim FileName As String
Dim frmCurrentForm As Form
Dim path As String
Dim Ordner As String
'Auswahl aktuelle Form
Set frmCurrentForm = Screen.ActiveForm
' Definition Ordner
Ordner = frmCurrentForm.K_name.Value & "_" & frmCurrentForm.K_id.Value
'Definition Pfad
path = CurrentProject.path & Ordner
'MsgBox path
'Ggf Ordner erstellen
If Len(Dir(CurrentProject.path & "\" & CStr(Ordner), vbDirectory)) = 0 Then
MkDir (CurrentProject.path & "\" & CStr(Ordner))
End If
'Definition FileName
FileName = "Picture_" & Format(Date, "dd.mm.yy") & "_" & Format(Time,
"hh.mm") & "h"
lPicType = xlBitmap
Set oPic = PastePicture(lPicType)
If oPic Is Nothing Then Exit Function
'SavePicture oPic, DatName
'Hier soll sich nun der Speicherpfad aus dem angelegten Ordner ergeben
'anstatt eines festen Pfades wie z.B. = "c:\Test_" & FileName & ".tif".
'path wurde ja als path = CurrentProject.path & Ordner definiert
'WHAT IS WRONG?
SavePicture oPic, path & FileName & ".tif"
GrafikZwischenablage2Datei = True
End Function