Live-Forum - Die aktuellen Beiträge
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Hyperlink auf Grafik setzen

Forumthread: Hyperlink auf Grafik setzen

Hyperlink auf Grafik setzen
16.02.2009 13:12:00
Mark
Hallo Leute,
wie erstelle ich über VBA ein Hyperlink auf einer Grafik? Wenn ich die Grafik auswähle und dann sage, dass er in dem Sheet einen Hyperlink erstellen soll, kommt ein Fehler. Und wenn ich einen Hyperlink manuell auf die Grafik lege und das ganze aufzeichne zeigt er mir ein leeres Makro an, wenns fertig ist...
Hat jemand einen Tipp für mich?
Danke im Voraus,
Mark
Anzeige

7
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Hyperlink auf Grafik setzen
16.02.2009 13:17:00
Beverly
Hi Mark,

ActiveSheet.Hyperlinks.Add Anchor:=ActiveSheet.Pictures(1).ShapeRange.Item(1), Address:= _
"D:\Eigene Dateien\6A.gif"




Anzeige
AW: Hyperlink auf Grafik setzen
16.02.2009 13:26:00
Mark
Hey Karin,
danke für deine Antwort. Meine Grafik heißt "Ellipse 128". Wie kriege ich die denn mit deinem Code angesteuert?
Gruß, Mark
AW: Hyperlink auf Grafik setzen
16.02.2009 13:29:00
Mark
Frage ist noch offen, Sorry
AW: Hyperlink auf Grafik setzen
16.02.2009 14:18:00
Beverly
Hi Mark,
wenn du kein Bild sondern eine Autoform verwendest und diese einen konkreten Namen hat, dann müsstest du Pictures(1) ändern in Shapes("Ellipse 128")


Anzeige
AW: Hyperlink auf Grafik setzen
16.02.2009 14:29:00
Mark
ActiveSheet.Hyperlinks.Add Anchor:=ActiveSheet.Shapes("Ellipse 128").ShapeRange.Item(1), Address:= _
"D:\Eigene Dateien\6A.gif"
Wenn das dann so aussieht bekomme ich diese Meldung:
Objekt unterstützt diese Eigenschaft oder Methode nicht
AW: Hyperlink auf Grafik setzen
16.02.2009 15:39:00
Renee
Hi Mark,
Versuch's mal so:

ActiveSheet.Hyperlinks.Add Anchor:=ActiveSheet.Shapes("Oval 128"), Address:= _
"D:\Eigene Dateien\6A.gif"


GreetZ Renée

Anzeige
AW: Hyperlink auf Grafik setzen
16.02.2009 15:55:00
Mark
Hey, ja super das funktioniert. Danke dir!
Gruß mark
;
Anzeige
Anzeige

Infobox / Tutorial

Hyperlink auf Grafik in Excel setzen


Schritt-für-Schritt-Anleitung

  1. Grafik oder Autoform wählen: Wähle die Grafik oder Autoform aus, auf die du den Hyperlink setzen möchtest.
  2. VBA-Editor öffnen: Drücke ALT + F11, um den VBA-Editor zu öffnen.
  3. Neues Modul einfügen: Klicke auf Einfügen > Modul, um ein neues Modul zu erstellen.
  4. Code eingeben: Füge den folgenden Code in das Modul ein:

    ActiveSheet.Hyperlinks.Add Anchor:=ActiveSheet.Shapes("DeinGrafikName"), Address:= _
    "D:\Eigene Dateien\6A.gif"

    Ersetze DeinGrafikName durch den tatsächlichen Namen deiner Grafik (z.B. "Ellipse 128").

  5. Makro ausführen: Schließe den VBA-Editor und führe das Makro aus, um den Hyperlink zu setzen.

Häufige Fehler und Lösungen

  • Fehler: "Objekt unterstützt diese Eigenschaft oder Methode nicht"
    Lösung: Stelle sicher, dass du den richtigen Namen für die Grafik oder Autoform verwendest. Überprüfe auch, ob die Grafik tatsächlich vorhanden ist.

  • Fehler bei der Verwendung von Pictures
    Wenn du versuchst, einen Hyperlink auf eine Autoform zu setzen, verwende Shapes("GrafikName") anstelle von Pictures(1).


Alternative Methoden

Eine alternative Methode, um Hyperlinks in Excel zu setzen, besteht darin, die Hyperlink-Funktion in der Benutzeroberfläche zu verwenden:

  1. Rechtsklicke auf die Grafik oder Autoform.
  2. Wähle Hyperlink....
  3. Gib die URL oder den Pfad zur Datei ein und klicke auf OK.

Diese Methode ist besonders nützlich, wenn du keinen Zugriff auf den VBA-Editor hast.


Praktische Beispiele

  • Beispiel 1: Hyperlink auf eine lokale Datei setzen:

    ActiveSheet.Hyperlinks.Add Anchor:=ActiveSheet.Shapes("Ellipse 128"), Address:= _
    "D:\Eigene Dateien\Dokument.pdf"
  • Beispiel 2: Hyperlink auf eine Webseite setzen:

    ActiveSheet.Hyperlinks.Add Anchor:=ActiveSheet.Shapes("Ellipse 128"), Address:= _
    "http://www.example.com"

In diesen Beispielen kannst du sehen, wie einfach es ist, Hyperlinks in Excel zu setzen, sei es auf lokale Dateien oder Internetlinks.


Tipps für Profis

  • Excel Hyperlink als Symbol darstellen: Du kannst den Hyperlink auf das Bild so formatieren, dass nur das Symbol angezeigt wird. Dazu kannst du die Formatierungsoptionen im Kontextmenü nutzen.
  • Verwende relative Pfade: Wenn du mit verschiedenen Computern arbeitest, kann es hilfreich sein, relative Pfade zu verwenden, um sicherzustellen, dass die Links funktionieren, egal wo die Datei gespeichert ist.

FAQ: Häufige Fragen

1. Kann ich einen Hyperlink auf mehrere Grafiken gleichzeitig setzen?
Ja, du kannst eine Schleife in VBA verwenden, um Hyperlinks auf mehrere Grafiken gleichzeitig zu setzen.

2. Wie kann ich den Hyperlink wieder entfernen?
Um den Hyperlink zu entfernen, kannst du die Grafik auswählen, mit der rechten Maustaste klicken und Hyperlink entfernen wählen oder den folgenden VBA-Code verwenden:

ActiveSheet.Hyperlinks("DeinGrafikName").Delete

Mit diesen Anleitungen und Tipps kannst du erfolgreich Hyperlinks auf Grafiken in Excel setzen und verwalten.

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige