szit

Ez az oldal csak olvasható. Megtekintheted a forrását, de nem változtathatod meg. Ha úgy gondolod, hogy ez helytelen, kérdezd az Adminisztrátorokat!

[[oktatas:programozás:basic:basic_libreoffice|< Basic LibereOffice]]


====== Impress Basic makró ======

  * **Szerző:** Sallai András
  * Copyright (c) 2011, Sallai András
  * Szerkesztve: 2011
  * Licenc: [[https://creativecommons.org/licenses/by-sa/4.0/|CC BY-SA 4.0]]
  * Web: https://szit.hu
===== Példák =====


A dokumentum lekérése:
<code basic>
oDoc = ThisComponent
</code>


A dokumentum összes diájának lekérése:
<code basic>
oPages = oDoc.getDrawPages()
</code>

Lekérdezzük hány darab dia van:
<code basic>
pagesCount = oPages.getCount()
</code>

Kiíratjuk hány darab dia van:
<code basic>
MsgBox "Lapok száma" + pagesCount
</code>

Az első diát lekérjük:
<code basic>
oPage = oPages.getByIndex(0)
</code>	

<code basic>
' A getByName() csak akkor működik ha "Dia 1"-ről átneveztük másra a diát
oPage = oPages.getByName("Elso")
</code>


Vonalat rajzolunk a diára (lapra):
<code basic>
oShape = oDoc.createInstance("com.sun.star.drawing.LineShape")
oShape.LineColor = RGB( 0, 0, 255 )
oShape.LineWidth = 20
oPoint = oShape.Position
oPoint.X = 0
oPoint.Y = 800
oShape.Position = oPoint
oSize = oShape.Size
oSize.Height = 0
oSize.Width = 28000
oShape.Size = oSize	
oPage.add(oShape)
</code>