MS Excel

Politik by pravil, že jde o hluboké nedorozumění. Vůbec jsem nechtěl být útočný. Vycházím z toho, že naše příspěvky do fóra čtou i jiní než my dva. Pokládám za rozumné, aby v příspěvcích pokud možno nebyly zbytečné chyby, které snižují jejich využitelnost. Nefunkčnost sešitu pokládám za zbytečnou chybu. To je vše, co jsem chtěl říct.
Za jakýkoliv osobní nádech mých příspěvků se dozadu i dopředu omlouvám. Jediným jejich smyslem jsou kvalitní služby tohoto fóra. Za tu chvilku, co tady jsem, si u mne toto fórum získalo důvěru a úctu.
A co se týká reakcí - co jiného než reakce může doložit, že si příspěvek někdo přečetl a že dokonce měl chuť odpovědět. Reakce jsou podstatou diskuze. Uznávám, že by neměly dráždit.citovat

Nicméně by mne zajímalo, proč se u Vás Top=1.5.

Zaprvé by mělo křičet o nedefinované proměnné Top
Zadruhé - když už nekřičí - měla by být přece inicializována jako 0.

Zřejmě převzato z nějakého objektu?citovat

Vracím se k poznámce elCHa o možnosti využít vlastnosti .Tag aktivních prvků pro jednodušší práci při psaní formulářů s proměnlivou velikostí. To je dobrý nápad, který jsem s úspěchem zabudoval do svého dema. Navíc jsem události propracovanějšího druhého formuláře doplnil o řádky kódu pro změny velikosti na výšku. Jen jsem je "zaremoval", protože je ten formulář nevyužívá.
Při použití jako vzoru pro jinou úlohu se to může hodit. Upravenou verzi posílám v příloze.citovat

@eLCHa

Tak se to vzalo z userform:

Inset UserForm, insert Label1.

Code:


Private Sub UserForm_Initialize()
Label1.Caption = "Top :" & Top & vbCrLf & _
"Left :" & Left & vbCrLf & _
"InsideWidth :" & InsideWidth & vbCrLf & _
"Caption :" & Caption & vbCrLf
End Sub
citovat