Re: for/each followhyperlink address
From: David McRitchie (dmcritchie_at_msn.com)
Date: 03/13/04
- Next message: BSena: "Re: How to combine two sheets in order to display the data on Pivot Chart?"
- Previous message: David McRitchie: "Re: sendkeys and paste-special"
- In reply to: Don Guillett: "for/each followhyperlink address"
- Messages sorted by: [ date ] [ thread ]
Date: Fri, 12 Mar 2004 21:49:06 -0500
Hi Don,
I have an example to play all the .WAV files on my system
from a worksheet. It uses a column for selection/rejection/terminate
Fun Stuff
http://www.mvps.org/dmcritchie/excel/funstuff.htm
--- HTH, David McRitchie, Microsoft MVP - Excel [site changed Nov. 2001] My Excel Pages: http://www.mvps.org/dmcritchie/excel/excel.htm Search Page: http://www.mvps.org/dmcritchie/excel/search.htm "Don Guillett" <donaldb@281.com> wrote in message news:enll$LGCEHA.3848@TK2MSFTNGP11.phx.gbl... > Posted yesterday on the L list with no response so trying here. > > Not much to do today so listening to some music. xl2002. > I use something similar to this to play .mp3's from a double click event > using the typed name of the file. Now, I want to be lazy and have it play > more than one selection in a for/each loop. As usual it will play the > selection but when the song is finished I am still at wmp. > > The question is how do I play the next song in the selection? TIA > > C:\GordonLightfoot2\Gordon Lightfoot - Seven Island Suite.mp3 > C:\GordonLightfoot3\Gordon Lightfoot - Shadows.mp3 > C:\GordonLightfoot2\Gordon Lightfoot - She's Not The Same.mp3 > > Sub playselections() > For Each c In Selection > mc = Cells(c.Row, "e") > x = Right(Application.OperatingSystem, 4) > If x < 5 Then > cmd = "Start " & Chr(34) & mc & Chr(34) > Shell cmd 'works with xl97 > Else > Dim FullFileName As String > FullFileName = mc > ActiveWorkbook.FollowHyperlink Address:=FullFileName > End If > Next c 'song > End Sub > > > -- > Don Guillett > SalesAid Software > donaldb@281.com > > >
- Next message: BSena: "Re: How to combine two sheets in order to display the data on Pivot Chart?"
- Previous message: David McRitchie: "Re: sendkeys and paste-special"
- In reply to: Don Guillett: "for/each followhyperlink address"
- Messages sorted by: [ date ] [ thread ]
Relevant Pages
|