Vlož přílohu, ať víme jaké tlačítko, jak velké má být a kde má být.citovat
excel, návod, tipy, funkce, makra, vba, tabulky, šablony
Tipy a triky pro Excel a makra VBA
< návrat zpět
Téma: Pozice ovl.prvků na listu
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
myslel jsem to obecně jak zafixovat pozici, ale přesto posílám
Příloha: 
48722_pozice.xls (15kB, staženo 18x)
citovat48722_pozice.xls (15kB, staženo 18x)No nic já si to mezi tím vymyslel.
Ale v tvém případě to bude takto:
CommandButton1.Top = 12
CommandButton1.Left = 12
Ale v tvém případě to bude takto:
CommandButton1.Top = 12
CommandButton1.Left = 12
Příloha: 
48723_tlacitko.zip (14kB, staženo 17x)
citovat48723_tlacitko.zip (14kB, staženo 17x)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
OLÉ dalo by se říct :-)
Příloha: 48725_pozice.xls (25kB, staženo 17x)
citovat48725_pozice.xls (25kB, staženo 17x)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 17x)
citovat48727_pozice2.xls (33kB, staženo 17x)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
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 17x)
citovat48729_48727_pozice2.xls (40kB, staženo 17x)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
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)
\n
\nMenu
Formulář Faktura
Formulář Faktura IV
Oblíbený formulář Faktura byl vylepšen a rozšířen.
Více se dočtete zde.
Helios iNuvio
Používáte podnikový systém Helios iNuvio? Potřebujete pomoci se správou nebo vyvinout SQL proceduru? Více informací naleznete na stránce Helios iNuvio.
RSS nejnovější články