for/each followhyperlink address
From: Don Guillett (donaldb_at_281.com)
Date: 03/12/04
- Next message: David McRitchie: "Re: freezing columns and rows"
- Previous message: Jeffrey Marcellus: "Array1 = Array2 ?"
- Next in thread: David McRitchie: "Re: for/each followhyperlink address"
- Reply: David McRitchie: "Re: for/each followhyperlink address"
- Messages sorted by: [ date ] [ thread ]
Date: Fri, 12 Mar 2004 12:51:19 -0600
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 begin 666 Don Guillett.vcf M0D5'24XZ5D-!4D0-"E9%4E-)3TXZ,BXQ#0I..D=U:6QL971T.T1O;@T*1DXZ M1&]N($=U:6QL971T#0I.24-+3D%-13I$;VX-"D]21SI386QE<T%I9"!3;V9T M=V%R90T*14U!24P[4%)%1CM)3E1%4DY%5#ID;VYA;&1B0#(X,2YC;VT-"E)% ?5CHR,# T,#,Q,E0Q.#4Q,3E:#0I%3D0Z5D-!4D0-"@`` ` end
- Next message: David McRitchie: "Re: freezing columns and rows"
- Previous message: Jeffrey Marcellus: "Array1 = Array2 ?"
- Next in thread: David McRitchie: "Re: for/each followhyperlink address"
- Reply: David McRitchie: "Re: for/each followhyperlink address"
- Messages sorted by: [ date ] [ thread ]
Relevant Pages
|
