| |
Corel FORUM
Forum użytkowników programów firmy Corel. Grafika wektorowa, rastrowa i obróbka zdjęć cyfrowych |
 |
CorelDRAW - grafika wektorowa - Makro do dzielenia na pojedyncze strony
ClubBase - 21 Sierpień 2015, 07:37
Temat postu: Makro do dzielenia na pojedyncze strony
Czesc
Makro do dzielenia wielostronnicowych plikow cdr na pojedyncze cdr...
Makro wyglada nastepujaco:
| Kod: |
Sub dzielenie()
' Description:
' Dzielenie wielostronnicowych plikow cdr na pojedyncze pliki cdr z zawartoscia tylko jednej strony
Dim l As Integer
For l = 1 To 230 ' Zakres do zmiany
ActivePage.Shapes.All.CreateSelection
ActiveSelection.Cut
Dim createopt As StructCreateOptions
Set createopt = CreateStructCreateOptions
With createopt
.Name = "Beznazwy-1"
.Units = cdrMillimeter
.PageWidth = 85# ' szerokosc generowanego pliku
.PageHeight = 170# ' wysokosc generowanego pliku
.Resolution = 300# ' rozdzielczosc, ogolnie zostaje bez zmian
.ColorContext = CreateColorContext2("sRGB IEC61966-2.1,ISO Coated v2 (ECI),Dot Gain 15%", BlendingColorModel:=clrColorModelCMYK)
End With
Dim doc1 As Document
Set doc1 = CreateDocumentEx(createopt)
ActiveLayer.Paste
Dim Paste1 As ShapeRange
Set Paste1 = doc1.SelectionRange
Dim SaveOptions As StructSaveAsOptions
Set SaveOptions = CreateStructSaveAsOptions
With SaveOptions
.EmbedVBAProject = True
.Filter = cdrCDR
.IncludeCMXData = False
.Range = cdrAllPages
.EmbedICCProfile = False
.Version = cdrVersion14
.KeepAppearance = True
End With
doc1.SaveAs "C:\TEMP\0" & l & ".cdr", SaveOptions
doc1.Close
ActiveDocument.Pages(1).Delete
Next l
End Sub
|
U mnie dziala jak nalezy, kopiujac makro na innego kompa (ta sama wersja corela, w tym wypadku x7) wywala sie przy:
.KeepAppearance = True
Jakis pomysl co zrobic by dzialalo na innych stanowiskach? podejrzewam ze mam cos nagrzebane w ustawieniach domyslnych corela i to jest powodem. Ewentualnie moze ktos dysponuje makro do dzielenia na pojedyncze cdr?
Z gory mowie ze makro domyslnie wystepujace w corelu (file converter) nie dziala, przy niektorych plikach (dosc duze zlozenia z duza iloscia elementow) makro po prostu sie wysypuje...
ClubBase - 25 Sierpień 2015, 08:39
Jakies wiesci?
|
|