CorelDRAW automatizálás II. – VBA objektumkezelés

 

CorelDRAW automatizálás II. – VBA objektumkezelés, tömeges grafikai gyártás és professzionális sablonrendszerek

Bevezetés

Az előző fejezetben megismertük a CorelDRAW automatizálás alapelveit és a VBA szerepét. Ebben a részben tovább lépünk a professzionális automatizálási szintre, ahol már nem egyszerű makrókat készítünk, hanem teljes grafikai munkafolyamatokat gyorsítunk fel.

A cél:

• ismétlődő grafikai feladatok kiváltása,

• több száz vagy több ezer objektum kezelése,

• adatvezérelt grafikai gyártás,

• szabványosított sablonok létrehozása,

• automatikus exportálás,

• grafikai minőségellenőrzés.

---

CorelDRAW objektumkezelés VBA-val

A CorelDRAW minden grafikai elemet objektumként kezel.

Egy objektum lehet:

• téglalap,

• kör,

• görbe,

• szöveg,

• bitmap,

• PowerClip,

• csoport,

• effektus.

A VBA segítségével ezek:

• létrehozhatók,

• módosíthatók,

• kereshetők,

• törölhetők,

• exportálhatók.

---

Shape objektum alapjai

A Shape a CorelDRAW legfontosabb programozási objektuma.

Tulajdonságai:

• pozíció,

• méret,

• szín,

• körvonal,

• forgatás,

• döntés,

• név.

Példa:

Sub ShapeInfo()

Dim s As Shape

Set s = ActiveShape

MsgBox s.Name

End Sub

Eredmény:

Megjeleníti a kijelölt objektum nevét.

---

Objektumok bejárása

Gyakori feladat:

minden objektum vizsgálata.

Példa:

Sub ListShapes()

Dim s As Shape

For Each s In ActivePage.Shapes

    Debug.Print s.Name

Next s

End Sub

Felhasználás:

• objektumlista készítés,

• hibakeresés,

• tömeges módosítás.

---

Tömeges színmódosítás

Példa:

Minden piros objektum legyen kék.

Folyamat:

1. Objektumok végigjárása.

2. Szín ellenőrzése.

3. Új szín alkalmazása.

Felhasználás:

• arculatváltás,

• logófrissítés,

• sablonmódosítás.

---

Rétegek automatizálása

Nagy dokumentumoknál fontos a rétegkezelés.

Példa rétegek:

• Háttér

• Grafika

• Szöveg

• Segédvonalak

• Nyomdai elemek

---

Réteg létrehozása VBA-val

Sub CreateLayer()

Dim l As Layer

Set l = ActivePage.CreateLayer("Új réteg")

End Sub

---

Rétegek előnye automatizálásban

Lehetővé teszi:

• objektumok rendszerezését,

• zárolást,

• exportálást rétegenként,

• gyártási folyamatok elkülönítését.

---

Automatikus objektumelnevezés

Nagy projektekben fontos:

Példa:

LOGO_MAIN
TITLE_HEADER
IMAGE_PRODUCT
BG_COLOR

Előny:

• könnyebb keresés,

• VBA kezelés,

• hibakeresés.

---

Objektum keresés név alapján

Példa:

Set s = ActivePage.Shapes.FindShape("LOGO_MAIN")

Ez lehetővé teszi:

• logó automatikus cseréjét,

• sablonfrissítést.

---

Automatikus igazítás és elosztás

A korábban megismert Align és Distribute műveletek VBA-val is vezérelhetők.

Feladatok:

• középre igazítás,

• egyenletes térköz,

• rácsba rendezés.

Felhasználás:

• katalógusok,

• címkék,

• terméklisták.

---