Seite 1 von 1
Re: Sound oder Prg. ausführen
Verfasst: Di, 04.12.2007 21:50
von balu
Hallo K,
K, wie Kurz und Knackig?
Kann sein das ich jetzt was falsches sage, aber ich würde sagen das dass nicht geht. Weder Sound, noch Programm ausführen.
Könnte mir aber vorstellen das dies wohl mittels Makro realisierbar ist. Versuche es doch mal im Basic-Bereich.
Gruß
balu
Re: Sound oder Prg. ausführen
Verfasst: Mi, 05.12.2007 01:23
von Karolus
Hallo K
Ja das geht im Prinzip über eine Makrofunktion, die bsplw. so aussieht:
Code: Alles auswählen
function beepifkleiner(sollwert,wert)
if wert < sollwert then 'wenn der Wert kleiner als der Sollwert ist-
beep 'dann piepts
else ' wenn er aber >= dem Sollwert ist :
for i = 1 to fix(wert) 'Dann-
beep : wait 200 'piepts -
next ' öfters ;-)
' ! Gib bitte keine grossen Zahlen ein !
end if
End function
In einer Zelle rufst die Funktion wie eine normale Calc-funktion auf:
=beepifkleiner(A1;A2)
oder auch direkt mit Zahlenwerten:
=beepifkleiner(3;A5)
Möchtest in Abhängigheit von den Funktionskriterien ein externes Programm aufrufen, benutzt du anstelle von beep im Funktioncode die Zeilen:
Code: Alles auswählen
....
Dim start as object
start = createUnoService("com.sun.star.system.SystemShellExecute")
start.execute(ConvertToUrl("dein/pfad/zu/irgendwas"), "", 0)
.....
Gruß Karo