Excel-VBA hyperlink hinzufügen, um die Form, um die Verknüpfung zu einem anderen Blatt

Ich habe ein makro erstellt eine Zusammenfassung auf der Vorderseite einer Arbeitsmappe. Formen erstellt und beschriftet, nachdem die Blätter in der Arbeitsmappe, und dann hyperlinks Hinzugefügt werden, um die Formen zu redirect auf diese Seiten, aber wenn ich das makro aufgezeichnet, um dies zu tun, wird der code generiert wurde:

ActiveSheet.Shapes.Range(Array("Rounded Rectangle 1")).Select
ActiveSheet.Hyperlinks.Add Anchor:=Selection.ShapeRange.Item(1), Address:=""

Hyperlinks, wurden manuell in excel erstellt, während die makro-Aufzeichnung funktioniert gut und wenn die Maus über Sie anzuzeigen, wird der Pfad der Datei und " - Blatt!A1", aber Sie scheinen nicht, um tatsächlich fügen Sie die link-Adresse in die Adresszeile ein Teil des Makros. Kennt jemand den code, das sollte gehen in diesem Abschnitt Adresse um einen link zu dem Datenblatt?

InformationsquelleAutor Adam Smith | 2015-07-04
  1. 6

    Dem makro-recorder nicht aufzeichnen, was eigentlich passiert in diesem Fall. Die Immobilie, die Sie suchen, ist SubAddress. Address ist richtig eingestellt in deinem code.

    Erstellen Sie einen hyperlink aus einer Form ohne Auswahl

    Sie wollen vermeiden Sie die Dinge in Ihrem code, wenn möglich, und in diesem Fall ist es das definitiv. Erstellen von Form-Variablen und legen Sie es auf die Form, die Sie ändern möchten, dann fügen Sie den hyperlink auf das Blatt, die Form ist auf. Beachten Sie, dass Sie können auch festlegen, dass der text für die QuickInfo.

    In dem Beispiel unten, die Form, die ich ändern möchten, ist auf Blatt 6, und Links zu einem Bereich auf Blatt 4.

    Sub SetHyperlinkOnShape()
    Dim ws As Worksheet
    Set ws = ThisWorkbook.Sheets("Sheet6")

    Dim hyperLinkedShape As Shape

    Set hyperLinkedShape = ws.Shapes("Rectangle 1")

    ws.Hyperlinks.Add Anchor:=hyperLinkedShape, Address:="", _
        SubAddress:="Sheet4!C4:C8", ScreenTip:="yadda yadda"
End Sub
    • Das funktioniert Super, danke für die Hilfe und best practices!
    • Du bist herzlich willkommen. Froh, dass für Sie gearbeitet.
    InformationsquelleAutor Jon Crowell
Schreibe einen Kommentar