BildName per Makro auslesen

[stefanak]

Hallo zusammen,

ich habe einige *.jpg Bilder in ein Tabellenblatt eingebunden und dann dem jeweiligen Bild ein Makro zugewiesen.
Jetzt suche ich nach einer Möglichkeit mit dem Makro den Namen des Bildes auszulesen, welches gerade geklickt wurde.
Hat jemand dazu eine Idee?

Arbeite mit OOo 3.2.1 auf einer WIN7Pro Plattform.

Vielen Dank
Stefan


Moderation,4: in zuständiges Unterforum verschoben

[stefanak]

Hm, schade. Das hilft mir nicht weiter.
Ich habe die einzelnen Sub´s erst gelöscht. Grund ist eine nicht mehr benötigte Funktion.
Daraufhin suche ich nach einer übergreifenden Lösung.

Trotzdem, Danke.
Stefan

[Axel Richter]

Hallo Stefan,

mit normalen Shapes bzw. Bildern, denen ein Click-Makro zugewiesen wird, geht das nicht. Diese Makros bekommen beim Aufrufen kein Event-Objekt übergeben.

Es würde funktionieren mit Formular-Steuerelementen bspw. mit "Grafischen Schaltflächen". Deren Ereignis-Makros bekommen beim Aufrufen kein Event-Objekt übergeben. Die Makros sehen dann so aus:

Code: Alles auswählen

sub grafik_onclick(oEvent)
 oSource = oEvent.Source
 ...
end sub

oSource ist dann die "Grafischen Schaltfläche".

Dann müsstest Du aber die Bilder als solche einbinden.

viele Grüße

Axel

viele Grüße

Axel

[stefanak]

Hallo Axel,

ich habe mit diesem Event die Schaltflächen-Titel ausgelesen, daher brauchte ich nicht mehr so viele Sub´s .
Jetzt habe ich das gleiche mit den Bildern vor, und auch ausprobiert. Geht nicht, ich versuche mal den Code dazu zu fügen.

Code: Alles auswählen

Sub DtypButton( oBuEvt as Object)
rem - Objekt auslesen
set oButton = oBuEvt.Source
rem - Übergabe
Grund001
var10Table = 1
var20Zelle = oButton.Model.Label
ProfilEintragTabelle1
End Sub

Sub DtypPicture( oPiEvt as Object)
rem - Objekt auslesen
set oPicture = oPiEvt.Source
rem - Übergabe
Grund001
var10Table = 1
var20Zelle = oPicture.Model.Label
ProfilEintragTabelle1
End Sub

[Axel Richter]

Hallo,

Geht nicht

"Geht nicht" ist keine Fehlerbeschreibung. Welche Fehlermeldung in welcher Code-Zeile?

Jetzt habe ich das gleiche mit den Bildern vor

Wie ich schon schrieb, geht das mit normalen Bildern nicht, denn bei diesen bekommt das onClick-Makro kein Event-Objekt übergeben. Es funktioniert nur mit "Grafischen Schaltflächen". Das sind Formular-Steuerelemente, die Du so wie Deine Schaltfächen einbindest. Dazu in der Symbolleiste "Formular-Steuerelemente" Mal auf die Schaltfläche "Weitere Steuerelemente" klicken.

viele Grüße

Axel