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, 09: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.


Powered by phpBB modified by Przemo © 2003 phpBB Group