Bude potrebné zachytiť udalosti, kedy má dôjsť k prekresleniu textboxu, ako vhodná mi príde Worksheet_SelectionChange.
Do nej potom zakomponovať (prípadne z nej volať) niečo v tvare:Sub RedrawTb()
Dim ShTb As Shape, cell As Range
Set ShTb = ActiveSheet.Shapes("TextBox 1")
Set cell = Cells(ActiveWindow.ScrollRow, ActiveWindow.ScrollColumn)
ShTb.Top = cell.Top + 10
ShTb.Left = cell.Left + 10
Set ShTb = Nothing
Set cell = Nothing
End SubS konštantnou časťou hodnoty vlastnosti Top a Left je potrebné si pohrať, ja ten textbox dostanem do rohu obrazovky na ntb pri hodnotách
ShTb.Top = Cells(ActiveWindow.ScrollRow, 1).Top + 300
ShTb.Left = Cells(1, ActiveWindow.ScrollColumn).Left + 800
bude záležať asi na rozlíšení a určite na zväčšení súboru. Kód, ktorý by to všetko mal ošetriť (plus situáciu, kedy okno nebude maximalizované atd), by ale musel byť už krapet zložitejší a mám za to, že hore uvedený by mal pre bežné použitie plne postačovať potrebám.citovat
Do nej potom zakomponovať (prípadne z nej volať) niečo v tvare:Sub RedrawTb()
Dim ShTb As Shape, cell As Range
Set ShTb = ActiveSheet.Shapes("TextBox 1")
Set cell = Cells(ActiveWindow.ScrollRow, ActiveWindow.ScrollColumn)
ShTb.Top = cell.Top + 10
ShTb.Left = cell.Left + 10
Set ShTb = Nothing
Set cell = Nothing
End SubS konštantnou časťou hodnoty vlastnosti Top a Left je potrebné si pohrať, ja ten textbox dostanem do rohu obrazovky na ntb pri hodnotách
ShTb.Top = Cells(ActiveWindow.ScrollRow, 1).Top + 300
ShTb.Left = Cells(1, ActiveWindow.ScrollColumn).Left + 800
bude záležať asi na rozlíšení a určite na zväčšení súboru. Kód, ktorý by to všetko mal ošetriť (plus situáciu, kedy okno nebude maximalizované atd), by ale musel byť už krapet zložitejší a mám za to, že hore uvedený by mal pre bežné použitie plne postačovať potrebám.citovat
RSS nejnovější články