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:
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:
- Jak automaticky měnit velikost tvaru na základě / v závislosti na zadané hodnotě buňky v aplikaci Excel?
- Jak vyplnit tvar průhlednou barvou pozadí v aplikaci Excel?
- Jak skrýt nebo odkrýt určitý tvar na základě zadané hodnoty buňky v aplikaci Excel?
Nejlepší nástroje pro produktivitu v kanceláři
Rozšiřte své dovednosti Excel pomocí Kutools pro Excel a zažijte efektivitu jako nikdy předtím. Kutools for Excel nabízí více než 300 pokročilých funkcí pro zvýšení produktivity a úsporu času. Kliknutím sem získáte funkci, kterou nejvíce potřebujete...
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 snižuje stovky kliknutí myší každý den!