| |
Corel FORUM
Forum użytkowników programów firmy Corel. Grafika wektorowa, rastrowa i obróbka zdjęć cyfrowych |
 |
Makra - macro nagrane w Corelu X4
michal.s - 24 Luty 2014, 13:53
Temat postu: macro nagrane w Corelu X4
Witam ponownie Wszystkich 
Czy mógłby mi ktoś pomóc w przepisaniu makra.
Makro przygotowałem w Corelu za pomocą opcji nagrywania.
Wszystko działa idealnie w nowo tworzonym pliku o nazwie Rysunek1.cdr, jeżeli jest jedna strona.
Jeżeli próbuję je zastosować w pliku z dwiema stronami to czynność stosuje zawsze na stronie 1.
Oto kod makra:
| Kod: | Sub TemporaryMacro()
' Recorded 2014-02-24
Dim OrigSelection As ShapeRange
Set OrigSelection = ActiveSelectionRange
Windows.FindWindow("Rysunek1").ActiveView.SetViewPoint 5.846457, 4.133858, 100
Dim doc1 As Document
Set doc1 = OpenDocument("\\DISKSTATION\aaa_WSPOLNE_PLIKI_aaa\PASERY\makro WK\oznaczenia.cdr")
doc1.CreateShapeRangeFromArray(ActiveLayer.Shapes(4), ActiveLayer.Shapes(3), ActiveLayer.Shapes(2), ActiveLayer.Shapes(1)).Copy
doc1.Close
ActiveDocument.Pages(1).Layers("Warstwa 1").Paste
Dim Paste1 As ShapeRange
Set Paste1 = ActiveSelectionRange
Paste1(2).AlignToShape cdrAlignBottom, OrigSelection(1), cdrTextAlignBoundingBox
Paste1(2).AlignToShape cdrAlignRight, OrigSelection(1), cdrTextAlignBoundingBox
Paste1(1).AlignToShape cdrAlignBottom, OrigSelection(1), cdrTextAlignBoundingBox
Paste1(1).AlignToShape cdrAlignLeft, OrigSelection(1), cdrTextAlignBoundingBox
Paste1(3).AlignToShape cdrAlignTop, OrigSelection(1), cdrTextAlignBoundingBox
Paste1(3).AlignToShape cdrAlignLeft, OrigSelection(1), cdrTextAlignBoundingBox
Paste1(4).AlignToShape cdrAlignTop, OrigSelection(1), cdrTextAlignBoundingBox
Paste1(4).AlignToShape cdrAlignRight, OrigSelection(1), cdrTextAlignBoundingBox
End Sub |
Wiem, że to drobiazg, niestety nie dysponuję taką wiedzą żeby je przerobić.
Czy mógłbym liczyć jak zawsze na Waszą pomoc 
michal.s - 24 Luty 2014, 14:09
Wyskakuje taki komunikat
|
|