Makro in PhotoPaint

[koter]

Hallo Günther,

...Was mich lediglich irritiert, ist die Tatsache, dass (inzwischen?) der Speicherpfad C:\Program Files\CorelDRAW\Programs64 vorgeschlagen wird. Liegt das evtl. an der 64bit-Version von Corel. Ich muss dann immer erst den Speicherpfad in den Bereich meiner Arbeitsdateien ändern. Ich meine, das war früher nicht so....

Das sollte (auch früher) nur bei Dateien passieren die nicht gespeichert sind.
Das Makro kann also nicht den Pfad der Datei nutzen, der existiert ja nicht.

Du kannst im Makro einen Pfad für diesen Fall vorgeben:

Code:

Sub JPGneuAusAuswahl()
  Dim L As Layer
  Dim ND As Document
  Dim DN As String, DName As String, DPfad As String
  Dim EF As ExportFilter
  If ActiveDocument.Mask.IsEmpty Then
      MsgBox "Keine Maske!", vbCritical, "Fehler"
      Exit Sub
  End If
  DName = Left(ActiveDocument.FileName, Len(ActiveDocument.FileName) - 3) & "jpg"
  DPfad = ActiveDocument.FilePath

  'Datei nicht gespeichert:
  If Dir(ActiveDocument.FullFileName, vbDirectory) = vbNullString Then DPfad = "c:\temp"

  DN = CorelScriptTools.GetFileBox("JPG (*.jpg)|*.jpg", "Datei Speichern", 1, "Neu", ".jpg", DPfad)
  If Trim(DN) = "" Then Exit Sub
  Set L = ActiveDocument.Layers.Add("JPG", , , pntCopySelection)
  L.Cut
  Set ND = Application.CreateDocumentFromClipboard
  ND.Layers.Merge
  Set EF = ND.SaveAs(DN, cdrJPEG)
  EF.Finish
End Sub

In der Zeile nach dem Kommentar (Datei nicht gespeichert) kannst Du, dort wo jetzt "c:\temp" steht,
einen Pfad Deiner Wahl zwischen die Anführungszeichen schreiben.

Gruß

Koter

P.S.
Auf die PN zu Antworten war nicht möglich.
Er kam die Meldung:
 „Karthagos hat private Nachrichten deaktiviert. Sie können diesem Benutzer keine Nachricht schicken“