Zobacz temat - Makro które zaznacza obiekt na każdej stronie i dodaje mu

Corel FORUM
Forum użytkowników programów firmy Corel. Grafika wektorowa, rastrowa i obróbka zdjęć cyfrowych

Makra - Makro które zaznacza obiekt na każdej stronie i dodaje mu

morpheuz - 14 Luty 2017, 15:30
Temat postu: Makro które zaznacza obiekt na każdej stronie i dodaje mu

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 - 23 Luty 2017, 09:45
Temat postu: Label outline

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 - 3 Marzec 2017, 23:26

dzięki

rafalwit - 3 Kwiecień 2017, 08:25

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.