Grafik per Makro Exportieren

[Chrisbeee]

Hallo Koter,

zunächst möchte ich mich vielmals bei dir bedanken. Dank deiner Hilfe konnte ich das Makro so erstellen, dass es mir jede Menge Arbeit und Zeit erspart.

Zwei Dinge, welche aber nicht zwingend notwendig sind, würde ich gerne noch einbauen.

1.  Es wäre schön, wenn die JPEG-Bilder als RGB exportiert werden. Die PDF-Dateien sollen im CMYK bleiben
   
2.  Kann ich den Pfad auch dynamisch erstellen lassen? Also dass an den Stammpfad ein Wert angehängt wird welcher in einem Textfeld steht, sodass beim exportieren ein neuer Ordner mit dem Namen "Wert-Textfeld3) automatisch erstellt wird?
   

Ich hatte versucht Punkt 2 folgendermaßen zu löschen ->

Code:

Dim Ordner As String
       
  Order = ActivePage.Shapes("Textfeld3").Text.Story
     
  Pfad = "C:\Users\fixe-folie\Desktop\Test\" & Ordner

Das hat so aber leider nicht funktioniert.

Grüße Chris