Bild per VBA verknüpfen ohne kompletten Dateipfad

Forumthread: Bild per VBA verknüpfen ohne kompletten Dateipfad

20.08.2024 12:09:38

Marco1981

Ich habe einen VBA code, der ein Bild aus einem Ordner in eine Zelle einfügt:

Worksheets("Daten").Pictures.Insert("\\L:\Abteilung\_STAFF\Meinname\202311 Projektordner\Excel-Tool\BilderVrknpfng\GHS\GHS07.png").Select

Das funktioniert auch soweit wie gewollt.
Mein Problem jetzt: die Excel Datei liegt im Ordner "Excel-Tool" und der Ordner und Unterordner mit dem Bild liegen ebenfalls selben Ordner; dieser Ordner wird aber dann irgendwann auf ein anderes Laufwerk verschoben (das passiert regelmäßig, der Hauptordner und die Bild-Ordner bleiben aber relativ zueinander immer gleich) und dann müsste ich jedesmal den Dateipfad im Code entsprechend anpassen (zB \\K:\Abteilung\Tools\Excel-Tool\BilderVrknpfng\GHS\GHS07.png).
Gibt es eine Möglichkeit, den Dateipfad beim Bild-Einfügen nicht komplett eingeben zu müssen? So in etwa:

Worksheets("Daten").Pictures.Insert("BilderVrknpfng\GHS\GHS07.png").Select

das funktioniert allerdings nicht ...

Danke.

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Bild per VBA verknüpfen ohne kompletten Dateipfad

20.08.2024 12:43:51

ralf_b

dies würde funktionieren wenn du den Pfad ermittelst ,
den benötigten Teil in eine Variable schreibst und diese dann nicht innerhalb der Anführungsstriche im Insert verwendest.
soweit die Theorie. Praxis machste bitte selbst.

AW: Bild per VBA verknüpfen ohne kompletten Dateipfad

20.08.2024 14:20:53

Marco1981

Auch wenn deine Antwort leicht passiv-aggressiv klingt, bedanke ich mich dafür!
Werd das dann morgen versuchen.

AW: Bild per VBA verknüpfen ohne kompletten Dateipfad

20.08.2024 19:59:18

ralf_b

soso, passiv aggressiv. Is mir im Grunde egal in welchen Hals du die Antwort auf deine Frage bekommst, solange du deinen subjektiven Eindruck nicht in die Welt hinaus posaunst. Für dich sollte nur wichtig sein welche Information aus der Antwort dir weiterhilft. Niemand benötigt hier eine Charaktereinschätzung.
Sag Bescheid wenn dir der Lösungsvorschlag weiter geholfen hat oder noch Klärungsbedarf besteht. Für Hobbypsychologen gibts sicher auch Foren.

AW: Bild per VBA verknüpfen ohne kompletten Dateipfad

21.08.2024 08:17:16

Marco1981

Für alle, die auf diesen Beitrag stoßen und an der Lösung interessiert sind anstatt sich von gewissen Leuten grundlos zur Sau machen zu lassen:

Dim currentWorkbookDir As String

Dim BildOrdner As String



currentWorkbookDir = ActiveWorkbook.Path

BildOrdner = ActiveWorkbook.Path & "\BilderVrknpfng\GHS\"



Worksheets("Daten").Pictures.Insert(BildOrdner & "GHS07.png").Select

funktioniert tip top!

Danke an ralf_b für den Tip und wünsche dir gute Besserung!

Beliebteste Forumthreads (12 Monate)

Bild per VBA verknüpfen ohne kompletten Dateipfad

Forumthread: Bild per VBA verknüpfen ohne kompletten Dateipfad

4 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Beliebteste Forumthreads (12 Monate)

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread