How to create Floating textbox?

**Sanju!Ekta** · 13-07-2011

Please help me I want to have a floating text box. My main motive of this requirement is that I can scroll through the data and see to see the legends without any hesitations. I even tried freezing the panes, it did not help. I want Floating text box. What should I do? Any idea how to create it?

**Shreevats** · 13-07-2011

To create a Floating text box add a TextBox from the Controls ToolBox and in the Worksheet_SelectionChange event add the following:

Code:

Option Explicit

Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
    With ActiveWindow.VisibleRange
        Me.TextBox1.Top = .Top
        Me.TextBox1.Left = .Left
    End With
End Sub

**Villiers** · 13-07-2011

Add the the following code to let your Floating box adjust properly.

Code:

If Me.Txt1.Left <> Abs(Me.CurrentSectionLeft) 
Then Me.Txt1.Left = Abs(Me.CurrentSectionLeft) + 200

And for comparing with the database the code will be:

Code:

Option Compare Database
Option Explicit
Dim BoxLeftIs As Long
---------------------------------------------------------

Private Sub Form_Open(Cancel As Integer)
    BoxLeftIs = Me.Txt1.Left
End Sub

**Ronchi** · 13-07-2011

Here below is in advanced Vba for you. Take reference from it and apply that in your code.

Code:

Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
With ActiveWindow.VisibleRange
' subsitute the name of the Textbox in question
TextBox1.Top = .Top + 5
TextBox1.Left = .Left + .Width - TextBox1.Width - 45
' 45 seems to be the right number of points--use fewer if you've hidden the scrollbars or the row headings
End With
End Sub

**Dwarner** · 13-07-2011

I have an advanced code for you. If you interested in mouse move on floating text then follow the below. It works since I have personally tried and experienced it.

Code:

onClipEvent(mouseMove) 
{

    this._x = _root._xmouse;

    this._y = _root._ymouse;

    updateAfterEvent();

}

**Steyn** · 15-07-2011

To also add toll tip in your floating box then copy paste the below vba in your actual source to implent those.

Code:

on (rollOver) {

    _root.tooltip.msg = "the text you want to appear";

    _root.tooltip.gotoAndStop(2);

}

on (rollOut) { // hide it again

    _root.tooltip.gotoAndStop(1); 
}