MS-Office-Forum
Google
   

Zurück   MS-Office-Forum > Windows, Anwendungen & Co. > Corel Draw, Paint Shop & Co.
Registrieren Forum Hilfe Alle Foren als gelesen markieren

Banner und Co.

Antworten
Ads Der Renner, 11 Entwicklertools für Access, Tipps & Trick und offene Datenbanken zum einzigartigen Preis.
Themen-Optionen Ansicht
Alt 29.06.2014, 09:11   #1
hajosch
MOF User
MOF User
Standard CorelDraw < 8 - CorelDraw 8 - CD2 unter Windows 7/8

Hallo,
wie bekomme ich Zugriff auf die Cliparts der CorelDraw 8 - CD2 unter Windows 7/8 ?
Danke für jede Hilfe.
hajosch
hajosch ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 29.06.2014, 15:51   #2
hajosch
Threadstarter Threadstarter
MOF User
MOF User
Standard

Ich habe mir die Testversion von CorelDraw Graphics Suite X7 heruntergeladen,
mit der ich -einzelne- cdr-Dateien von der oben genannten CorelDraw8-CD nach wmf konvertieren kann. Da das Programm keinen Batch-Modus kennt, habe ich ein Makro für die Konvertierung einer einzelnen Datei aufgezeichnet.

Kann mir jemand dieses Makro so erweitern, dass es alle Dateien eines Ordners, möglichst auch mit dessen Unterordnern, konvertiert?

Danke
hajosch
hajosch ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 30.06.2014, 07:32   #3
hajosch
Threadstarter Threadstarter
MOF User
MOF User
Standard

Prozedur:

Sub cdr_to_wmf()
' Recorded 29.06.2014
Dim lr1 As Layer
Set lr1 = ActiveDocument.Pages(1).CreateLayer("Layer 1")
ActiveDocument.Pages(1).Activate
ActivePage.Layers("Ebene 1").Activate
' Recording of this command is not supported
Dim impopt As StructImportOptions
Set impopt = CreateStructImportOptions
impopt.MaintainLayers = True
Dim impflt As ImportFilter
Set impflt = ActiveLayer.ImportEx("Z:\Hajo\Bilder-fremde\COREL8 Cliparts\AIRCRAFT\Jets\737PER.cdr", cdrCDR, impopt)
impflt.Finish
Dim s1 As Shape
Set s1 = ActiveShape
Dim grp1 As ShapeRange
Dim openopt As StructOpenOptions
Set openopt = CreateStructOpenOptions
With openopt.ColorConversionOptions
.SourceColorProfileList = "sRGB IEC61966-2.1,ISO Coated v2 (ECI),Dot Gain 15%"
.TargetColorProfileList = "sRGB IEC61966-2.1,ISO Coated v2 (ECI),Dot Gain 15%"
End With
Dim doc1 As Document
Set doc1 = OpenDocumentEx("Z:\Hajo\Bilder-fremde\COREL8 Cliparts\AIRCRAFT\Jets\737PER.cdr", openopt)
Dim expopt As StructExportOptions
Set expopt = CreateStructExportOptions
expopt.UseColorProfile = False
Dim expflt As ExportFilter
Set expflt = doc1.ExportEx("H:\TSW\737PER.wmf", cdrWMF, cdrAllPages, expopt)
With expflt
.TextAsCurves = False
.PlaceableHeader = True
.Finish
End With
End Sub
hajosch ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Ads
Antworten


Aktive Benutzer in diesem Thema: 1 (Registrierte Benutzer: 0, Besucher: 1)
 
Themen-Optionen
Ansicht

Forumregeln
Es ist Ihnen nicht erlaubt, neue Themen zu verfassen.
Es ist Ihnen nicht erlaubt, auf Beiträge zu antworten.
Es ist Ihnen nicht erlaubt, Anhänge anzufügen.
Es ist Ihnen nicht erlaubt, Ihre Beiträge zu bearbeiten.

vB Code ist An.
Smileys sind An.
[IMG] Code ist An.
HTML-Code ist An.
Gehe zu


Alle Zeitangaben in WEZ +1. Es ist jetzt 15:42 Uhr.


Partner und Co.
Access-Paradies -Alles rund um die Datenbank Microsoft Access -Code -Programme-Tools -Tipps   Kostenlose Tipps & Tricks, Downloads und Programme   www.kulpa-online.com - Tipps - Tricks - Tutorials - Meinungen - Downloads uvm...   vb@rchiv · Willkommen in der Welt der VB Programmierung   Access-Garhammer - Hier finden Sie jede Menge Beispiel-Datenbanken zu Access und mehr ...   mcseboard.de   Die Top Seite für Excel-VBA-Makros uvm.

Powered by: vBulletin Version 3.6.2 (Deutsch)
Copyright ©2000 - 2017, Jelsoft Enterprises Ltd.

Copyright ©2000-2010 MS-Office-Forum. Alle Rechte vorbehalten.
Copyright ©Design: Manuela Kulpa ©Rechte: Günther Kramer
Eine Verwendung der Inhalte in anderen Publikationen, auch auszugsweise,
ist ohne ausdrückliche Zustimmung der Autoren nicht gestattet.
Beachten Sie bitte auch unsere Nutzungsbedingungen.