Grafik per Makro Exportieren

[koter]

Hallo Chris,

1. Du kannst eine Exportoption erstellen und an den Exportbefehl anhängen.
   
2. Ordner werden nicht automatisch erstellt, Du kannst sie aber vom Makro erstellen lassen.
   

Im Beispiel sind die entsprechenden Zeilen kommentiert:

Code:

Sub Chrisbeee3()
   Dim ExpOpt As New StructExportOptions 'Exportoption deklarieren.
   Dim Pfad As String, Dateiname As String, Ordner As String
   Dim z As Integer
   
   ExpOpt.ImageType = cdrRGBColorImage 'RBG als Bildtyp in der Exportoption festlegen.
   
   Ordner = ActivePage.Shapes("Textfeld3").Text.Story
   Pfad = "C:\temp\corelforum\Chrisbeee\" & Ordner & "\"
   If Dir(Pfad, vbDirectory) = "" Then: MkDir (Pfad) 'Ordner erstellen (falls nicht vorhanden).
   Dateiname = "TestRBG"
   z = 2
   'Exportoption anhängen:
   ActiveDocument.Export Pfad & Dateiname & z & ".jpg", cdrJPEG, cdrSelection, ExpOpt
End Sub

Gruß

Koter