Deze VBA-zelfstudie behandelt de verschillende manieren om met hyperlinks in VBA te werken.
VBA-hyperlinks
Met VBA kunt u hyperlinks toevoegen, hyperlinks verwijderen, e-mails maken met hyperlinks en bestanden openen met hyperlinks in VBA.
Een hyperlink toevoegen met VBA
De Hyperlinks.Add-methode voegt een hyperlink toe aan een cel met behulp van VBA.
De volgende code voegt een hyperlink toe aan cel A1:
| 123 | Sub AddHyperlinkToCell()ActiveSheet.Hyperlinks.Add Range("A1"), Address:="https://www.automateexcel.com/excel/"Einde sub |
Het resultaat is:
Tekst toevoegen aan weergave met VBA
U kunt met VBA nette gebruiksvriendelijke tekst toevoegen aan uw hyperlink. Als u de werkbladfunctionaliteit had gebruikt, zou u een hyperlink invoegen en vervolgens een tekst toevoegen om in het daarvoor bestemde dialoogvenster weer te geven.
De onderstaande code laat zien hoe u tekst kunt toevoegen aan uw hyperlink met behulp van VBA:
| 123 | Sub TextToDisplayForHyperlink()ActiveSheet.Hyperlinks.Add Range("A1"), Address:="https://www.automateexcel.com/excel/", TextToDisplay:="Excel automatiseren"Einde sub |
Het resultaat is:
Een schermtip toevoegen met VBA
U kunt een ScreenTip aan uw hyperlink toevoegen die de kijker zal zien wanneer hij over de link zweeft.
De onderstaande code laat zien hoe u een ScreenTip aan uw hyperlink kunt toevoegen met VBA:
| 123 | Sub ScreenTipVoorHyperlink()ActiveSheet.Hyperlinks.Add Range("A1"), Address:="https://www.automateexcel.com/excel/", TextToDisplay:="Automate Excel", ScreenTip:="Dit is de link voor Automate Excel"Einde sub |
Het resultaat is:
Een hyperlink verwijderen met VBA
De methode Hyperlinks.Delete kan worden gebruikt om een hyperlink uit een cel te verwijderen.
De volgende code verwijdert de hyperlink uit cel A1 en de tekst in de cel.
Merk op dat alleen het verwijderen van de hyperlink de tekst zelf niet verwijdert, daarom moet u, als u de tekst wilt verwijderen, ook de Clear-methode gebruiken.
| 1234 | Sub Verwijder HyperlinkinCell()Bereik ("A1").Hyperlinks.VerwijderenBereik ("A1"). WissenEinde sub |
Alle hyperlinks in een werkblad verwijderen
U kunt ook alle hyperlinks in uw werkblad verwijderen met de methode Hyperlinks.Delete.
Met de volgende code worden alle hyperlinks in het eerste werkblad in uw werkmap verwijderd:
| 123 | Sub RemoveAllHyperlinksInASheet()Dit Werkboek. Bladen(1).Hyperlinks.VerwijderenEinde sub |
Volg een website-hyperlink met VBA
Met de volgende code kunt u een websiteadres openen in een nieuw venster in uw browser met behulp van de FollowHyperlink-methode in uw werkmap:
| 123 | Sub VolgenHyperlinkVoorWebsite()ActiveWorkbook.FollowHyperlink Address:="https://www.automateexcel.com/excel", NewWindow:=TrueEinde sub |
Volg een hyperlink naar een map op uw schijf
De volgende code opent een map met de naam ExcelFiles op het bureaublad met behulp van de FollowHyperlink-methode:
| 123 | Sub VolgenHyperlinkForFolderOnDrive()ActiveWorkbook.FollowHyperlink Address:="C:\Desktop\ExcelFiles"Einde sub |
Volg een hyperlink naar een bestand op uw schijf
De volgende code opent een Excel-bestand met de naam WorkbookOne in de map ExcelFiles op het bureaublad met behulp van de FollowHyperlink-methode:
| 123 | Sub VolgenHyperlinkForFile()ActiveWorkbook.FollowHyperlink Address:="C:\Desktop\ExcelFiles\WorkbookOne.xlsx", NewWindow:=TrueEinde sub |
Ga naar een cel in een ander blad in dezelfde werkmap
U kunt een hyperlink naar een cel in het ene blad toevoegen die u naar een ander blad brengt, in dezelfde werkmap met VBA. Stel dat u zich op Blad1, cel A1 van uw werkmap bevindt en u een hyperlink naar Blad2, cel B2 van dezelfde werkmap wilt invoegen, kunt u hiervoor de eigenschap SubAddress gebruiken.
De volgende code laat zien hoe u dit doet:
| 123 | Sub Ga naar een andere cel in een ander blad in hetzelfde werkboek ()ActiveSheet.Hyperlinks.Add Range("A1"), Address:="", SubAddress:="'" & Sheet2.Name & "'!B2", TextToDisplay:="Klik hier om naar blad 2 te gaan, cel B2 van de zelfde werkboek"Einde sub |
Toon alle hyperlinks in een werkblad
U kunt de verzameling hyperlinks openen en alle hyperlinks in uw werkblad weergeven in de Tussenvenster in de VBA-editor. U moet eerst op . drukken CTRL+G op je toetsenbord of ga naar Weergave>Tussenvenster in de VBE-editor om het tussenvenster te bekijken.
De volgende code laat zien hoe u de hyperlinks in uw werkblad in het tussenvenster kunt bekijken:
| 1234567891011 | Sub ShowAllTheHyperlinksInTheWerkblad()Dim ws als werkbladStel ws = ThisWorkbook.Sheets(1) inVoor elke link In ws.HyperlinksDebug.Print lnk.AdresVolgende linkEinde sub |
De resultaten worden weergegeven in het tussenvenster.
Alle hyperlinks in een werkmap weergeven
U hebt toegang tot de verzameling hyperlinks om door alle hyperlinks in uw werkmap te bladeren en deze in een berichtenvenster weer te geven.
De volgende code laat zien hoe u dit doet en gebruikt een geneste lus om dit te bereiken:
| 1234567891011 | Sub ShowAllTheHyperlinksInTheWorkbook()Dim ws als werkbladFor Each ws In ActiveWorkbook.WorksheetsVoor elke link In ws.HyperlinksMsgBox lnk.AdresVolgende linkVolgende wsEinde sub |
De FollowHyperlink-methode gebruiken om e-mails te maken
U kunt ook e-mails maken met behulp van de FollowHyperlink-methode.
De onderstaande code laat zien hoe u e-mails kunt maken met behulp van de FollowHyperlink-methode in VBA:
| 12345678 | Sub SendEmailUsingHyperlink()MsgLink als string dimmenmsgLink = "mailto:" & "[email protected]" & "?" & "subject=" & "Hallo" & "&" & "body=" & "Hoe gaat het?"ActiveWorkbook.FollowHyperlink (msgLink)Einde sub |
Het resultaat is:
Een hyperlink toevoegen aan een AutoVorm in Excel
U kunt een hyperlink toevoegen aan een Autoshape in Excel, zodat wanneer de gebruiker op de vorm klikt, deze naar een websiteadres wordt geleid.
De volgende code maakt een afgeronde rechthoek, voegt de tekst toe aan de rechthoek en voegt een hyperlink toe aan de rechthoek:
| 12345678910111213 | Sub toevoegen van AHyperlinkToAShape()Dim myShape als vormStel myDocument = Worksheets ("Blad1") inStel myShape = myDocument.Shapes.AddShape in (msoShapeRoundedRectangle, 100, 100, 90, 30)Met myShape.TextFrame.Characters.Text = "Excel automatiseren"Eindigt metActiveSheet.Hyperlinks.Anker toevoegen:=myShape, Adres:="https://www.automateexcel.com/excel"Einde sub |
Het resultaat is:
De hyperlinkformule in een cel invoegen met VBA
Laten we zeggen dat je een berichttitel hebt in cel A4 en een berichtlink in cel B4, zoals weergegeven in de onderstaande afbeelding.
Een snelle herinnering aan de syntaxis van het werkblad Hyperlink-formule is:
HYPERLINK(link_locatie, [vriendelijke_naam])
link_location - Dit is de link naar het document, bestand, plaats in de werkmap of online site.
vriendelijke naam - (Optioneel) - De tekst of numerieke waarde die in de cel wordt weergegeven.
In cel C4 wil je de hyperlink toevoegen met een vriendelijke tekst om weer te geven, nu zou je normaal gesproken de formule =HYPERLINK(B4,A4) in C4 invoeren om het volgende te krijgen:
U kunt in plaats daarvan VBA gebruiken om hetzelfde resultaat te bereiken en deze formule in de cel invoegen op Blad1 met de volgende code:
| 123 | Sub InvoegenHyperlinkFormuleInCell()ActiveWorkbook.Worksheets("Blad1").Bereik("C4").Formula = "=hyperlink(B4,A4)"Einde sub |
Een hyperlink toevoegen aan een knop in Access
Met VBA kunt u ook in Access met hyperlinks werken. Laten we zeggen dat we een knop op een formulier hebben en wanneer de gebruiker op die knop klikt, willen we dat ze naar een website worden geleid. Een manier om dit te doen, is via de Application.FollowHyperlink-methode.
We hebben ons voorbeeldformulier met een knop genaamd buttonOne hieronder weergegeven.
De code voor deze knop zou zijn:
| 12345 | Privé Sub-knopOne_Click()Application.FollowHyperlink ("https://www.automateexcel.com/excel/")Einde sub |
Een hyperlink maken van een selectie in Word
U kunt ook met hyperlinks werken in Word VBA.
Laten we zeggen dat we tekst hebben in Woord met de tekst "Klik hier om naar de Automate Excel-website te gaan", die is geselecteerd zoals hieronder wordt weergegeven.
Om van deze tekst een hyperlink te maken met VBA, kun je de volgende code gebruiken:
| 123 | Private Sub TurnASelectionIntoAHyperlink()ActiveDocument.Hyperlinks.Add Anchor:=Selection.Range, Address:="https://www.automateexcel.com/excel/", ScreenTip:="Klik hier alstublieft", Target:=NewWindowEinde sub |
Het resultaat is:
