Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
1336to1340
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

SavePicture: Pfad anhand Variable (Access)

SavePicture: Pfad anhand Variable (Access)
01.11.2013 15:53:06
UliBrenn
Hallo zusammen,
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

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Habs!: SavePicture: Pfad anhand Variable (Access)
01.11.2013 17:16:57
UliBrenn
path = CurrentProject.path & "\" & CStr(Ordner)
Viele Grüße!
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige