Hintergrundbild ausblenden & eine andere Grafik einblenden

[Björnhard]

Hallo und Guten Tag,

ich füge über "einfügen", "Bild", "aus Datei" meinen Briefkopf.jpg in meine Tabelle. calc ein
Eine 2.Grafik wird auch so eingefügt aber nicht in den Hintergrund sondern "weiter nach vorne".

Beim drucken würde ich gelegentlich gerne die Hintergrundgrafik ausblenden und nur die 2.Grafik drucken lassen.
ABER leider werden über "Format", "Seite", "Objekte/Grafiken" entweder alle oder gar keine Grafiken gedruckt.

"Weiter nach vorne" oder "hinten" hilft bisher auch nicht weiter.

Vielleicht ist ein Lösungsvorschlag ja leichter als das Problem zu beschreiben.
mit besten Grüßen

PS.: hier arbeitet StarOffice9 unter WinXP prof.

[F3K Total]

Hallo,
da ich mit OOo 3.3 unter W7 arbeite, kann ich nicht sicher sagen ob mein Vorschlag bei Dir mit StarOffice9 unter XP funktioniert, ist aber wahrscheinlich.
Eine ganz einfache Lösung habe ich nicht, aber mit zwei kleinen Makros geht es, siehe Anlage.
Augenblicklich wirken die Makros nur auf Bilder in der Tabelle1.
Natürlich mußt Du die Ausführung von Makros zulassen, sonst geht es nicht.
Einfach mal Grafik 1 anklicken. Dann Grafik 2 anklicken.
Wichtig ist im Kontext Menü des Bildes was ausgeblendet werden soll:
1.) Name= Grafik 1
2.) Makro zuweisen ... das Makro "ausblenden_Grafik1" zuzuweisen
und im Kontext Menü des zweiten Bildes:
1.) Makro zuweisen ... das Makro "einblenden_Grafik1" zuzuweisen

Viel Erfolg damit
Gruß R

[Björnhard]

Hallo
und danke ob der ausführlichen Antwort.
Die Crux besteht noch darin, daß ich nicht weiß wie ich Grafiken selektiv aus- oder einblenden soll.
Im "Navigator" werden nur "Dragmodus" und "Anzeige" angeboten.
Und beim bearbeiten von Grafiken gibt`s schein`s nur die Möglichkeiten mir "weiter nach vorn" etc.
Bei "Format" "Seite" kann man offenbar auch nur alle Grafiken aus- oder einschalten.

Da hab` ich vermutlich irgendwo irgendwas übersehen.

[F3K Total]

Hallo Björnhard,
funktioniert die angehängte Datei bei Dir?
Wenn ja, wäre es einfach die zwei Makros auf "selektiv" umzustellen.

Gruß R

[Björnhard]

Hi F3K Total,

mittlerweile konnte ich Dein Makro ausprobieren
leider nicht erfolgreich (vgl. Screenshot in der Anlage).

Kann ich den Befehl "visible=false" evtl. auch irgendwo manuell eingeben?

[F3K Total]

Hallo Björnhard,
unter OpenOffice 3.3 laufen die Makros, zumindestens bei mir.
Warum arbeitest Du mit Staroffice?

Eine manuelle Eingabe der "Sichbarkeit" habe ich noch nicht gefunden.
@ alle anderen:
Laufen die Makros bei Euch?
Wenn ja, mit welcher Version und welchem Betriebssystem arbeitet ihr?

Gruß R

[balu]

Hallo Leute,

ich bestätige die Aussage von Björnhard. Blos das bei mir gesagt wird:

Eigenschaft oder Methode nicht gefunden: Visible.

WinXP, OOo 3.2.1


Gruß
balu

[Björnhard]

Hallo F3K Total,

ich/wir könnten genauso gut mit OpenOffice arbeiten,
da der Mehrwert von StarOffice für uns nicht mehr auf Anhieb zu erkennen ist.

[F3K Total]

Hallo Balu,
ich vestehe nicht, warum das auch bei Dir nicht klappt. Bei mir funzen die Makros sowohl unter OOo 3.3/W7 als auch unter Lo 3.3.2/XP
Du kennst Dich doch aus, kannst Du mal mit Xray unter OOo 3.2.1 schauen, woran es liegt?

Gruß R

[balu]

Hallo R,

Du kennst Dich doch aus

Der Witz des Tages. Ich und mich auskennen
Bin doch selber noch eine Makro-Lehrling

Also, ich hab hier wohl auch noch als Portable eine 3.3.0. -{OOO330m19 (Build:6)}- Version, die aber ohne xray. Und dort funktioniert das Makro.

Und in der fest installierten 3.2.1 hatte ich xray mittels

Code: Alles auswählen

xray opage

aufgrufen und mal durchgeblättert. Ich konnte dort aber auch reineweg gar nichts finden was auf "Visible" hindeutet. Vielleicht hab ich ja auch xray falsch aufgerufen, jedenfalls konnte ich bei *ScPageObj* nichts finden.

So, mehr kann ich jetzt auch nicht sagen.


Gruß
balu

[turtle47]

Hallo Zusammen,

@ alle anderen:
Laufen die Makros bei Euch?
Wenn ja, mit welcher Version und welchem Betriebssystem arbeitet ihr?

Win7 OO.o 3.1.1 portable > Nein
Win7 OO.o 3.3.0 > Ja

Und in der fest installierten 3.2.1 hatte ich xray mittels
Code: Alles auswählen

Code: Alles auswählen

xray opage

aufgrufen und mal durchgeblättert. Ich konnte dort aber auch reineweg gar nichts finden was auf "Visible" hindeutet.

Richtig, denn Du hättest es vielleicht unter

Code: Alles auswählen

xray opage(i)

finden können, wenn es den vorhanden währe.
Das ist aber nicht bei allen Versionen sichergestellt.

Screen 3_1_1.jpg (38.63 KiB) 5228 mal betrachtet

Screen 3_3_0.jpg (40.49 KiB) 5228 mal betrachtet

Mir geht es da wie Michael:

OO und Starbasic geht mir seit einiger Zeit auf den Keks.
Und jetzt beende ich das Drama. Man hat mir mal bei Sun die Zukunft von OO gezeigt (2001) und die sah gut aus.
Inzwischen sehe ich die Zukunft: Es ist und bleibt ein Frickel-Produkt!
Alleine die Fehler in meinem System nach Umstellung auf 3.2 langen schon um zu kot...

Mir macht es auch einfach keinen Spass mehr.

Jürgen

[balu]

Ich grüße dich Jürgen .

Also mit

Code: Alles auswählen

xray opage(0)

sah die Welt gleich ganz anders aus. Aber was nutzt das, wenn ich jetzt nur bestätigen kann das der erneute aufruf von xray bei mir das anzeigt was dein erster Screenshot zeigt? Nämlich das fehlen von *Visible*.

Also zumindest ich Danke dir, dass Du die Screenis angehängt hast. Denn sonnst hätt ich mich dumm-und-dämlich nach *Visible* gesucht.


Greatings
balu

[F3K Total]

Hallo Turtle47,

ja, ist schade.

Trotzdem der Stand der Ermittlungen:
Staroffice 9 > Nein
Win7 OO.o 3.1.1 portable > Nein
XP OO.o 3.2.1 > Nein
Win 7 OO.o 3.2.0 portable > Nein

Win7 OO.o 3.3.0 > Ja
XP OO.o 3.3.0 portable > Ja
XP Lo 3.3.2 > Ja
Win7 Lo 3.3.2 portable > Ja

Es zeichnet sich ab, dass .Visible erst mit Versionen 3.3. gekommen ist.
Alternativ habe ich eine Lösung gefunden, die bei mir auch unter Win 7 OO.o 3.2.0 portable funktioniert, vielleicht auch bei Euren älteren Versionen?

Code: Alles auswählen

Sub ausblenden_Grafik1
opage=thisComponent.sheets(0).DrawPage
for i=0 to opage.count-1
if opage(i).name="Grafik 1" then oPage(i).Transparency=100
next i
End Sub

Sub einblenden_Grafik1
opage=thisComponent.sheets(0).DrawPage
for i=0 to opage.count-1
if opage(i).name="Grafik 1" then opage(i).Transparency=0
next i
End Sub

Gruß R

[Genesis_1985]

Hi,

auch wenn das Thema uralt ist, ich habe mit OO.o 3.2.0 und Win 7 die visible getestet und die Funktion wird nicht erkannt.
Über transparenz funktioniert es aber 1A.

Vielen Dank für den Tipp.

Gruß
Bjoern