Kako dodati miško nad konico v določeno obliko v Excelu?
V mnogih primerih morate določiti makro določeni obliki, da jo zaženete tako, da jo kliknete na delovnem listu. Potem ko obliki dodelite makro, lahko dodajanje miške nad konico opomni, kaj bo oblika naredila v prihodnosti. Ta članek prikazuje dva načina za dodajanje miške nad konico določeni obliki v Excelu.
Dodajte miško nad konico do določene oblike z dodajanjem hiperpovezave
Z določeno kodo VBA dodajte miško nad konico v določeno obliko
Dodajte miško nad konico do določene oblike z dodajanjem hiperpovezave
Hiperpovezavo s funkcijo ScreenTip lahko dodate na določeno obliko v delovnem listu. Naredite naslednje.
1. Z desno miškino tipko kliknite obliko, ki jo želite dodati nad miško, nato kliknite Hiperpovezava v meniju z desnim klikom. Oglejte si posnetek zaslona:
2. V Ljubljani Vstavite hiperpovezavo pogovorno okno, kliknite na Nasvet zaslona . In v Nastavite Hyperlink ScreenTip v pogovorno okno vnesite besedilo nasveta zaslona, ki ga želite prikazati, ko miškin kazalec premaknete nad obliko. Na koncu kliknite OK . Oglejte si posnetek zaslona:
3. Ko se vrne v Vstavite hiperpovezavo pogovorno okno, kliknite na zaznamek . Nato vnesite A1 v vrsto v referenčnem polju celice na Izberite Place in Document pogovorno okno in na koncu kliknite OK gumb.
4. Kliknite OK gumb v Vstavite hiperpovezavo pogovorno okno za dokončanje ustvarjanja hiperpovezave.
Zdaj lahko vidite konico zaslona, ko se z miško pomaknete nad obliko.
Z določeno kodo VBA dodajte miško nad konico v določeno obliko
Po zagonu naslednje kode VBA lahko z lahkoto dodate konico miške v določeno obliko.
1. Odprite delovni list, v katerem je oblika, ki se bo prikazala, ko premikate miško. Z desno miškino tipko kliknite zavihek lista in nato v kontekstnem meniju kliknite Prikaži kodo.
2. V Ljubljani Microsoft Visual Basic za aplikacije okno, kopirajte spodnjo kodo VBA v okno Code.
Koda VBA 1: določeno obliko dodajte miško preko konice
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. klik Vstavi > Moduli. Nato vnesite pod kodo VBA v okno modula.
Koda VBA 2: določeno obliko dodajte miško preko konice
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
Opombe:
3. Pritisnite F5 tipko za zagon kode. Nato se določena oblika zaslona takoj doda določeni obliki.
Sorodni članki:
- Kako samodejno spremeniti velikost oblike glede na določeno vrednost celice v Excelu?
- Kako v Excelu zapolniti obliko s prozorno barvo ozadja?
- Kako skriti ali razkriti določeno obliko na podlagi določene vrednosti celice v Excelu?
Najboljša pisarniška orodja za produktivnost
Napolnite svoje Excelove spretnosti s Kutools za Excel in izkusite učinkovitost kot še nikoli prej. Kutools za Excel ponuja več kot 300 naprednih funkcij za povečanje produktivnosti in prihranek časa. Kliknite tukaj, če želite pridobiti funkcijo, ki jo najbolj potrebujete...
Kartica Office prinaša vmesnik z zavihki v Office in poenostavi vaše delo
- Omogočite urejanje in branje z zavihki v Wordu, Excelu, PowerPointu, Publisher, Access, Visio in Project.
- Odprite in ustvarite več dokumentov v novih zavihkih istega okna in ne v novih oknih.
- Poveča vašo produktivnost za 50%in vsak dan zmanjša na stotine klikov miške za vas!