Pfadangabe in VBA
nicospostbox
Ich habe eine Frage zu folgendem VBA-Code, der Bilder in ein Excel-Sheet importieren soll:
Sub Bilder_einfügen()
Dim Object_ID As String
Dim Pfad_Datei As String
Dim Pfad_Bild As String
Dim Maxi As Integer
Object_ID = Sheets("Template").Cells(1, 17).Value
Pfad_Datei = ActiveWorkbook.Path
Pfad_Bilder = Sheets("Summary").Cells(1, 31).Value
'Objektphoto_1
Sheets("Template").Range("B7").Select
Pfad_Datei = ActiveWorkbook.Path
Pfad_Bild = Pfad_Datei & "\Pictures\" & Object_ID & "\2.jpg"
If Dir(Pfad_Bild) = "" Then
ActiveSheet.Pictures.Insert(Pfad_Datei & "\Pictures\noPicture.jpg").Select
Else
ActiveSheet.Pictures.Insert(Pfad_Datei & "\Pictures\" & Object_ID & "\1.jpg").Select
End If
Und zwar geht es um die Zeile in fetter Schrift:
Ich würde gerne statt dem Ordner, in dem die Datei liegt einen Pfad angeben, der in Zelle B1 des Arbeitsblatts "Einstellungen" steht.
Kann mir jemand sagen, wie ich das mache?
Danke schonmal für eure Hilfe!
Grüße,
Nico