Corel FORUM

[michal.s]

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]

Wyskakuje taki komunikat

---

bez nazwy (kopia).png

Pobierz Plik ściągnięto 304 raz(y) 54.59 KB