Wenn Funktion Alarmton

[F3K Total]

Hi,
du kannst dir eine eigene function schreiben:

Code: Alles auswählen

function WENNBEEP(CELL,Formula)
    if CELL = Formula then beep
End function

siehe Beispiel
HTH R

[F3K Total]

Ich liebe es, man reicht den kleinen Finger ...
Wieso überlegst Du dir Deine Frage nicht von vorneherein vollständig? Dieses "Nachlegen" ist echt nervig.
Such nach:

Code: Alles auswählen

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

und bastel dir deine function selber.
R

[F3K Total]

Welchen Typ von Audio-Datei möchtest Du verwenden?
R

[F3K Total]

Ja, das muss man schon wissen.
Soll die Datei "neben" der Calc Datei, im selben Ordner liegen?
R

[F3K Total]

Nun gut,
hier eine Beispieldatei.
Sie hat die function IF_SOUND() mit drei Parametern, Beispiel:

Code: Alles auswählen

=IF_SOUND(A1;"B";"B.mp3")

bedeutet: Wenn Zelle A1 den Text B enthält, spiele den Sound mit dem Namen B.mp3, der sich in deinem Benutzerverzeichnis im Ordner Template befindet. Geht auch mit Zahlen, dann ohne Anführungsstriche um den 2. Parameter
HTH R

[F3K Total]

Ich konnte bisher leider nicht mein benutzerverzeichnis finden; auf die beschriebene Weise finde ich es nicht.

Welches Betriebssystem hast Du?
R

[Stephan]

das Makro:
http://calc-info.de/makros.htm#benutzerverzeichnis

sollte das Benutzerverzeichnis anzeigen (auch für Apache OpenOffice, LibreOffice)


Gruß
Stephan

[F3K Total]

... bzw mir bitte das passwort geben?

Nein kann ich nicht, denn du wärst sicher sauer, wenn du es lesen würdest ...
Darum hier die fehlenden Makros:

Code: Alles auswählen

global oPlayer1

Sub InitSounds(sSound1 as string)
     dim oPlayer as Object
     If GetGuiType() = 1 Then
         oSounMgr = CreateUnoService("com.sun.star.media.Manager_DirectX")
     Else
         oSounMgr = CreateUnoService("com.sun.star.media.Manager_GStreamer")
     End If
     If NOT IsNull(oSounMgr) Then
        If fileexists(sSound1) Then
            oPlayer1 = oSounMgr.createPlayer(sSound1)
            oPlayer1.setPlaybackLoop(False)
            oPlayer1.setMediaTime(0.0)
            oPlayer1.start()
        End If
     End If
End Sub

function F_get_Sound(Sound1)
    dim args(0)
    oAppl_url = CreateUnoService("com.sun.star.util.PathSettings")
    sTemplateUrl = oAppl_url.Template_Writable(0)
    F_get_Sound = sTemplateUrl & "/" & Sound1
end function

HTH R