|
Zdravím, jmenovče! Zkusil bych souřadnice vypočítat
Dim Xpozice, Ypozice As Integer
' vodorovně:
Xpozice = Me.Left + Me.Width / 2 - 176 ' -176 je 1/2 šířky boxu
' svisle:
Ypozice = Me.Top + Me.Height / 2 - 70
' výška boxu je min. 150, je-li více textu zvětšuje se
' volil bych umístění výše k hornímu okraji formuláře, např.:
Ypozice = Me.Top + Me.Height / 4 ' od horní 1/4 formuláře dolu
InputBox("Prompt", "Titulek", "Výchozí hodnota", Xpozice, Ypozice)
|