Fotos automatisch hinzufügen [Template]

[Case]

Hallo Manu, :19:

dann so: :21:

  Worksheet_Change_Bild_Einfuegen_Positionieren_1.xlsm (Größe: 19,49 KB / Downloads: 2)

[Manu]

Das klappt hervorragend!!

Super, vielen Dank!

Jetzt sehe ich aber keinen Code mehr um den Pfad anzupassen.  :19:


Wie komme ich da dran?

Super Arbeit von dir, man besten Dank das erleichtert mir wirklich viel !!!

[Case]

Hallo, :19:

das war ja hier: :21:

Code:

Set objShape = Me.Shapes.AddPicture( _
    "C:\Temp\" & Target.Text & ".jpg", _
    msoFalse, msoTrue, rngTMP.Left, rngTMP.Top, -1, -1)

[Manu]

Danke!


 Set objShape = Me.Shapes.AddPicture( _
                    "\\SYNOLOGY\WebDev\art" & Target.Text & ".jpg", _
                    msoFalse, msoTrue, rngTMP.Left, rngTMP.Top, -1, -1)


Funktioniert nicht, da es ein Netzwerkpfad ist, oder?

Man ich bin dir so Dankbar!!

[Case]

Hallo, :19:

sollte klappen, aber muss es nicht...

Code:

"\\SYNOLOGY\WebDev\art\" & Target.Text & ".jpg"

... heißen (Backslash nach art).

[Manu]

HEUREKA

Es funktioniert!!

Tausend Dank.


Wow, ich bin wirklich begeistert!!!!!

Super Arbeit von Dir!!

[Manu]

Bitte prüfe mal deine PN!

Liebe Grüße!

[Case]

Hallo Manu, :19:

habe ich geprüft, da ist nichts neues drin. :21:

[Manu]

Dann werde ich dir eine Email geschickt haben