Hyperlink in macro

[kabebanaan]

Hallo,

Ik heb het volgende in een macro staan:

ActiveSheet.Shapes("WordArt 1").Select
ActiveSheet.Hyperlinks.Add Anchor:=Selection.ShapeRange.Item(1), Address:= _
"E:\Muzieklijsten\A 1 - 2 Pac - Better Dayz.b4s"
_____________________________________________

Nu wil ik de macro zo veranderen dat ik van de afbeelding (WordArt 1) een hyperlink aanmaak en dan kan bladeren om een muzieklijst aan te wijzen, die dan als hyperlink wordt geopend.

In dit voorbeeld zal er aan al mijn afbeeldingen de hyperlink "A 1 - 2 Pac - Better Dayz.b4s" worden aangemaakt. Ik wil dus kunnen kiezen.

Eigenlijk is het ongeveer hetzelfde als wanneer je een afbeelding wilt invoegen.
dan ziet het er zo uit:

ScreenUpdating = False
fileToOpen = Application _
.GetOpenFilename("JPEG-Afbeelding (*.jpg), *.jpg")
If fileToOpen <> False Then ActiveSheet.Pictures.Insert(fileToOpen).Select
__________________________________________

Nu zoiets eender voor een hyperlink.

Wie kan me daarbij helpen ?

 

[Ingrid B]

Ik weet niet met welk programma een bestand met extensie .b4s moet gestart worden, maar met deze code kan je een WAV-bestand starten vanuit Excel

Option Explicit

Declare Function sndPlaySound32 Lib "winmm.dll" Alias _
  "sndPlaySoundA" (ByVal lpszSoundName As String, _
  ByVal uFlags As Long) As Long

Sub test()
Dim Bestand
  Bestand = Application. _
    GetOpenFilename("Muzieklijsten (*.wav), *.wav")
  If Bestand <> False Then Call sndPlaySound32(Bestand, 0)
End Sub

 

[kabebanaan]

Ingrid ..... dat b4s is een muzieklijst die Winamp gebruikt, en kan zonder problemen door Excel verwerkt worden.

Zal ff in het kort uitleggen waarvoor ik het nodig ben.

Ik wil al mijn cd's zodanig archiveren dat ze zoveel mogelijk worden aangestuurd door macro's.

Een onderdeel daarvan is, dat ik een button maak waarop je kan klikken, zodat de gehele cd in winamp geladen wordt. Dit gebeurt door de hyperlink die in de button verwerkt zit .... deze start de muzieklijst.

In de macro die button kopieeren is geen probleem, alleen hoe kan ik die hyperlink (dmv de macro) aan die button koppelen.
Op één of andere manier zal ik toch moeten bladeren om de juiste muzieklijst op te geven.

Hoop dat het nu iets duidelijker is.
En dat er iemand met een oplossing komt natuurlijk.

 

[Ingrid B]

Is het dan iets als dit waarnaar je op zoek bent, eventueel in een lus verwerkt om verschillende Shapes te overlopen.

Sub test()
Dim Bestand
  Bestand = Application. _
    GetOpenFilename("Muzieklijsten (*.b4s), *.b4s")
  If Bestand <> False Then
    ActiveSheet.Shapes("WordArt 1").Select
    ActiveSheet.Hyperlinks.Add Anchor:=Selection.ShapeRange.Item(1), _
      Address:=Bestand
  End If
End Sub

 

[kabebanaan]

Heeej Ingrid ... geweldig bedankt.
Ben daar zeer blij mee en kom nu weer een stuk verder met m'n ontwerpje.

 

[kabebanaan]

Ingrid .... nog één vraagje.

Wil nu een ander iets wat er op lijkt.

Ik wil aan een afbeelding, in een macro, een sheet koppelen. Ook weer op zo'n manier dat ik kan bladeren en het betreffende blad kan aanwijzen.

Dus op dezelfde manier als het met de muzieklijsten ging.

Ben bennieuwd.

 

[Ingrid B]

Ik denk dat je nu probeert om het warm water terug uit te vinden.

Klik met de rechtermuistoets op de pijltjes naast de bladtabs (links onderaan het scherm), en je krijgt een lijst van alle (zichtbare) werkbladen.