Direkt zum Inhalt

Wie füge ich einer bestimmten Form in Excel eine Maus über die Spitze hinzu?

In vielen Fällen müssen Sie einer bestimmten Form ein Makro zuweisen, um das Makro auszuführen, indem Sie in Ihrem Arbeitsblatt darauf klicken. Nachdem Sie der Form ein Makro zugewiesen haben, können Sie durch Hinzufügen der Maus über die Spitze daran erinnern, was die Form bei der zukünftigen Verwendung bewirkt. Dieser Artikel zeigt Ihnen zwei Methoden, um einer bestimmten Form in Excel eine Maus über die Spitze hinzuzufügen.

Fügen Sie der Maus eine Maus über die Spitze hinzu, indem Sie einen Hyperlink hinzufügen
Fügen Sie einer bestimmten Form mit dem VBA-Code die Maus über die Spitze hinzu


Fügen Sie der Maus eine Maus über die Spitze hinzu, indem Sie einen Hyperlink hinzufügen

Sie können einer bestimmten Form im Arbeitsblatt einen Hyperlink mit ScreenTip hinzufügen. Bitte gehen Sie wie folgt vor.

1. Klicken Sie mit der rechten Maustaste auf die Form, die Sie zum Hinzufügen der Maus über die Spitze benötigen, und klicken Sie dann auf Hyperlink aus dem Kontextmenü. Siehe Screenshot:

2. In dem Hyperlink einsetzen Klicken Sie im Dialogfeld auf die Schaltfläche Kurzinfo Taste. Und in der Stellen Sie die Hyperlink-QuickInfo ein Geben Sie im Dialogfeld den Bildschirmtext ein, den Sie anzeigen möchten, während Sie mit der Maus über die Form fahren. Klicken Sie abschließend auf OK Taste. Siehe Screenshot:

3. Wenn es zum zurückkehrt Hyperlink einsetzen Klicken Sie im Dialogfeld auf die Schaltfläche Lesezeichen Taste. Geben Sie dann A1 in das Feld Typ im Zellenreferenzfeld des ein Wählen Sie In Dokument platzieren Klicken Sie auf das Dialogfeld OK .

4. Klicken Sie auf die OK Knopf im Hyperlink einsetzen Dialogfeld zum Abschluss der Erstellung des Hyperlinks.

Jetzt können Sie sehen, wie die Bildschirmspitze angezeigt wird, wenn Sie mit der Maus über die Form fahren.


Fügen Sie einer bestimmten Form mit dem VBA-Code die Maus über die Spitze hinzu

Sie können einer bestimmten Form einfach eine Maus über die Spitze hinzufügen, nachdem Sie den folgenden VBA-Code ausgeführt haben.

1. Öffnen Sie das Arbeitsblatt, das die Form enthält, die beim Bewegen der Maus angezeigt wird. Klicken Sie mit der rechten Maustaste auf die Registerkarte Blatt, und klicken Sie dann im Kontextmenü auf Code anzeigen.

2. In dem Microsoft Visual Basic für Applikationen Fenster, bitte kopieren Sie den folgenden VBA-Code in das Code-Fenster.

VBA-Code 1: Fügen Sie einer bestimmten Form die Maus über die Spitze hinzu

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
'Updated by Extendoffice 2018/3/30
    If Target.Address = Range("A1").Address Then
        Call MoveRow
    End If
End Sub

3 Klicken Insert > Modul. Geben Sie dann den folgenden VBA-Code in das Modulfenster ein.

VBA-Code 2: Fügen Sie einer bestimmten Form die Maus über die Spitze hinzu

Sub Text()
'Updated by Extendoffice 2018/3/30
    Dim xShape As Shape
    Dim xRg As Range
    On Error Resume Next
    Application.EnableEvents = False
    Set xShape = ActiveSheet.Shapes("Rectangle 4")
    If Not xShape Is Nothing Then
        ActiveSheet.Hyperlinks.Add xShape, "", "A1", ScreenTip:="Click to run Macro "
    End If
    If ActiveSheet.Hyperlinks(1).SubAddress = "A1" Then
        Call MoveRow
    End If
    Application.EnableEvents = True
End Sub

Notizen:

1). Bitte ersetzen Sie die “Klicken Sie hier, um das Makro auszuführen" und "Rectangle 4”Mit Ihrem Bildschirmtext und dem Namen der bestimmten Form.
2). Ersetzen "MoveRow" in der Reihe "Rufen Sie MoveRow auf"zu dem Makronamen, den Sie der Form zugewiesen haben

3. Drücken Sie die Taste F5 Schlüssel zum Ausführen des Codes. Dann wird die angegebene Bildschirmspitze sofort zu der bestimmten Form hinzugefügt.


In Verbindung stehende Artikel:

Beste Office-Produktivitätstools

🤖 Kutools KI-Assistent: Revolutionieren Sie die Datenanalyse basierend auf: Intelligente Ausführung   |  Code generieren  |  Erstellen Sie benutzerdefinierte Formeln  |  Analysieren Sie Daten und erstellen Sie Diagramme  |  Rufen Sie Kutools-Funktionen auf...
Beliebte Funktionen: Suchen, markieren oder identifizieren Sie Duplikate   |  Leere Zeilen löschen   |  Kombinieren Sie Spalten oder Zellen, ohne Daten zu verlieren   |   Runde ohne Formel ...
Super-Lookup: VLookup mit mehreren Kriterien    VLookup mit mehreren Werten  |   VLookup über mehrere Blätter hinweg   |   Unscharfe Suche ....
Erweiterte Dropdown-Liste: Erstellen Sie schnell eine Dropdown-Liste   |  Abhängige Dropdown-Liste   |  Mehrfachauswahl Dropdown-Liste ....
Spaltenmanager: Fügen Sie eine bestimmte Anzahl von Spalten hinzu  |  Spalten verschieben  |  Schalten Sie den Sichtbarkeitsstatus ausgeblendeter Spalten um  |  Vergleichen Sie Bereiche und Spalten ...
Ausgewählte Funktionen: Rasterfokus   |  Designansicht   |   Große Formelleiste    Arbeitsmappen- und Blattmanager   |  Ressourcen (Autotext)   |  Datumsauswahl   |  Arbeitsblätter kombinieren   |  Zellen verschlüsseln/entschlüsseln    Senden Sie E-Mails nach Liste   |  Superfilter   |   Spezialfilter (Filter fett/kursiv/durchgestrichen...) ...
Top 15 Toolsets12 Text Tools (Text hinzufügen, Zeichen entfernen, ...)   |   50+ Chart Typen (Gantt-Diagramm, ...)   |   40+ Praktisch Formeln (Berechnen Sie das Alter basierend auf dem Geburtstag, ...)   |   19 Einfügen Tools (QR-Code einfügen, Bild aus Pfad einfügen, ...)   |   12 Umwandlung (Conversion) Tools (Zahlen zu Wörtern, Currency Conversion, ...)   |   7 Zusammenführen & Teilen Tools (Erweiterte Zeilen kombinieren, Zellen teilen, ...)   |   ... und mehr

Verbessern Sie Ihre Excel-Kenntnisse mit Kutools für Excel und erleben Sie Effizienz wie nie zuvor. Kutools für Excel bietet über 300 erweiterte Funktionen, um die Produktivität zu steigern und Zeit zu sparen.  Klicken Sie hier, um die Funktion zu erhalten, die Sie am meisten benötigen ...

Beschreibung


Office Tab Bringt die Oberfläche mit Registerkarten in Office und erleichtert Ihnen die Arbeit erheblich

  • Aktivieren Sie das Bearbeiten und Lesen von Registerkarten in Word, Excel und PowerPoint, Publisher, Access, Visio und Project.
  • Öffnen und erstellen Sie mehrere Dokumente in neuen Registerkarten desselben Fensters und nicht in neuen Fenstern.
  • Steigert Ihre Produktivität um 50 % und reduziert jeden Tag Hunderte von Mausklicks für Sie!
Comments (8)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
Convert your shape to an image. Images have tool tips.
This comment was minimized by the moderator on the site
Doesn't work..... if there is a hyperlink associated with the shape then the macro will not run....
This comment was minimized by the moderator on the site
Dear Niall,
Sorry for the mistake. Please try as below to solve the problem.

Step 1:
In the worksheet contains the shape you will display tip, right click the sheet tab and select View Code from the context menu. And then copy below VBA into the Code window:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Address = Range("A1").Address Then
Call MoveRow
End If
End Sub

Step 2:
Open the Module code window, copy below code into the Module window.
Please change "MoveRow" in the line Call MoveRow to the macro name you assigned to the shape, and then press the F5 key to run the code.
Thank you for your comment.

Sub Text()
Dim xShape As Shape
Dim xRg As Range
On Error Resume Next
Application.EnableEvents = False
Set xShape = ActiveSheet.Shapes("Rectangle 1")
If Not xShape Is Nothing Then
ActiveSheet.Hyperlinks.Add xShape, "", "A1", ScreenTip:="Click to run Macro "
End If
If ActiveSheet.Hyperlinks(1).SubAddress = "A1" Then
Call MoveRow
End If
Application.EnableEvents = True
End Sub
This comment was minimized by the moderator on the site
Dear Niall,
The code works well in my case. Can you provide your Office version? Thank you for your comment.
This comment was minimized by the moderator on the site
Hello, Sub Test() On Error Resume Next Dim xShape As Shape Set xShape = ActiveSheet.Shapes("Rectangle 4") If Not xShape Is Nothing Then _ ActiveSheet.Hyperlinks.Add xShape, "", "", ScreenTip:="Click to run Macro " End Sub Thank code works great, but it removes Assigned macro. When i use Screen Tip and press on shape Macro Deosn't work. Is any way to fix that? Use Screen tip on shape and keep macro working? Thank youĄ
This comment was minimized by the moderator on the site
Dear Evaldas,
Sorry for the mistake. Please try as below to solve the problem.

Step 1:
In the worksheet contains the shape you will display tip, right click the sheet tab and select View Code from the context menu. And then copy below VBA into the Code window:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Address = Range("A1").Address Then
Call MoveRow
End If
End Sub

Step 2:
Open the Module code window, copy below code into the Module window.
Please change "MoveRow" in the line Call MoveRow to the macro name you assigned to the shape, and then press the F5 key to run the code.
Thank you for your comment.

Sub Text()
Dim xShape As Shape
Dim xRg As Range
On Error Resume Next
Application.EnableEvents = False
Set xShape = ActiveSheet.Shapes("Rectangle 1")
If Not xShape Is Nothing Then
ActiveSheet.Hyperlinks.Add xShape, "", "A1", ScreenTip:="Click to run Macro "
End If
If ActiveSheet.Hyperlinks(1).SubAddress = "A1" Then
Call MoveRow
End If
Application.EnableEvents = True
End Sub
This comment was minimized by the moderator on the site
I wish someone would solve this problem.
This comment was minimized by the moderator on the site
Good Day,
Please try as below to solve the problem.

Step 1:
In the worksheet contains the shape you will display tip, right click the sheet tab and select View Code from the context menu. And then copy below VBA into the Code window:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Address = Range("A1").Address Then
Call MoveRow
End If
End Sub

Step 2:
Open the Module code window, copy below code into the Module window.
Please change "MoveRow" in the line Call MoveRow to the macro name you assigned to the shape, and then press the F5 key to run the code.
Thank you for your comment.

Sub Text()
Dim xShape As Shape
Dim xRg As Range
On Error Resume Next
Application.EnableEvents = False
Set xShape = ActiveSheet.Shapes("Rectangle 1")
If Not xShape Is Nothing Then
ActiveSheet.Hyperlinks.Add xShape, "", "A1", ScreenTip:="Click to run Macro "
End If
If ActiveSheet.Hyperlinks(1).SubAddress = "A1" Then
Call MoveRow
End If
Application.EnableEvents = True
End Sub
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations