animating hide /unhide columns

[marcs]

Is there a reasonably simple way of animating hide /unhide columns so that users can see what is happening, rather than the sudden jumping about which appears to happen?

All help appreciated

 

[HalfAce]

Hello marcs,
I'm not sure what you mean by "animating hide /unhide columns", or by "the sudden jumping about".

Are you talking about having them slide in and out like you can do with a menu or something? (If so, then I don't know if it qualifies as being "reasonably simple", but you can try this in a standard module.)

Sub ShrinkColumns()
Dim x As Integer, wait As Double, go As Double
Dim ColWide
'(Change to the column(s) of choice and/or set to how wide your columns are)
ColWide = Columns("B:C").ColumnWidth
For x = ColWide To 0.1 Step -1
  With Columns("B:C")
    .ColumnWidth = x
    wait = 0.005
    go = Timer
    Do While Timer - go < wait
    Loop
  End With
Next x
End Sub




Sub GrowColumns()
Dim x As Integer, wait As Double, go As Double
For x = 0.1 To 15 '(Set to how wide you want the columns to get)
  With Columns("B:C") 'Change to the column(s) of choice
    .ColumnWidth = x
    wait = 0.005
    go = Timer
    Do While Timer - go < wait
    Loop
  End With
Next x
End Sub

It doesn't make them truly hidden (they're still 0.1 wide) but it makes them so at least the user can't see them.
Hope it helps.

 

[marcs]

HalfAce

that's absolutely splendid, exactly what I was after

Many thanks

Heimir