Displaying a large amount of text in one cell by hovering.

[hotcomper]

Good morning, I use a workbook that basically has a few cells with just a few words and some that contain a lot of text. When we use this for presenting we sometimes need to see the full content of the cell. Is there a quick way of displaying this? Ideally I would just want to hover over the cell and the full content is displayed without having to click in.
TIA

 

[AlanSidman]

In the attached, I have placed a form that is opened when you double click on a cell. The form opens and contains the contents of the cell you double click on. Additionally, you can zoom the size of the font in the form for easier reading.

 

[Chihiro]

I don't believe there's native event trigger on mouse hover.

I'd just use selection change, or like Alan did, double click.

Here's sample code using Range.Comment.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim cmt As Comment
Static oldRange As Range
If Target.Count > 1 Then Exit Sub
If Len(Target.Value) > 15 Then
    Set cmt = Target.Comment
    If cmt Is Nothing Then
        Set cmt = Target.AddComment
    End If
    With cmt
        .Text Target.Text
        .Shape.TextFrame.AutoSize = True
        .Visible = True
    End With
End If
If Not oldRange Is Nothing Then
    Set cmt = oldRange.Comment
    If Not cmt Is Nothing Then
        cmt.Delete
    End If
End If
Set oldRange = Target.Cells(1, 1)
End Sub

Note: this will probably show comment in single line. May want to adjust height of TextFrame as needed.

 

[NARAYANK991]

Hi ,

This technique can be used to good effect :

http://optionexplicitvba.blogspot.in/2011/04/rollover-b8-ov1.html

Narayan