Rajzok és bemutatók

Ez a fejezet bemutatja a rajzok makróvezérelt létrehozását és szerkesztését. Az első rész leírja a rajzok felépítését, beleértve a rajzokat tartalmazó alapvető elemeket. A második rész a bonyolultabb szerkesztési funkciókkal foglalkozik, például az objektumok csoportosításával, forgatásával és méretezésével.

A rajzok létrehozásáról, megnyitásáról és mentéséről bővebb információért lásd: 5. fejezet: A StarOffice-dokumentumokkal végzett munka.

A rajzok felépítése

A StarOffice nem korlátozza az oldalak számát egy rajzdokumentumban. Minden oldalt külön készíthetünk el. Szintén nincs korlátozás az egy oldalon szereplő rajzelemek számában.

Ezt némileg bonyolítják még a rétegek. Alapértelmezésben minden rajzobjektum tartalmazza az Elrendezés, a Vezérlőelemek és a Méretvonalak réteget, és minden rajzelem az Elrendezés rétegre kerül. Megvan a lehetőségünk új rétegek hozzáadására is. A rajzrétegekről további információkat a StarOffice Developer's Guide-ban találhatunk.

Oldalak

A rajzdokumentum oldalai a DrawPages listán keresztül érhetők el. Az egyes oldalak a nevük vagy számuk alapján érhető el. Ha a dokumentumban egy oldal van, és ennek neve Dia 1, akkor a következő példák azonosak.

1. példa:

Dim Doc As Object

Dim Page As Object



Doc = StarDesktop.CurrentComponent

Page = Doc.drawPages(0)

2. példa:

Dim Doc As Object

Dim Page As Object



Doc = StarDesktop.CurrentComponent

Page = Doc.drawPages.getByName("Dia 1")

Az 1. példában az oldalt a száma alapján éri el a program (a számozás 0-nál kezdődik). A második példában pedig a neve alapján, a getByName metódus használatával.

Dim sUrl As String, sFilter As String

Dim sOptions As String

Dim oSheets As Object, oSheet As Object



   oSheets = oDocument.Sheets



   If oSheets.hasByName("Link") Then

      oSheet = oSheets.getByName("Link")

   Else

      oSheet = oDocument.createInstance("com.sun.star.sheet.Spreadsheet")

      oSheets.insertByName("Link", oSheet)

      oSheet.IsVisible = False

   End If

Az előző példa egy olyan oldalobjektumot ad vissza, mely támogatja a com.sun.star.drawing.DrawPage szolgáltatást. A szolgáltatás a következő tulajdonságokkal rendelkezik:

• BorderLeft (hosszú egész) - a bal oldali keret századmilliméterben.

• BorderRight (hosszú egész) - a jobb oldali keret századmilliméterben.

• BorderTop (hosszú egész) - a felső keret századmilliméterben.

• BorderBottom (hosszú egész) - az alsó keret századmilliméterben.

• Width (hosszú egész) - az oldal szélessége századmilliméterben.

• Height (hosszú egész) - az oldal magassága századmilliméterben.

• Number (rövid egész) - oldalak száma (a számozás 1-től kezdődik), csak olvasható.

• Orientation (enumeráció) - az oldal tájolása (a com.sun.star.view.PaperOrientation enumerációnak megfelelően).

Ha ezeket a beállításokat módosítjuk, akkor az hatással lesz a dokumentum összes oldalára.

A következő példa a megnyitott rajzdokumentum oldalméretét 20 x 20 centiméterre állítja, az oldalmargót pedig 0,5 centiméterre:

Dim Doc As Object

Dim Page As Object



Doc = StarDesktop.CurrentComponent

Page = Doc.drawPages(0)



Page.BorderLeft = 500

Page.BorderRight = 500

Page.BorderTop = 500

Page.BorderBottom = 500



Page.Width = 20000

Page.Height = 20000