< návrat zpět

MS Excel


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

Zaslal/a 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:  1 2   další »
#056034
Začátečník
Application.OnTime Now + TimeValue("00:00:04"), "moje_makro"
OnTime spustí definované makro, evidentně to makro v modulu není, když to hlásí.
Dopsat si moje_makro, které zabezpečí skrytí labelucitovat
#056035
avatar
Dělal jsem úpravy, tak jsem nevědomky změnil název volaného makra. Po úpravě viz níže se zdálo, že problem je vyřešn, ale při testování tlačítka samotného (Nacti_osobni_udaje_Click) dochází k nějakému konfliktu (nepracuje) s tím makrem ke zobrazení/skrytí Label1. !?
run-time error "50290"
A taky po každém spuštění Makra CommandButton s chybou dojde ke zmenšení textu Caption na tlačítku, takže je menší a menší... !?
Nevím si s tím rady 7 Private Sub Nacti_osobni_udaje_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
Label1.Visible = True
Application.OnTime Now + TimeValue("00:00:04"), "List1.HideLabel1"
End Sub

Private Sub HideLabel1()
Label1.Visible = False
End Sub
Podotýkám, že všechna uvedená makra jsou v objektu List1citovat
#056036
Začátečník
Makro List1.HideLabel1 neexistuje
existuje pouze HideLabel1citovat
#056037
avatar

Začátečník napsal/a:

Makro List1.HideLabel1 neexistuje
existuje pouze HideLabel1
Hmm..., to je hezké, ale co s tím, jak to mám opravit, aby to bylo funkční?citovat
#056038
Začátečník

pavelo napsal/a:

Hmm..., to je hezké, ale co s tím, jak to mám opravit, aby to bylo funkční?

Že by to šlo opravit zadáním správného názvu spouštěného makra?
Application.OnTime Now + TimeValue("00:00:04"), "HideLabel1"citovat
#056039
avatar

Začátečník napsal/a:

pavelo napsal/a:Hmm..., to je hezké, ale co s tím, jak to mám opravit, aby to bylo funkční?
Že by to šlo opravit zadáním správného názvu spouštěného makra?
Application.OnTime Now + TimeValue("00:00:04"), "HideLabel1"
Zase tak omezený nejsem. Vyzkoušel jsem. Když jsem to takto upravil, tak se to celé zacyklilo a musel jsem natvrdo shodit Excel... V okně se zprávou Excelu stálo:
Makro 'C:\Users\...\Název_sešitu.xlsm'!Hidelabel1 nelze spustit. Toto makro není pravděpodobně v sešitu k dispozici nebo jsou zakázána všechna makra.
Nemůže být problém v tom, kde to makro (ta makra) jsou umístěna?citovat
#056040
Začátečník
Kdyby byl soubor tak by se to možná dalo i posoudit lépe, kde je chyba.
Je to na tomto fóru docela standard, přikládat vzorové soubory.citovat
#056041
avatar

Začátečník napsal/a:

Kdyby byl soubor tak by se to možná dalo i posoudit lépe, kde je chyba.
Je to na tomto fóru docela standard, přikládat vzorové soubory.
Tomu jsem se chtěl vyhnout, nu co už... já jdu s prosíkem. Přikládám přílohu.
Záležitost a problém, o který jde, je na listu "Vstupní data":
- CommandButton (Nacti_osobni_udaje)
- Label1
Příloha: zip56041_epd_2023t-2_5_1.zip (172kB, staženo 3x)
citovat
#056042
Začátečník
Tak já asi moc nepomohu, protože se mi při sebelepší snaze tento výtvor nedaří na MSO 2007 ani otevřít.citovat
#056043
Stalker
Umístit do standardního modulu
Private Sub HideLabel1()
List1.Label1.Visible = False
End Sub
citovat

Strana:  1 2   další »

Uživatelské menu

Nejste přihlášen(a)
avatar\n

Menu

On-line nástroje

Formulář Faktura

Formulář Faktura IV

Oblíbený formulář Faktura byl vylepšen a rozšířen.
Více se dočtete zde.

Aktivní diskuse

rozpis zápasů hráčů pro utkání dvou týmů

Anonym • 25.5. 11:54

Hromadné přepsání

elninoslov • 24.5. 10:29

Hromadné přepsání

Nomi • 24.5. 8:32

Index - každý rok začít od 1 Power Query

Alfan • 23.5. 9:17

nepřímý odkaz

elninoslov • 23.5. 0:00

nepřímý odkaz

bordov • 22.5. 18:35

vrácené hodnoty

Anonym • 22.5. 15:46