Live-Forum - Die aktuellen Beiträge
Datum
Titel
23.04.2024 22:08:10
Auflisten in Spalte VBA
23.04.2024 21:33:46
Nur farbige/nicht farbige Zellen markieren
23.04.2024 21:29:56
Bestimmte Zellen auf andere Arbeitsblätter kopieren
23.04.2024 17:41:19
Link erstellen mit Formel oder VBA?
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
340to344
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
340to344
340to344
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Hyperlink zu Audiodatei

Hyperlink zu Audiodatei
18.11.2003 20:54:32
maxs
Hallo VBA-Profis,
Habe mir mit Excel eine Audio-CD Verwaltung erstellt, bei der auch Hyperlinks zu Audio-files (mp3 oder wma) hergestellt werden.
Alles funktioniert bestens, sobald ich auf eine Hyperlink klicke, startet Windows Media Player (WMP), bzw im schon geöffneten WMP wird der angeklickte Song abgespielt.

Was mich stört: ich möchte die Excel-Anwendung nicht verlassen, das Excel-Fenster soll im Vordergrund bleiben, es soll lediglich der Song gespielt werden.

Habe schon verschiedenes mit dem »Worksheet_FollowHyperlink -Ereignis« versucht, ohne eine Lösung zu finden.

Gibt es eine Lösung, bei der nach dem Start der Audiodatei wieder Excel in den Vordergrund geholt wird?

mfg
maxs

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Hyperlink zu Audiodatei
18.11.2003 21:24:36
Nepumuk
Hallo Maxs,
versuch es mal so:


Option Explicit
Private Declare Function FindWindow Lib "User32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function SetWindowPos Lib "User32" (ByVal hWnd As Long, ByVal hWndInsertAfter As Long, ByVal X As Long, ByVal Y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long) As Long
Private Sub Worksheet_FollowHyperlink(ByVal Target As Hyperlink)
Call SetWindowPos(FindWindow("xlMain", vbNullString), -1, 0, 0, 0, 0, 83)
Call SetWindowPos(FindWindow("xlMain", vbNullString), -2, 0, 0, 0, 0, 83)
End Sub


Code eingefügt mit: Excel Code Jeanie

Gruß
Nepumuk
Anzeige
AW: Hyperlink zu Audiodatei
18.11.2003 21:40:08
maxs
Danke Nepomuk für den Versuch,
Leider ändert sich nichts daran, dass zum Windows Media Player gewechselt wird
AW: Hyperlink zu Audiodatei
18.11.2003 21:46:53
Nepumuk
Hallo Maxs,
das dachte ich mir fast, füg mal diese Funktion mit ein:

Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)

und in die Ereignisroutine als ersten Befehl:

Sleep 2000

damit wartet Excel 2000 Millisekunden bevor es umschaltet. Wenn es funktioniert, dann musst du probieren, wie lange die Zeit sein muss. Wenn nicht, dann müsste ich wissen, welchen Betriebssystem du verwendest.
Gruß
Nepumuk
AW: Hyperlink zu Audiodatei
18.11.2003 22:09:00
maxs
Danke Nepomuk, es funktioniert
Habe jetzt Sleep 10 eingestellt

lg
maxs
Anzeige

301 Forumthreads zu ähnlichen Themen

Email per Hyperlink aus Zelle mit Formel
Frank

Hallo und schönen guten Morgen zusammen,
neues kleines Problem!
Ich möchte mit Hilfe eines Hyperlink per klick eine Email öffnen!
Soweit so gut und kein Problem!
Jetzt steht die Email Adresse aber nicht wirklich in der Zelle sondern diese hole ich mir per
Sverweises aus ein...
21.08.2008 09:22:45
Thread-ID: 1003367
3 Beiträge
Anzeige
Dateiinhalt mit Hyperlinks in Excel ausgeben
PaMa

Guten Tag zusammen
Ich hoffe, Ihr VBA - Profis könnt mich hier bei meiner aktuellen Problemstellung unterstützen.
Und zwar hab ich folgendes vor:
in einer Excel - Arbeitsmappe hab ich einen Knopf
Wenn ich auf diesen Knopf klicke so soll folgendes geschehen:
- Der Dateiinhalt...
23.01.2009 07:15:00
Thread-ID: 1042795
4 Beiträge
Tabelle per Mail senden
And

Hallo,
Habe aus dem Archiv folgenden Code:
Sub Blattsenden() Sheets("Tabelle1").Copy On Error Resume Next ActiveWorkbook.SendMail Recipients:="Otto@gmx.de", Subject:="Testmail" Application.DisplayAlerts = False ActiveWindow.Close Application.DisplayAlerts = True If Err.Number > 0 T...
19.03.2009 11:01:22
Thread-ID: 1061745
9 Beiträge
Anzeige
Datei mit Hyperlink
anke2245

Hallo, lieber Excelfreunde,
ich möchte eine Datei mit Hyperlinks per mail weitergeben.Die Datei kommt an, es fehlt aber der Hyperlink.
Mache ich etwas falsch, oder geht das grundsätzlich nicht ?
Danke " Anke "
28.04.2009 17:14:23
Thread-ID: 1071688
9 Beiträge
Tabellenblatt per Mail versenden
Sandra

Hallo zusammen,
vor lauter Bäumen habe ich nix im Archiv gefunden (irgendetwas passte nie). Vielleicht hat ja jemand von Euch ein derartiges Makro schon einmal gemacht.
Ich möchte aus einer Datei ein Makro starten, was folgendes macht:
Ein Tabellenblatt dieser geöffneten Datei soll...
12.06.2009 15:45:33
Thread-ID: 1081014
4 Beiträge
sendmail mit Link zu Datei klappt nicht
chris

Hallo VBA Profis,
ich habe unten einen VBA code mit dem ich gerne eine Mail aus Excel schicken möchte.
das klappt auch wunderbar.nur leider bekomme ich es nicht hin das es mir den Pfad zur Datei als Link in die Mail einfügt so das Sie der empfänger nur noch anklicken muss.Kann mir jeman...
10.09.2009 13:11:31
Thread-ID: 1101700
2 Beiträge
Arbeitsmappe per Mail versenden
massimo17

Hallo,
ich möchte eine Arbeitsmappe per Mail versenden.
Folgendes Vorgehen ist geplant:
1. Der User erhält einen Fragebogen in EXCEL-Format zum ausfüllen
2. Nach erfolgreichem ausfüllen, soll er auf einen Knopf drücken der die ausgefüllte Mappe versendet
Bei mir tritt das P...
10.11.2009 16:52:09
Thread-ID: 1115943
4 Beiträge
Tabelle per Mail versenden
liese

Hallo,
habe folgendes Anliegen.
Ich möchte gerne, wenn eine Mappe geöffnet wird,
eine bestimmte Tabelle im Hintergrund mit dem
Standardmailprogramm ohne Rückfragen versenden.
Wie geht das.
Danke schon mal für Hilfe.
Viele Grüsse
Anneliese
01.01.1970 00:00:00
Thread-ID: 1139930
37 Beiträge

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
2
2
3
8
1
8
3
1
3
36
3
1
2
3
2
2
6
6
4
3
1
3
2
5
3