Ugrás a tartalomra

Hogyan adhatjuk meg az egérrel a csúcsot egy bizonyos alakzathoz az Excelben?

Sok esetben makrót kell rendelnie egy bizonyos alakhoz, hogy a makrót a munkalapra kattintva futtassa. Miután makrót rendelt az alakzathoz, az egér hozzáadása a hegy fölé segíthet emlékeztetni arra, hogy az alak mit fog használni a jövőben. Ez a cikk két módszert mutat be, hogy az egérrel a csúcsot hozzáadhatja az Excel egy bizonyos alakjához.

Vigye az egeret a csúcsra egy bizonyos alakzatra a hiperhivatkozás hozzáadásával
VBA kóddal adjon egérrel egy hegyre egy bizonyos alakzatot


Vigye az egeret a csúcsra egy bizonyos alakzatra a hiperhivatkozás hozzáadásával

A ScreenTip segítségével hiperhivatkozást adhat a munkalap bizonyos alakzatához. Kérjük, tegye a következőket.

1. Kattintson a jobb egérgombbal az alakzathoz, amelyet hozzá kell adni az egér fölé, majd kattintson a gombra Hiperhivatkozás a jobb egérgombbal kattintva. Lásd a képernyőképet:

2. Ban,-ben Hyperlink beszúrása párbeszédpanelen kattintson a Képernyőtipp gomb. És a Állítsa be a hiperhivatkozás képernyőtippjét párbeszédpanelen írja be a megjelenítendő képernyőtipp szövegét, miközben az egérrel az alakzat fölé viszi az egeret. Végül kattintson a gombra OK gomb. Lásd a képernyőképet:

3. Amikor visszatér a Hyperlink beszúrása párbeszédpanelen kattintson a Könyvjelző gomb. Ezután írja be az A1 értéket a Típus mezőbe a Válassza a Hely a dokumentumban lehetőséget párbeszédpanelt, és végül kattintson a OK gombot.

4. Kattintson a OK gombot a Hyperlink beszúrása párbeszédpanel a hiperhivatkozás létrehozásának befejezéséhez.

Most láthatja, hogy a képernyő csúcsa megjelenik, amikor az egérrel az alak fölé viszi az egeret.


VBA kóddal adjon egérrel egy hegyre egy bizonyos alakzatot

Az alábbi VBA-kód futtatása után könnyedén hozzáadhatja az egeret a csúcshoz egy bizonyos alakzathoz.

1. Nyissa meg azt a munkalapot, amely tartalmazza azt az alakzatot, amelyet az egér áthúzásakor megjelenít. Kattintson a jobb gombbal a lap fülre, majd a helyi menüben kattintson a Kód megtekintése elemre.

2. Ban,-ben Microsoft Visual Basic for Applications ablakba, kérjük, másolja az alábbi VBA kódot a Kód ablakba.

1. VBA-kód: Vigye az egeret a csúcs fölé egy bizonyos alakzathoz

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. kettyenés betétlap > Modulok. Ezután írja be a VBA kód alatt a Modul ablakot.

2. VBA-kód: Vigye az egeret a csúcs fölé egy bizonyos alakzathoz

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

Megjegyzések:

1). Kérjük, cserélje ki aKattintson a Makró futtatásához"És"4 téglalap”Képernyőn megjelenő tipp szövegével és a bizonyos alak nevével.
2). Csere "MoveRow" Sorban "Hívja a MoveRow-t"az alakzathoz rendelt makrónévhez

3. megnyomni a F5 gombot a kód futtatásához. Ezután a megadott képernyőhegy azonnal hozzáadódik a bizonyos alakhoz.


Kapcsolódó cikkek:

A legjobb irodai hatékonyságnövelő eszközök

Népszerű szolgáltatások: Ismétlődések keresése, kiemelése vagy azonosítása   |  Üres sorok törlése   |  Oszlopok vagy cellák kombinálása adatvesztés nélkül   |   Kerek Formula nélkül ...
Szuper keresés: Több kritérium VLookup    Többértékű VLookup  |   VLookup több munkalapon   |   Fuzzy Lookup ....
Speciális legördülő lista: Gyors legördülő lista létrehozása   |  Függő legördülő lista   |  Többszörösen válassza ki a legördülő listát ....
Oszlopkezelő: Adjon meg egy adott számú oszlopot  |  Oszlopok mozgatása  |  Kapcsolja be a Rejtett oszlopok láthatósági állapotát  |  Tartományok és oszlopok összehasonlítása ...
Kiemelt funkciók: Rács fókusz   |  Design nézet   |   Nagy Formula bár    Munkafüzet és lapkezelő   |  Erőforrás-könyvtár (Auto szöveg)   |  Dátumválasztó   |  Kombinálja a munkalapokat   |  Cellák titkosítása/dekódolása    E-mailek küldése listánként   |  Szuper szűrő   |   Speciális szűrő (félkövér/dőlt/áthúzott szűrés...) ...
A 15 legjobb eszközkészlet12 szöveg Eszközök (Szöveg hozzáadása, Karakterek eltávolítása,...)   |   50 + Táblázatos Típusai (Gantt-diagram,...)   |   40+ Praktikus képletek (Számolja ki az életkort a születésnap alapján,...)   |   19 beszúrás Eszközök (Helyezze be a QR-kódot, Kép beszúrása az útvonalból,...)   |   12 Átalakítás Eszközök (Számok szavakig, Valuta átváltás,...)   |   7 Egyesítés és felosztás Eszközök (Haladó kombinált sorok, Hasított sejtek,...)   |   ... és több

Töltsd fel Excel-készségeidet a Kutools for Excel segítségével, és tapasztald meg a még soha nem látott hatékonyságot. A Kutools for Excel több mint 300 speciális funkciót kínál a termelékenység fokozásához és az időmegtakarításhoz.  Kattintson ide, hogy megszerezze a leginkább szükséges funkciót...

kte lap 201905


Az Office lap füles felületet hoz az Office-ba, és sokkal könnyebbé teszi a munkáját

  • Füles szerkesztés és olvasás engedélyezése Wordben, Excelben és PowerPointban, Publisher, Access, Visio és Project.
  • Több dokumentum megnyitása és létrehozása ugyanazon ablak új lapjain, mint új ablakokban.
  • 50% -kal növeli a termelékenységet, és naponta több száz kattintással csökkenti az egér kattintását!
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