Przejdź do głównej zawartości

Jak dodać kursor myszy nad końcówką do określonego kształtu w programie Excel?

W wielu przypadkach musisz przypisać makro do określonego kształtu, aby uruchomić makro, klikając je w arkuszu. Po przypisaniu makra do kształtu, dodanie wskaźnika myszy nad końcówką może pomóc Ci przypomnieć, jakie działania będą miały kształt w przyszłości. W tym artykule przedstawiono dwie metody dodawania myszy nad końcówką do określonego kształtu w programie Excel.

Dodaj mysz nad końcówką do określonego kształtu, dodając hiperłącze
Dodaj mysz nad końcówką do określonego kształtu za pomocą kodu VBA

Dodaj mysz nad końcówką do określonego kształtu, dodając hiperłącze

Możesz dodać hiperłącze z etykietką ekranową do określonego kształtu w arkuszu. Wykonaj następujące czynności.

1. Kliknij prawym przyciskiem myszy kształt, który chcesz dodać myszą nad końcówką, a następnie kliknij Hiperłącze z menu po kliknięciu prawym przyciskiem myszy. Zobacz zrzut ekranu:

2. w Wstaw łącze okno dialogowe, kliknij przycisk Etykieta ekranowa przycisk. A w Ustaw etykietkę ekranową hiperłącza W oknie dialogowym wprowadź tekst porady ekranowej, który ma być wyświetlany po najechaniu kursorem myszy na kształt. Na koniec kliknij OK przycisk. Zobacz zrzut ekranu:

3. Kiedy wraca do Wstaw łącze okno dialogowe, kliknij przycisk Zakładka przycisk. Następnie wprowadź A1 w polu Wpisz w odwołaniu do komórki pliku Wybierz opcję Umieść w dokumencie okno dialogowe, a na koniec kliknij OK przycisk.

4. Kliknij OK przycisk w Wstaw łącze okno dialogowe, aby zakończyć tworzenie hiperłącza.

Teraz możesz zobaczyć końcówkę ekranu wyświetlaną po najechaniu kursorem myszy na kształt.

Dodaj mysz nad końcówką do określonego kształtu za pomocą kodu VBA

Możesz łatwo dodać kursor myszy nad końcówką do określonego kształtu po uruchomieniu następującego kodu VBA.

1. Otwórz arkusz zawierający kształt, który będziesz wyświetlać końcówką po najechaniu myszą. Kliknij prawym przyciskiem myszy kartę arkusza, a następnie kliknij Wyświetl kod z menu kontekstowego.

2. w Microsoft Visual Basic for Applications oknie, skopiuj poniższy kod VBA do okna Code.

Kod VBA 1: Dodaj mysz nad końcówką do określonego kształtu

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. kliknij wstawka > Moduł. Następnie wprowadź poniższy kod VBA w oknie modułu.

Kod VBA 2: Dodaj mysz nad końcówką do określonego kształtu

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

Uwagi:

1). Proszę zamienić „Kliknij, aby uruchomić makro"I"Prostokąt 4”Z tekstem wskazówki ekranowej i nazwą określonego kształtu.
2). Zastąpić "Przenieś wiersz„w kolejce”Zadzwoń do MoveRow”do nazwy makra przypisanej do kształtu

3. wciśnij F5 klucz do uruchomienia kodu. Następnie określona końcówka ekranu jest natychmiast dodawana do określonego kształtu.

Powiązane artykuły:

Najlepsze narzędzia biurowe

🤖 Pomocnik AI Kutools: Zrewolucjonizuj analizę danych w oparciu o: Inteligentne wykonanie   |  Wygeneruj kod  |  Twórz niestandardowe formuły  |  Analizuj dane i generuj wykresy  |  Wywołaj funkcje Kutools...
Popularne funkcje: Znajdź, wyróżnij lub zidentyfikuj duplikaty   |  Usuń puste wiersze   |  Łącz kolumny lub komórki bez utraty danych   |   Okrągły bez wzoru ...
Super wyszukiwanie: Wiele kryteriów VLookup  |   Wiele wartości VLookup  |   Przeglądanie pionowe na wielu arkuszach   |   Wyszukiwanie rozmyte ....
Zaawansowana lista rozwijana: Szybko twórz listę rozwijaną   |  Zależna lista rozwijana   |  Lista rozwijana wielokrotnego wyboru ....
Menedżer kolumn: Dodaj określoną liczbę kolumn  |  Przesuń kolumny  |  Przełącz stan widoczności ukrytych kolumn  |  Porównaj zakresy i kolumny ...
Polecane funkcje: Fokus siatki   |  Widok projektu   |   Duży pasek formuły   |  Menedżer skoroszytów i arkuszy   |  Biblioteka zasobów (Automatyczny tekst)   |  Selektor dat   |  Połącz arkusze   |  Szyfruj/odszyfruj komórki   |  Wysyłaj e-maile według listy   |  Super filtr   |   Specjalny filtr (filtruj pogrubienie/kursywa/przekreślenie...) ...
15 najlepszych zestawów narzędzi:  12 Tekst Tools (Dodaj tekst, Usuń znaki, ...)   |   50 + Wykres rodzaje (Wykres Gantta, ...)   |   40+ Praktyczne Wzory (Oblicz wiek na podstawie urodzin, ...)   |   19 Wprowadzenie Tools (Wstaw kod QR, Wstaw obraz ze ścieżki, ...)   |   12 Konwersja Tools (Liczby na słowa, Przeliczanie walut, ...)   |   7 Połącz i podziel Tools (Zaawansowane wiersze łączenia, Podział komórki, ...)   |   ... i więcej

Zwiększ swoje umiejętności Excela dzięki Kutools for Excel i doświadcz wydajności jak nigdy dotąd. Kutools dla programu Excel oferuje ponad 300 zaawansowanych funkcji zwiększających produktywność i oszczędzających czas.  Kliknij tutaj, aby uzyskać funkcję, której najbardziej potrzebujesz...

Opis

Karta Office wprowadza interfejs z zakładkami do pakietu Office i znacznie ułatwia pracę

  • Włącz edycję i czytanie na kartach w programach Word, Excel, PowerPoint, Publisher, Access, Visio i Project.
  • Otwieraj i twórz wiele dokumentów w nowych kartach tego samego okna, a nie w nowych oknach.
  • Zwiększa produktywność o 50% i redukuje setki kliknięć myszką każdego dnia!
Comments (8)
No ratings yet. Be the first to rate!
David Darby
David Darby
This comment was minimized by the moderator on the site
Convert your shape to an image. Images have tool tips.
Reply
0
0
Niall
Niall
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....
Reply
0
0
crystal
crystal     Niall
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
Reply
Report
0
0
crystal
crystal     Niall
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.
Reply
Report
0
0
Evaldas
Evaldas
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Ą
Reply
0
0
crystal
crystal     Evaldas
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
Reply
Report
0
0
Ringleader
Ringleader     Evaldas
This comment was minimized by the moderator on the site
I wish someone would solve this problem.
Reply
0
0
crystal
crystal     Ringleader
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
Reply
Report
1
0
There are no comments posted here yet
Please leave your comments in English
Guest
Posting as Guest
×
Rate this post:
Reset
0   Characters
Suggested Locations