MS Excel

Dík! To je krásné, čistě udělané a prakticky dokonalé řešení. To plně platí z pohledu té demonstrace. Horší je to s možností její aplikace. Ta demonstrace honí strašně moc zajíců najednou, obsahuje kopec API funkcí a vyznat se v tom, co za co může, pro mne bude oříšek (s velikostí nejmíň pořádného kokosového).
Jen velmi nerad používám černé skříňky, u kterých neumím rozlišit smysl věcí. Bullen je vynikající machr typu David Copperfield a své králíky tahá z klobouku s velkou grácií. Už se vidím, až se to pokusím udělat sám. Nejspíš z toho bude groteska...
Našel jsem alternativu v manuálu od Walkenbacha, který se odvolává na dalšího mága, Andy Popa. Jde o řešení bez API funkcí, což je lákavé. Někde cestou do českého vydání bohužel došlo ke zmatení popisu řešení, takže návod je bohužel nefunkční.
Mám teď dvě možnosti: rozluštit funkční, ale nečitelný kód od Bullena, nebo rozluštit čitelný, ale nefunkční text od Walkenbacha. A teď, babo, raď! citovat

Je to jednoduché.

1. Je třeba povolit oknu formuláře měnit velikost:

Např.:


Public Const WS_THICKFRAME = &H40000
Public Const WS_SIZEBOX = WS_THICKFRAME

Private Declare PtrSafe Function FindWindow Lib "user32" Alias "FindWindowA" _
(ByVal lpClassName As String, ByVal lpWindowName As String) As LongPtr

Private Declare PtrSafe Function GetWindowLongPtr Lib "user32" Alias _
"GetWindowLongPtrA" (ByVal hWnd As LongPtr, ByVal nIndex As Long) As LongPtr
Private Declare PtrSafe Function SetWindowLongPtr Lib "user32" Alias _
"SetWindowLongPtrA" (ByVal hWnd As LongPtr, ByVal nIndex As Long, ByVal _
dwNewLong As LongPtr) As LongPtr

' WindowCaption = userform.caption
Sub PovolitZmenuVelikosti(WindowCaption As String)
ListaNastavitStyl WindowCaption, WS_SIZEBOX
End Sub

Sub ListaNastavitStyl(WindowCaption As String, Styl As Long)
Dim hWnd As Long
Dim exLong As Long
' Najít okno
hWnd = FindWindow(vbNullString, WindowCaption)
' Přečíst styl okna
exLong = GetWindowLongPtr(hWnd, -16)
' Pokud vlastnost není nastavena, tak nastavit
If (exLong And Styl) = 0 Then
SetWindowLongPtr hWnd, -16, exLong Or Styl
End If
End Sub


(Obdobný kód se dá najít v souboru od Hav-Rana)

2. Pak je obvykle vhodné při změně velikosti okna upravit velikost a pozici prvků. - událost UserForm_Resize. Strategií a fíglů je docela dost.citovat

Jak jsem slíbil, jsem tu a se mnou demo v příloze. Obsahuje dva formuáře:
- první z nich jen ukazuje, jak pracuje změna velikosti formuláře na výšku i na šířku. Vnitřní boxy pracují ve třech módech: (1) pevný: box se změnou velikosti formuláře nemění a může být zmenšením formuláře částečně i úplně zakryt, stejně jako se může teprve po zvětšení formuláře objevit; (2)ukotvený: levý horní roh boxu má kotvu, pravý dolní roh se stěhuje spolu s úchytem (box mění velikost); (3) plovoucí: box se stěhuje spolu s úchytem a zachovává si svou velikost.
- druhý formulář mění pouze svou šířku a obsahuje jak ukotvené, tak plovoucí prvky. Formulář je použit pro úlohu FormulaTranslator, která byla předmětem diskuze na fóru před pár dny. Jeho specialitou je skrytí excelské aplikace po dobu zobrazení formuláře.
Demo jsem psal se záměrem zjednodušit život ostatním, kdyby je jim formulář s proměnnou velikostí hodil do krámucitovat

to elCHa: Mě to neskácí, ale pokládám za přirozené, že zaslané sešity fungují. Ten formulář má úplně blbou chybu a už po prostém UserForm1.Show dostanu ránu do čenichu. Alespoň otevřít by se měl!citovat

@eLCHa

Chybka je v Sub Userform_Initialize()

v řádku
.ZOrder Top

U mne je v Top hodnota 1.5 a to se nelíbí.citovat