OpenOffice.info

LayerName

LayerID 

"vorne","hinten"

Update.

Statt
[code]
LayerName
[/code]
kann man auch
[code]
LayerID
[/code]nehmen. Und in diesem Falle anstatt
[code]
"vorne","hinten"
[/code]
dann einfach 1 für hinten, und 0 für vorne.

Gruß
balu

Hallo Karo.

[quote]
Allein die Tatsache das eine Ansichtsoption per Layername gesteuert wird ist bemerkenswert
[/quote]
Hab es aktuell noch nicht selber getestet, aber in meinem hiesigen Eröffnungsbeitrag hatte ich ja einen Quell-Code verlinkt, in dem das ja mittels *LayerID* und einem Wert gemacht wird. Vielleicht geht sa ja auch damit.


[quote]
daß die Schlüsselwörter fest in deutsch eincodiert sind ist schon witzig
[/quote]
Find ich auch. Zumal ja das so was von selten ist, dass man sich das glattweg ausdrucken und an die Wand hängen sollte :lol:


Gruß
balu

Sub toggle_Diagrammlayer

	oDoc = ThisComponent

	for dx= 0 to oDoc.Sheets().count()-1
		oDrawPage = oDoc.Sheets(dx).getDrawPage() 
		For nShape = 0 To oDrawPage.getCount() -1
			oShape = oDrawPage.getByIndex( nShape )
			If left( oShape.name, 8) = "Diagramm" Then
				oShape.layerName = iif (oShape.layerName = "vorne","hinten","vorne")
			EndIf
		Next
	next

End Sub

Hallo
[quote]der Code dürfte wohl wegen der Verwendung "vorne" und "hinten" nur in deutscher OOo laufen, oder[/quote]
Komischerweise funktioniert das ( für das bereits erstellte ) Beispielsdokument auch nach Umstellung der Benutzeroberfläche und des Gebietsschemas. ( Hier getestet mit LO )

Mein Optimierungsvorschlag:
[code]Sub toggle_Diagrammlayer

oDoc = ThisComponent

for dx= 0 to oDoc.Sheets().count()-1
oDrawPage = oDoc.Sheets(dx).getDrawPage()
For nShape = 0 To oDrawPage.getCount() -1
oShape = oDrawPage.getByIndex( nShape )
If left( oShape.name, 8) = "Diagramm" Then
oShape.layerName = iif (oShape.layerName = "vorne","hinten","vorne")
EndIf
Next
next

End Sub[/code]

edit:
@Balu
Allein die Tatsache das eine Ansichtsoption per Layer[b][u]name[/u][/b] gesteuert wird ist bemerkenswert, daß die Schlüsselwörter fest in deutsch eincodiert sind ist schon witzig.

Gruß Karo

Moin clag.

Recht Herzlichen Dank für dein letztes Beispiel. Das ist PERFEKT :lol:.
Ich bleibe aber trotzdem bei der 2 Dateientechnik, da dies für den weiteren Projektverlauf nur von Vorteil ist. Aber die neue Hintergrundtechnik wird trotzdem dort eingesetzt, weil einfach schöner ist :wink:.
Noch mal Danke für deine Hilfe :).

[quote]
was mir aber gerade noch auffällt,
der Code dürfte wohl wegen der Verwendung "vorne" und "hinten" nur in deutsch eingestellten OOo laufen, oder :?:
[/quote]
NÖÖÖÖ!!
Das ist ein Seltenheitsschmankerl. Ein deutsches Wort was in der englischen programmiersprache angewendet wird. Wusste ich bis vor kurzem auch noch nicht. Gucki mal dorti.
[url=http://www.oooforum.org/forum/viewtopic.phtml?t=68772&highlight=hinten&sid=7aacfdc7b2aeead2cda43e96e65682da]Image in BackGround[/url]
[url=http://www.oooforum.org/forum/viewtopic.phtml?t=66334&highlight=hinten&sid=7aacfdc7b2aeead2cda43e96e65682da]Need help regarding Image insertion in CALC[/url]
[url=http://www.oooforum.org/forum/viewtopic.phtml?t=61937&highlight=hinten&sid=7aacfdc7b2aeead2cda43e96e65682da]How to put a graphic to the background of spreadsheet[/url]

Gruß
balu

Sub totheBackground

 oDoc = ThisComponent
 oDocCtrl = oDoc.getCurrentController()     
 for dx=0 to 8
  oDrawPage = oDoc.getSheets().getByIndex(dx).getDrawPage() 
  oDocFrame = oDocCtrl.getFrame()
  nNumShapes = oDrawPage.getCount()
    for nShape = 0 To nNumShapes - 1
    oShape = oDrawPage.getByIndex( nShape )
    if oShape.name = "Diagramm"&dx+1 Then
     if oShape.layerName = "vorne" then
      oShape.layerName = "hinten" 
      else
      oShape.layerName = "vorne" 
     endif
   endIf
  next
next
End Sub

Hallo Karolus,

der "Rückwärtsgang" war noch eingelegt, weil ich vorher eine Methode angewendet hatte die die angesprochenen Tabellen jeweils eingeblendet hat, aber nach dem Durchlauf sollte wieder Tabelle1 sichtbar sein .. .

Jetzt ist das logischerweise nicht mehr nötig, weil das Makro die Diagramme nun ohne sichtbaren Aufruf der Tabellenblätter in den Hintergrund setzt.

Noch etwas geputzt, sieht der Code dann vielleicht so doch besser aus ;)

[code]Sub totheBackground

oDoc = ThisComponent
oDocCtrl = oDoc.getCurrentController()
for dx=0 to 8
oDrawPage = oDoc.getSheets().getByIndex(dx).getDrawPage()
oDocFrame = oDocCtrl.getFrame()
nNumShapes = oDrawPage.getCount()
for nShape = 0 To nNumShapes - 1
oShape = oDrawPage.getByIndex( nShape )
if oShape.name = "Diagramm"&dx+1 Then
if oShape.layerName = "vorne" then
oShape.layerName = "hinten"
else
oShape.layerName = "vorne"
endif
endIf
next
next
End Sub
[/code]

was mir aber gerade noch auffällt,
der Code dürfte wohl wegen der Verwendung "vorne" und "hinten" nur in deutsch eingestellten OOo laufen, oder :?:

Hallo
Clag, gibts einen bestimmten Grund dazu rückwärts über die Tabellenblätter zu iterieren?

Gruß Karo

Hallo Balu,

habe hier jetzt noch eine Variante die ohne jegliches ausblenden auskommt
und auch ohne merkliche Verzögerung oder Beeinflussung ...

[attachment=0]Diagramm_in_Hintergrund_47431b.ods[/attachment]

Hallo clag.

Yep, es sieht schon ganz anders aus.
Aber!
Mit gefüllten Datenblättern wird es dann schon wieder unschön.

Ich freue mich wirklich darüber das Du mir selbst als Anfänger geholfen hast. Zumal Du mir auch gute Denkanstöße geliefert hast. Danke dafür :D.

Jedoch habe ich mich für einen anderen Weg entschieden. Denn die Datei, so wie ich sie zu letzt angehängt hatte, soll später ohne dieses Settingsblatt auskommen, da es im täglichem Einsatz einfach störend und irreführend ist. Deshalb habe ich mich jetzt für eine 2-Dateien Version entschieden.

Die 1. Datei beinhaltet nur das Settingsblatt und das Makro.
Die 2. Datei hat nur ein Anleitungsblatt und das Blatt "01", welches schon mit Daten vorgefüttert ist.
Die 1. Datei wird geöffnet und dann führt man das Makro aus. Dieses öffnet die 2. Datei "HIDDEN" und führt dort all das aus was zuvor nur in der Einzelversion stattfand. Also Blätter kopieren, Diagramme erstellen und diese anschließend in den Hintergrund stellen. Und zu guter letzt wird dann die 2. Datei auch noch gespeichert.
Fertig.
Alles läuft schön automatisch ab, ohne irgendwelche störende Einflüsse. In der ausführenden Datei, Nr.1, erscheint ein Hinweistext das gearbeitet wird, und wenn fertig gibts eine Rückmeldung.

Und damit bin ich zufrieden :D.


Gruß
balu

nabend Balu,

versuch doch mal diese Variante ist schon erträglich find ich ......

[attachment=0]Diagramme-per-makro_OHNE Hintergrund setzen_ok.ods[/attachment]

Hallo clag,

nun, ich muss gestehen das ich nicht deutlich genug war. Also noch mal.

Es existiert 1 *leeres* Blatt, welches als Kopiervorlage dient.
Im Blatt "Settings".
Nach klick auf einen Button, und anschließender Sicherheitsabfrage, wird das Makro gestartet.

1.
Das leere Blatt wird kopiert.

2.
Jetzt wird ein Diagramm "aus der Luft gezaubert", besser gesagt, vom Makro erstellt.

3.
Nun wird das Diagramm per Makro in den Hintergrund gestellt.

4.
Je nach Auswahl im Blatt "Settings" werden die Schritte 1 - 3 insgesammt 28, 29, 30 oder 31 mal wiederholt.

In meinen reduzierten Beispieldateien, ohne besondere Daten, ist das nun besser zu sehen.
In der Datei [color=#FF0000]MIT Hintergrund setzen[/color] ist die Dauer des ausgeblendeten OOo-Fenster bei mir nur ca. 8 sec. Mit den richtigen Daten wirds dann natürlich schon etwas länger dauern, so wie schon vorher erwähnt.
In der Datei [color=#008000]OHNE Hintergrund setzen[/color] ist der ganze Prozess bei mir hier um ca. 2 sec schneller.

Wie Du siehst ist es ein extremer Unterschied ob schon existierende Diagramme anders angeodnet werden, oder wenn sie erst noch erstellt werden müssen.

[quote]
vielleicht kannst du das Zeichnen und Ausblenden trennen
[/quote]
Darum gehts ja nicht. Es geht mir darum das [color=#FF0000][b]KEIN Ausblenden vom aktivem Fenster stattfindet.[/b][/color]

Und folglich ist das Problem noch nicht beseitigt. Freue mich also weiterhin auf hilfreiche Unterstützung :D.


Gruß
balu

Hallo Balu,

mir ist nicht ganz klar wie das sonst in deinem Makro abläuft, ich habe jetzt mein Beispiel auf 9 Tabellen mit Diagrammen erweitert und setzte die in einer Schleife in den Hintergrund.
Bei normalen Ablauf flackert es ungefähr 1 Sek auf dem Schirm, wenn ich eine der Methoden zum lahmlegen der Bildschirmaktualisierung aktiviere ist es nur noch ein ganz kurzes Zwinkern 0,2 Sek und das Makro ist durch.

Es scheint doch, dass eher das generieren der Diagramme so viel Zeit kostet, vielleicht kannst du das Zeichnen und Ausblenden trennen :?:

[attachment=0]Diagramm_in_Hintergrund_47431a.ods[/attachment]

		myDoc = thisComponent
		myDocCtrl = myDoc.getCurrentController()
		oDrawPage = myDoc.getSheets().getByIndex(1).getDrawPage()
		myDocFrame = myDocCtrl.getFrame()
		oShape = oDrawPage( "LineChart" )		
		myDocCtrl.select( oShape )
		oDispatchHelper = createUnoService( "com.sun.star.frame.DispatchHelper" )
		oDispatchHelper.executeDispatch( myDocFrame, ".uno:SetObjectToBackground", "", 0, Array()

Hallo clag,

Danke dir, es hilft mir schon mal sehr weiter :D.
"Please insert cheezburger ..." :lol:


[b]ABER!!![/b]
Es ergibt sich nun ein anderes Problem.

Wenn ich den Code nehme
[code]
myDoc = thisComponent
myDocCtrl = myDoc.getCurrentController()
oDrawPage = myDoc.getSheets().getByIndex(1).getDrawPage()
myDocFrame = myDocCtrl.getFrame()
oShape = oDrawPage( "LineChart" )
myDocCtrl.select( oShape )
oDispatchHelper = createUnoService( "com.sun.star.frame.DispatchHelper" )
oDispatchHelper.executeDispatch( myDocFrame, ".uno:SetObjectToBackground", "", 0, Array()
[/code]
dann wird immer das Blatt in den Vordergrund geholt, wo grad das Diagramm in den Hintergrund gesetzt wird. Und in meinem Fall, wo so ca. 30 Blätter mit 30 Diagrammen erstellt werden, ist das nicht nur nervig, sondern auch Zeitaufreibend, so ca 52 sec.

Hab hier im Forum mal gesucht und etwas gefunden was dies Problem umgeht.
[url=http://de.openoffice.info/viewtopic.php?f=18&t=15397&hilit=hidden+calc&sid=578d2c3e6080d2bb4afcd86470810f18]Bildschirmaktualisierung in Calc abschalten[/url]
Jedoch gefällt mir dies Verfahren persönlich nicht besonders, da OOo komplett beim ausführen des Makros ausgeblendet wird, und nach Beendigung wieder angezeigt wird.

Okay, es sind dadurch *nur noch* ca. 17 sec bis der "Spuk" wieder vorbei ist, aber unschön ist es dennoch.

Ich weiß das man z.B. ein leeres Writer Dokument während dessen anzeigen lassen kann, aber vielleicht weiß ja mittlerweile einer von den anwesenden Spezialisten einen Ausweg. Und deshalb würde ich mich über weitere Hilfe doch sehr freuen. :D


Gruß
balu

Hallo Balu,

möglicherweise kann ich dir hier helfen wenn ich auch selbst nicht so der Basic Kenner bin,
aber es scheint so, dass das verschieben in den Hintergrund nur mit Dispatcher Hilfe machbar ist
(soweit ich das erforschen konnte)
hier habe ich etwas damit experimentiert und ich hoffe du kannst das für dich gebrauchen :)

[attachment=0]Diagramm_in_Hintergrund_47431.ods[/attachment]

       oShape = oSheet.createInstance( "com.sun.star.drawing.PolyPolygonShape" )
...
       oShape.LayerID = 1   'to background

Ein freundliches Hallo an alle. :D

Hab noch ein Problem mit meinem Diagramm. Und zwar möchte ich es in den Hintergrund stellen. Habe aber Null Ahnug wie. :oops:

Xray ist wohl installiert, aber funktioniert nicht so wie erhofft (Aufruf macht mir probleme). Und wenn ich Xray denn mal am laufen habe, finde ich z.B. bei *Drawpage* nix was mit Hintergrundanordnung, z.B. Arrange, zu tun hat. Kann aber auch sein das ich es übersehe.
Ach ja, SDK hab ich auch installiert. Kann aber sein das mir da auch ein Fehler unterlaufen ist.

Dann hatte ich hier, [url=http://user.services.openoffice.org/en/forum/viewtopic.php?f=20&t=26358&hilit=LayerID&sid=53526845deb82ca9b03ba5c7aa69dd7d#p121275]user.services.openoffice.org/en[/url], einen Code gefunden der ein Polygon zeichnet und es zum Schluß in den Hintergrund setzt.
Code-Auszug
[code]
oShape = oSheet.createInstance( "com.sun.star.drawing.PolyPolygonShape" )
...
oShape.LayerID = 1 'to background
[/code]
Also dachte ich, das ich auch nach dem Begriff *LayerID* suche, nachdem ich mit *Arrange* nicht weiter kam. Mein Versuch, das Diagramm mit LayerID in den Hintergrund zu setzen, scheiterte von vorn herein.

Meine weitere Suche bei http://www.oooforum.org/ bringt mich auch nicht weiter. Da auch dies in Englisch ist, und meine angewendeten Suchbegriffe zu viele Treffer liefern die durchzuarbeiten ich nicht imstande bin.

Eine Beispieldatei mit Diagramm-Makro findet ihr [url=http://de.openoffice.info/viewtopic.php?f=18&t=47401&sid=02bf8cf1d077f4c2c887c1d93237b44d]hier.[/url]

Würde mich wirklich sehr freuen, wenn ihr mir behilflich sein könntet.

Für eure Bemühungen bedanke ich mich schon mal.


Gruß
balu