• Úvod
• Excel návod
• Excel šablony
• Nástěnka
• Mobility
• Tipy na výlet
• Galerie
• Fórum

MS Excel

Téma: Pozice ovl.prvků na listu

Zaslal/a Marekh 1.11.2020 13:02

Zdravím, dala by se zajistit trvalá pozice prvků např.tlačítka ? Tzn. aby se při přechodu na další sloupce za hranici obrazovky "neschoval" ?

Napadá mě jen vlastní formulář, ale tam nevím jak docílit něco jako UserForm1.Caption.Height = 0

Jméno
Kontrola
Text
	Ukázka

---

Lugr(1.11.2020 13:22)#048721

Vlož přílohu, ať víme jaké tlačítko, jak velké má být a kde má být.citovat

Marekh(1.11.2020 13:31)#048722

myslel jsem to obecně jak zafixovat pozici, ale přesto posílám

Příloha: 48722_pozice.xls (15kB, staženo 16x)

citovat

Lugr(1.11.2020 13:43)#048723

No nic já si to mezi tím vymyslel.

Ale v tvém případě to bude takto:

CommandButton1.Top = 12
CommandButton1.Left = 12

Příloha: 48723_tlacitko.zip (14kB, staženo 15x)

citovat

Marekh(1.11.2020 13:54)#048724

tohle vím, ale to jsem nemyslel. Fixace má být trvalá. Vyberu popř. šipkami dojedu na "Z1" a tl. musí být stále na svém místě.citovat

Marekh(1.11.2020 13:59)#048725

OLÉ dalo by se říct :-)

Příloha: 48725_pozice.xls (25kB, staženo 15x)

citovat

Marekh(1.11.2020 14:52)#048727

hmm, po vložení OLE metody mi to hází chybu. Pokud OLE metodu nezadám tl. udělá to co má. Kde by mohl být problém ?

Příloha: 48727_pozice2.xls (33kB, staženo 14x)

citovat

Lugr(1.11.2020 16:13)#048729

Tohle funguje, ale musíš vždy po posunutí kliknout do libovolné buňky.

Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
With Cells(Windows(1).ScrollRow, Windows(1).ScrollColumn)
CommandButton1.Top = .Top
CommandButton1.Left = .Left + 300
End With
End Sub

Příloha: 48729_48727_pozice2.xls (40kB, staženo 15x)

citovat

Marekh(1.11.2020 19:07)#048732

Díky. Ještě jsem dohledal a nakonec použil :

Dim cmdbtn As Object

Set cmdbtn = ActiveSheet.Shapes("CommandButton1")

cmdbtn.Top = 5
cmdbtn.Left = Target.Left

Funguje to celkem dobře, ale kdyby tak šlo dát do podmínky že když sloupec E je na pozici 1 (úplně vlevo v zobrazení na monitoru) tak ... by to bylo onocitovat

Uživatelské menu

Nejste přihlášen(a)

• přihlásit
• registrace

\n

Menu

On-line nástroje

Formulář Faktura

Aktivní diskuse