• Privacywetgeving
    Het is bij Helpmij.nl niet toegestaan om persoonsgegevens in een voorbeeld te plaatsen. Alle voorbeelden die persoonsgegevens bevatten zullen zonder opgaaf van reden verwijderd worden. In de vraag zal specifiek vermeld moeten worden dat het om fictieve namen gaat.

Hyperlink in macro

Status
Niet open voor verdere reacties.

kabebanaan

Terugkerende gebruiker
Lid geworden
29 jun 2001
Berichten
1.204
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 ?
 
Laatst bewerkt:
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
Code:
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
 
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. ;)
 
Is het dan iets als dit waarnaar je op zoek bent, eventueel in een lus verwerkt om verschillende Shapes te overlopen.
Code:
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
 
Heeej Ingrid ... geweldig bedankt. ;)
Ben daar zeer blij mee en kom nu weer een stuk verder met m'n ontwerpje.
 
Laatst bewerkt:
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. :)
 
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.
 
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan