Corel FORUM

[morpheuz]

Problem jest taki

Dodaję numeracje stron za pomocą makra PangeNumbers (gdzieś tu na forum była o nim mowa) chciałbym móc dodać dodatkowo do każdej cyfry (na każdej stronie) obrys zewnętrzny o zadanej wartości "Przesunięcie obrysu" oraz narożnikach zaokrąglonych i zadanym kolorze czy da się to zautomatyzować.

Skrypt numeracji tworzy na każdej stronie obiekt tekstowy o nazwie lblPage więc wyobrażam sobie że mogło by to wyglądać następująco

1. zaznacz obiekt lblPage
2. dodaj obrys zewnętrzny + parametry
3. skocz do kolejnej strony (jeśłi jest powtórz skrypt,, jeśli nie ma zakończ skrypt)

czy ktoś może pomóc ?

[grzjanik]

Witam.

Kod:

Sub LabelOutline()     Const LabelName As String = "lblPage"     Dim p As Page, s As Shape, OrigSelection As ShapeRange     For Each p In ActiveDocument.Pages         p.Activate         Set s = p.FindShape(LabelName, cdrTextShape)             s.CreateSelection             Set OrigSelection = ActiveSelectionRange             OrigSelection.SetOutlineProperties Color:=CreateCMYKColor(100, 0, 0, 0)             OrigSelection.SetOutlineProperties 0.02, OutlineStyles(0)     Next p End Sub

Oczywiście parametry obrysu zmień na jakie potrzebujesz.

Pozdrawiam.

[morpheuz]

dzięki

[rafalwit]

dziękuję za tekst kodu. Ja się tez uczę makra w Corelu. Chciałbym zautomatyzować proces
w Corel Photopaint : 1. Dopasuj automatycznie , 2. Obróć opcjonalnie o 90 stopni.
3. wykadruj, zapisz, 4. wydrukuj.
Robiłem te czynności z grupą ponad 100 zdjęć dokumentów które potem drukowałem.