[gelöst] Excel - Daten aus NAV nach Excel und Bild einfügen

Hallo,

ich exprotiere Daten aus NAV 4.0 nach Excel. Soweit kein Problem.
Zusätzlich muß ich allerdings noch variirende JPGs in die Excel-Datei einfügen.

Wenn ich im Excel "Einfügen => Grafik => Aus Datei" mache und das als Makro aufzeichne, sieht der VB-Code so aus:

Code:

Range("A1").Select
ActiveSheet.Pictures.Insert("C:\Temp\logo.jpg").Select

Ich hab schon zig Sachen versucht, aber mir ist es nocht gelungen, das in C/AL Code umzusetzten.

Kann mir da jemand Helfen?

Danke & Gruß,
Rolf

Zuletzt geändert von rkaufmann am 22. Januar 2008 12:56, insgesamt 1-mal geändert.

Hallo Rolf,

lege hierzu in der Tabelle Excel Buffer fünf neue Felder an. Wie in der Abbildung unten (Felder 50001 bis 50005).

Suche die C/AL-Codestelle:

Code:

    IF Comment <> '' THEN
      XlWrkSht.Range(xlColID + xlRowID).AddComment := Comment;

und tausche sie gegen die folgenden Zeilen aus:

Code:

    IF Comment <> '' THEN
      XlWrkSht.Range(xlColID + xlRowID).AddComment := Comment;

    IF "Picture Path" <> '' THEN
      IF EXISTS("Picture Path") THEN BEGIN
        XlWrkSht.Shapes.AddPicture(
          "Picture Path",
          1,
          1,
          "Picture Position Left",
          "Picture Position Top",
          "Picture Width",
          "Picture Height");
      END;

Beim Füllen der Tabelle Excel Buffer musst du dann die neuen Felder füllen.

Gruß, Marc

Du hast keine ausreichende Berechtigung, um die Dateianhänge dieses Beitrags anzusehen.

Hallo Marc,

funktioniert perfect.

Besten Dank.

Gruß,
Rolf