MS Excel

Téma: Zobrazení Label v listu při MouseMove

Zaslal/a pavelo 22.1.2024 22:48

Dobrý den, mám potíže s chováním makra, kterým při najetí myši na tlačítko v listu má na definovanou dobu zobrazit Label. Vlastní Label je vytvořen na žádaném místě přímo v listu. Mám tento kód:Private Sub Nacti_osobni_udaje_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
If Label1.Visible = True Then Exit Sub
Label1.Visible = True
Application.OnTime Now + TimeValue("00:00:04"), "List1.HideLabel1"
End Sub

Private Sub WorkSheet_Deactivate()
Label1.Visible = False
End Sub
Label se zobrazí, ale po nastavené době vyskočí chybová hláška: Makro (cesta a název sešitu)List1.HideLabel1 nelze spustit. A Label zůstane visible=true. Mám to evidentně blbě. Poradí, prosím, někdo znalý?

Zaslat odpověď >

Strana: « předchozí 1 2

pavelo(23.1.2024 20:02)#056046

Stalker napsal/a:

Umístit do standardního modulu
Private Sub HideLabel1()
List1.Label1.Visible = False
End Sub

Díky za reakci. Makro jsem dle rady přemístil do modulu. Label teď funguje jak má. Ale dochází ke konfliktu makra:

Private Sub Nacti_osobni_udaje_Click()

s makrem:

Private Sub Nacti_osobni_udaje_MouseMove

obě v objektu List1
Jsem v koncích a tlačí mě čas, poradíš, prosím?

Příloha: zip