Relativer Pfad für Excel-Rangliste

Computer: Software & Programmierung Office Software
1

Hallöchen!

Ich möchte gerne in einer Excel-Rangliste Bilder als Pyramide anzeigen lassen. Soweit so gut. Nur wie kann ich beim Einfügen der Bilder per Makro programmieren, dass die Verknüpfung der Bilder wie folgt generiert werden:

Pfad der Excel-Rangliste (bspw. D:\Excel-Rangliste) + Angaben innerhalb einer Zelle (bspw. \bilder\Name.jpg)

Bsp.:
D:\Excel-Rangliste\bilder\thomas.jpg
D:\Excel-Rangliste\bilder\jan.jpg
D:\Excel-Rangliste\bilder\björn.jpg

Die Angaben innerhalb einer Zelle sind wichtig, da hier die Reihenfolge der Bilder errechnet wird.

Ich wollte folgende aus dem Internet gefundene Formel :

ActiveSheet.Pictures.Insert( \_
ThisWorkbook.Path & "\pics\wait.bmp").Select

mit meiner aktuellen Formel :

Worksheets("Bilder-Pyramide").Pictures.Insert( \_
Worksheets("Baukasten").Cells(n + 32, 1)).Select

kombinieren :

Worksheets("Bilder-Pyramide").Pictures.Insert( \_
ThisWorkbook.Path & Worksheets("Baukasten").Cells(n + 32, 1)).Select

Leider klappt die Kombination nicht ?!?
Über Hilfe würde ich mich sehr freuen!

Viele Grüße,
Daniel

2

Leider klappt die Kombination nicht ?!?

Hallo Daniel,
bisschen wenig Info, was genau klappt nicht? fehlermeldungen o.ä?
Was zeigt die Msgbox an bei:

Sub daniel()
Pfadname = ThisWorkbook.Path
Pfadname = Pfadname & Worksheets(„Baukasten“).Cells(n + 32, 1)
MsgBox Pfadname
Worksheets(„Bilder-Pyramide“).Pictures.Insert (Pfadname)
End Sub

Gruß
Reinhard

3

Fehlermeldung
Hallo Reinhard,

ich habe gerade den Fehler gefunden :stuck_out_tongue:
Die Formel in VB war richtig, nur hatte ich in den Zellen „\bilder“ vergessen!
Statt „ThisWorkbook.Path + \bilder\ + Name.jpg“
wurde lediglich „ThisWorkbook.Path + Name.jpg“ generiert und damit konnte es nicht klappen. Nach Aktualisierung der Zellen klappts einwandfrei.

Hab trotzdem vielen Dank für die Mühe!

Gruß Daniel

PS: Das war dann wohl die letzte Funktion, die ich integriere. Jetzt verteile ich die Rangliste an die Kinder, damit sie sie durchtesten können :wink: