Quittungston generieren???

[Sonntagsflieger]

Hallo liebe Leute,

ich würde gerne einen kurzen Quittungston hören für den Fall, daß in den Zellen A1 bis A5 ein Wert > 0 eingetragen wird.

Hört sich ja erstmal einfach an, ich bekomme es aber nicht hin und wäre für Hilfe sehr dankbar. Muss ich das über VBA
als Makro programmieren oder geht das auch einfach als WENN > DANN Funktion direkt in den betreffenden Zellen?
Als Ton würde ich gerne die Möglichkeit haben aus verschiedenen Audiodateien das passende auszuwählen. Das Netz
habe ich schon durchstöbert, bin aber noch nicht so recht weitergekommen, da ich auch absolter Anfänger in der VBA
Programmierung bin.

Meine LO-Version ist 4.3.5.2, ich arbeite auf einem Macbook Pro unter OSX 10.7.5

Freue mich über Tipps,

viele Grüße.

[F3K Total]

Hi,
hier und hier hatten wir mal was ähnliches.
Gruß R

[Sonntagsflieger]

Jep. Weiss ich. Wie bereits geschrieben habe ich das Netz bereits durchforstet und bin nicht weitergekommen. Ich gehöre nicht zu denjenigen die zu faul sind ordentlich zu recherchieren bevor sie eine Frage in einem Fachforum stellen. Habe das Makro sowie Deine
beiden Funktionen aus dem von Dir verlinkten Thread bereits vorher ausprobiert > funktioniert bei mir nicht. Habe auch die entsprechende Sounddatei ganz brav im Libre Office template Ordner abgelegt wie beschrieben.

Viele Grüße.

[F3K Total]

Hallo,
habe es gerade ausprobiert, funktioniert bei mir auch unter LibreOffice.
Kann es sein, das bei dir keine Makros laufen dürfen?
Damit die Makros laufen, stellst du unter Extras/Optionen/LibreOffice/Sicherheit/Makrosicherheit mindestens die Stufe "Mittel" ein, dann wirst du beim Öffnen von Dokumenten gefragt, ob du Makros ausführen möchtest.
Gruß R

[karolus]

Hallo

Verknüpfe folgendes mit →Rechtsklick auf Tabellenreiter→Tabellenereignisse→Inhalt geändert

Code: Alles auswählen

Sub Main(event)
    adress = event.CellAddress
    If adress.Row < 5 And adress.Column = 0 And event.Value > 0 Then
        'shell("mplayer /usr/share/mint-artwork-cinnamon/sounds/unplug.oga")
        'schneller
        shell("play /usr/share/mint-artwork-cinnamon/sounds/unplug.oga")
    End If
End Sub

Das ``shell``-kommando musst du halt für dein OSX 10.7 selbst zusammenfrickeln, ich musste hier auch erst einen Player finden der es reibungslos von der Kommandozeile tut.

Karolus

[F3K Total]

So, hier eine funktionierende Beispieldatei, und ein Sound.

• Entzippe die Datei B.zip zu B.mp3 und kopiere sie in deinen Ordner user/template im Benutzerverzeichnis.
• Öffne die Datei Sound_Template.ods , lasse die Ausführung von Makros zu, sonst kann es nicht funktionieren
• Schreibe in Zelle A1 ein B

Gruß R

[Sonntagsflieger]

Kann es sein, das bei dir keine Makros laufen dürfen?

Nein, kann nicht sein. Makrosicherheit steht auf der niedrigsten Stufe.

Das ``shell``-kommando musst du halt für dein OSX 10.7 selbst zusammenfrickeln, ich musste hier auch erst einen Player finden der es reibungslos von der Kommandozeile tut.

Sorry, daß ich auf dem Schlauch stehe: wo ist denn in dem Makro der Name der Audiodatei? Ist das die Datei mit der Endung .oga?
Und diese Datei hast Du in ein Unterverzeichnis eines Players gepackt?

So, hier eine funktionierende Beispieldatei, und ein Sound.

Alles exakt so gemacht wie beschrieben. Die Sounddatei macht bei Eingabe von "B" in die Zelle A1 keinen Mucks.
Wenn ich versuche das Makro aus der Basic IDE auszuführen kommt folgende Fehlermeldung:

Fehlermeldung.png (146.87 KiB) 4241 mal betrachtet

Viele Grüße!

[F3K Total]

Scusi,
das Modul F3K habe ich gelöscht, musste einen Fehler geben.
Habe die Datei oben ausgetauscht, versuche es bitte noch einmal ...
Gruß R
EDIT: Tut mir leid, unter Linux mit LO bekomme ich es auch nicht hin, da wird der Service

Code: Alles auswählen

CreateUnoService("com.sun.star.media.Manager_GStreamer")

nicht erzeugt.
Läuft aber unter Linux mit AOO

[karolus]

Hallo

@F3K Total
auch deine neue Version tut hier nichts (Mint 17 )

Sorry, daß ich auf dem Schlauch stehe: wo ist denn in dem Makro der Name der Audiodatei? Ist das die Datei mit der Endung .oga?
Und diese Datei hast Du in ein Unterverzeichnis eines Players gepackt?

Da steht einfach hinter dem Leerzeichen der absolute Pfad zur Sounddatei ``/usr/share/..../unplug.oga``
Du musst das Ding nirgendwo hinkopieren.

und Nein - ich kann dir nicht erzählen ob und welches Kommando es für OS10 gibt|sich einrichten lässt.
Da OSX und die aktuellen Linux-derivate aber die gleichen UrGroßEltern haben ist es gut möglich das bei dir ebenfalls das Kommando ``play /pfad/zur/sounddatei.[ogg|wav|mp3]`` funktioniert.

[HeritzP]

Hallo,

mit LibreOffice funktioniert es nicht, unter OpenOffice schon.
OpenOffice wurde nachträglich installiert und hat einen anderen Pfad.
BS ist Linus Mint17.

Bei OpenOffice ist es /home/ich/.openoffice/4/user/template
Bei LipreOffice ist es /home/ich/.config/libreoffice/4/user/template


Gruß HeritzP