Grafik per Makro Exportieren

[koter]

Hallo Chris,

willkommen im Forum!

Die Grafiken müssen eine Gemeinsamkeit haben oder benannt sein, damit das Makro sie identifizieren kann:



Im Beispiel sind die Textfelder (Grafiktexte) benannt und die zu exportierenden Grafiken sind Gruppen.
Die Gruppen enthalten jeweils zwei Grafiktexte in einer bestimmten Schriftart, daran werden sie identifiziert.



Das Beispielmakro hat keinen Dialog. Den Pfad musst Du also in den Quelltext schreiben.

Code:

Sub Chrisbeee1()
   Dim f As String, q As String, Pfad As String, Dateiname As String
   Dim s As Shape
   Dim sr1 As New ShapeRange, sr2 As ShapeRange
   Dim i As Integer, z As Integer
   
   Pfad = "C:\temp\corelforum\Chrisbeee\"
   
   Dateiname = ActivePage.Shapes("Textfeld1").Text.Story & ActivePage.Shapes("Textfeld2").Text.Story
   
   ActiveDocument.PDFSettings.PublishRange = 2
   q = "@type = 'text:artistic'and  @com.text.story.font = '" & f & "'"
   f = "Humnst777 BT"
   z = 0
   
   Set sr1 = ActivePage.Shapes.FindShapes(Type:=cdrGroupShape)
   sr1.Sort " @shape1.Left < @shape2.Left "
   
   For i = 1 To sr1.Count
       Set s = sr1(i)
       Set sr2 = s.Shapes.FindShapes(Query:=q)
       If sr2.Count = 2 Then
           z = z + 1
           s.CreateSelection
           ActiveDocument.Export Pfad & Dateiname & z & ".jpg", cdrJPEG, cdrSelection
           ActiveDocument.PublishToPDF Pfad & Dateiname & z & ".pdf"
       End If
   Next i
End Sub

Deine Informationen sind tatsächlich etwas knapp, deshalb konnte ich nur mit diesem allgemeingehaltenen Beispiel antworten.
Gesteinigt wurde hier aber noch niemand. (wäre ja mal was neues!   )

Gruß

Koter