Note: The other languages of the website are Google-translated. Back to English
English English

Jak přidat myš přes špičku do určitého tvaru v aplikaci Excel?

V mnoha případech je třeba přiřadit makro určitému tvaru, aby bylo možné makro spustit kliknutím na něj v listu. Po přiřazení makra tvaru můžete přidáním myši přes špičku připomenout, co tvar v budoucnu použije. Tento článek ukazuje dvě metody přidání myši přes špičku do určitého tvaru v aplikaci Excel.

Přidejte myš přes špičku do určitého tvaru přidáním hypertextového odkazu
Přidejte myš přes špičku do určitého tvaru pomocí kódu VBA


Přidejte myš přes špičku do určitého tvaru přidáním hypertextového odkazu


Pomocí odkazu můžete přidat hypertextový odkaz na určitý tvar v listu. Postupujte prosím následovně.

1. Klikněte pravým tlačítkem na tvar, který chcete přidat myší přes špičku, a poté klikněte Hyperlink z nabídky pravého tlačítka myši. Viz screenshot:

2. V Vložit hypertextový odkaz dialogové okno, klepněte na tlačítko ScreenTip knoflík. A v Nastavit hypertextový odkaz V dialogovém okně zadejte text tipu na obrazovce, který se má zobrazit při najetí myší na tvar myší. Nakonec klikněte na OK knoflík. Viz screenshot:

3. Když se vrátí do Vložit hypertextový odkaz dialogové okno, klepněte na tlačítko Záložka knoflík. Poté zadejte A1 do pole Typ v poli odkazu na buňku v Vyberte Místo v dokumentu dialogové okno a nakonec klikněte na OK .

4. Klepněte na tlačítko OK tlačítko v Vložit hypertextový odkaz dokončete vytváření hypertextového odkazu.

Nyní můžete vidět, jak se hrot obrazovky zobrazuje při najetí myší na tvar myší.


Přidejte myš přes špičku do určitého tvaru pomocí kódu VBA

Po spuštění následujícího kódu VBA můžete snadno přidat špičku myši do určitého tvaru.

1. Otevřete list, který obsahuje tvar, který se zobrazí při pohybu myši. Klikněte pravým tlačítkem na kartu listu a potom v místní nabídce klikněte na Zobrazit kód.

2. V Microsoft Visual Basic pro aplikace zkopírujte níže uvedený kód VBA do okna Kód.

Kód VBA 1: Přidejte myš přes špičku do určitého tvaru

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. cvaknutí Vložit > Modul. Poté zadejte pod kód VBA do okna modulu.

Kód VBA 2: Přidejte myš přes špičku do určitého tvaru

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

Poznámky:

1). Nahraďte prosím „Kliknutím spustíte makro"A"Obdélník 4“S textem tipu na obrazovce a názvem určitého tvaru.
2). NahraditMoveRow" v souladu "Volejte MoveRow"k názvu makra, který jste přiřadili tvaru

3. zmáčkni F5 klíč ke spuštění kódu. Poté se zadaný hrot obrazovky okamžitě přidá k určitému tvaru.


Související články:


Nejlepší kancelářské nástroje produktivity

Kutools pro Excel řeší většinu vašich problémů a zvyšuje vaši produktivitu o 80%

  • Opakované použití: Rychle vložte složité vzorce, grafy a cokoli, co jste dříve používali; Šifrovat buňky s heslem; Vytvořte seznam adresátů a posílat e-maily ...
  • Super Formula Bar (snadno upravit více řádků textu a vzorce); Rozložení pro čtení (snadno číst a upravovat velké množství buněk); Vložit do filtrovaného rozsahu...
  • Sloučit buňky / řádky / sloupce bez ztráty dat; Rozdělit obsah buněk; Zkombinujte duplicitní řádky / sloupce... Zabraňte duplicitním buňkám; Porovnat rozsahy...
  • Vyberte možnost Duplikovat nebo Jedinečný Řádky; Vyberte prázdné řádky (všechny buňky jsou prázdné); Super hledání a fuzzy hledání v mnoha sešitech; Náhodný výběr ...
  • Přesná kopie Více buněk beze změny odkazu na vzorec; Automaticky vytvářet reference do více listů; Vložte odrážky, Zaškrtávací políčka a další ...
  • Extrahujte text, Přidat text, Odebrat podle pozice, Odebrat mezeru; Vytváření a tisk mezisoučtů stránkování; Převod mezi obsahem buněk a komentáři...
  • Super filtr (uložit a použít schémata filtrů na jiné listy); Rozšířené řazení podle měsíce / týdne / dne, frekvence a dalších; Speciální filtr tučnou kurzívou ...
  • Kombinujte sešity a pracovní listy; Sloučit tabulky na základě klíčových sloupců; Rozdělte data do více listů; Dávkový převod xls, xlsx a PDF...
  • Více než 300 výkonných funkcí. Podporuje Office / Excel 2007-2019 a 365. Podporuje všechny jazyky. Snadné nasazení ve vašem podniku nebo organizaci. Kompletní funkce 30denní bezplatná zkušební verze. 60denní záruka vrácení peněz.
karta kte 201905

Office Tab přináší do Office rozhraní s kartami a usnadňuje vám práci

  • Povolte úpravy a čtení na kartách ve Wordu, Excelu, PowerPointu, Publisher, Access, Visio a Project.
  • Otevřete a vytvořte více dokumentů na nových kartách ve stejném okně, nikoli v nových oknech.
  • Zvyšuje vaši produktivitu o 50% a omezuje stovky kliknutí myší každý den!
officetab dno
Komentáře (8)
Zatím žádné hodnocení. Buďte první, kdo ohodnotí!
Tento komentář byl moderátorem webu minimalizován
Dobrý den, Sub Test() On Error Resume Next Dim xShape As Shape Set xShape = ActiveSheet.Shapes("Rectangle 4") Pokud ne, xShape is Nothing Then _ ActiveSheet.Hyperlinks.Add xShape, "", "", ScreenTip:=" Kliknutím spusťte makro " End Sub Poděkování kód funguje skvěle, ale odstraní přiřazené makro. Když použiji Screen Tip a stisknu tvar Makro, nefunguje. Dá se to nějak opravit? Použít tip na obrazovce na tvar a zachovat fungování makra? Děkuji Ą
Tento komentář byl moderátorem webu minimalizován
Kéž by tento problém někdo vyřešil.
Tento komentář byl moderátorem webu minimalizován
Dobrý den,
Zkuste problém vyřešit podle níže uvedeného postupu.

Krok 1:
V listu obsahuje tvar, který zobrazíte tip, klikněte pravým tlačítkem na záložku listu a z kontextové nabídky vyberte Zobrazit kód. A pak zkopírujte níže VBA do okna Kód:

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

Krok 2:
Otevřete okno Kód modulu, zkopírujte níže uvedený kód do okna Modul.
Změňte "MoveRow" v řádku Volejte MoveRow na název makra, který jste přiřadili k obrazci, a poté stisknutím klávesy F5 spusťte kód.
Děkujeme za váš komentář.

Podtext()
Dim xShape As Shape
Dim xRg jako rozsah
On Error Resume Next
Application.EnableEvents = False
Set xShape = ActiveSheet.Shapes("Rectangle 1")
Pokud ne, xShape není nic
ActiveSheet.Hyperlinks.Add xShape, "", "A1", ScreenTip:="Kliknutím spustíte makro "
End If
If ActiveSheet.Hyperlinks(1).SubAddress = "A1" Potom
Volejte MoveRow
End If
Application.EnableEvents = True
End Sub
Tento komentář byl moderátorem webu minimalizován
Milý Evaldasi,
Promiň za tu chybu. Zkuste problém vyřešit podle níže uvedeného postupu.

Krok 1:
V listu obsahuje tvar, který zobrazíte tip, klikněte pravým tlačítkem na záložku listu a z kontextové nabídky vyberte Zobrazit kód. A pak zkopírujte níže VBA do okna Kód:

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

Krok 2:
Otevřete okno Kód modulu, zkopírujte níže uvedený kód do okna Modul.
Změňte "MoveRow" v řádku Volejte MoveRow na název makra, který jste přiřadili k obrazci, a poté stisknutím klávesy F5 spusťte kód.
Děkujeme za váš komentář.

Podtext()
Dim xShape As Shape
Dim xRg jako rozsah
On Error Resume Next
Application.EnableEvents = False
Set xShape = ActiveSheet.Shapes("Rectangle 1")
Pokud ne, xShape není nic
ActiveSheet.Hyperlinks.Add xShape, "", "A1", ScreenTip:="Kliknutím spustíte makro "
End If
If ActiveSheet.Hyperlinks(1).SubAddress = "A1" Potom
Volejte MoveRow
End If
Application.EnableEvents = True
End Sub
Tento komentář byl moderátorem webu minimalizován
Nefunguje..... pokud je k tvaru přidružen hypertextový odkaz, makro se nespustí....
Tento komentář byl moderátorem webu minimalizován
Milý Nialle,
Kód v mém případě funguje dobře. Můžete poskytnout vaši verzi Office? Děkuji za váš komentář.
Tento komentář byl moderátorem webu minimalizován
Milý Nialle,
Promiň za tu chybu. Zkuste problém vyřešit podle níže uvedeného postupu.

Krok 1:
V listu obsahuje tvar, který zobrazíte tip, klikněte pravým tlačítkem na záložku listu a z kontextové nabídky vyberte Zobrazit kód. A pak zkopírujte níže VBA do okna Kód:

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

Krok 2:
Otevřete okno Kód modulu, zkopírujte níže uvedený kód do okna Modul.
Změňte "MoveRow" v řádku Volejte MoveRow na název makra, který jste přiřadili k obrazci, a poté stisknutím klávesy F5 spusťte kód.
Děkujeme za váš komentář.

Podtext()
Dim xShape As Shape
Dim xRg jako rozsah
On Error Resume Next
Application.EnableEvents = False
Set xShape = ActiveSheet.Shapes("Rectangle 1")
Pokud ne, xShape není nic
ActiveSheet.Hyperlinks.Add xShape, "", "A1", ScreenTip:="Kliknutím spustíte makro "
End If
If ActiveSheet.Hyperlinks(1).SubAddress = "A1" Potom
Volejte MoveRow
End If
Application.EnableEvents = True
End Sub
Tento komentář byl moderátorem webu minimalizován
Převeďte svůj tvar na obrázek. Obrázky obsahují tipy na nástroje.
Zatím zde nejsou žádné komentáře
Zanechat své připomínky
Odesílání jako host
×
Ohodnoťte tento příspěvek:
0   Postavy
Doporučená umístění