LO - Draw: Zugriff auf selektiertes Zeichnungsobjekt

[dimpflmoser]

Hallo zusammen,

für ein kleines Projekt benötige ich über LO-Basic Zugriff auf das aktuell selektierte Zeichnungsobjekt und dessen Eigenschaften.

Kann jemand ein kurzes Beispiel beisteueren, das zeigt, wie ich das hinbekomme.

Im voraus vielen Dank für eure Mühe

Helmut

[craig]

Hallo,

gleich vorweg:
Ich bin kein Profi was die Draw- oder Impressprogrammierung angeht.
Ich weiß allerdings, dass man für die eine oder andere Makro-Aktion auf die einzelnen Drawpages (Folien)
zugreifen muss, damit eine Änderung erfolgt. Besonders wenn dieses Makro in CALC oder WRITER greifen soll.
Zeichnet man ein Shape in CALC oder WRITER liegen diese auf der Dokumentebene.
Wenn hier die Shapes geändert werden sollen, müssen diese programmiertechnisch erst auf die DRAWPAGES-Ebene verschoben werden.
Dann sind die Properties, etc. der Shapes verfügbar, sonst erfolgt keine Änderung oder es kommt zu einer Fehlermeldung!

ein kleines Beispiel:

Code: Alles auswählen

REM  *****  BASIC  *****
Option Explicit

Sub Main
Dim oDoc as Object
Dim oSel as Object
Dim oSelShape as Object

	oDoc=ThisComponent
'MRI oDoc
	
	' aktuelle Selektion ermitteln
	oSel=oDoc.CurrentSelection
'MRI oSel

' Wenn kein Objekt markiert wurde, dann erfolgt hier eine
' Fehlermeldung: Objektvariable nicht belegt!
' Sonst: Zugriff auf aktuelle Selektion
	oSelShape=oSel.getByIndex(0)

' Mit MRI untersuchen, welche Properties(Eigenschaften) noch einstellbar sind
' MRI oSelShape

' Shape-Properties ändern:
With oSelShape
	.FillColor=Rgb(100,0,0) ' dunkelrot
	.LineColor=Rgb(0,0,0)	' schwarz	
	.RotateAngle=270		' Rotation
End With
End Sub

Gruß

Craig

[dimpflmoser]

Hallo Craig,

sorry für das späte Feedback.

Vielen Dank, das hat mir sehr weiter geholfen.

Leider finde ich keine Möglichkeit den Thread auf "gelöst" zu setzen

[craig]

Hallo,

vielen Dank für die Rückmeldung.

Es gibt hier keine Funktion um den Thread auf gelöst zu setzen.
Es genügt einfach vor Deinem Titel [gelöst] zu schreiben.

Gruß

Craig