How fill column quickly

[Ken Johnson]

In terms of processor eMacs are a little iffy depending on which specific
flavor but the iMacs should have sufficient spunk. Neither, however, shipped
with more than 256 MB RAM, so if they haven't been built up beyond stock
memory config that is the most likely reason for the slowdown.

Another definite factor is that most models in both of those lines were
somewhat limited on graphics support.

Regards |:>)
Bob Jones
[MVP] Office:Mac

Hi Bob,

The iMac I tried out had 1 GB Ram.

I'm interested in finding out how the following example of the way I go
about moving shapes will work on your Mac.
When I run it on a new IBM ThinkCentre (Pentium 4 HT) a blue 50 pt
square rotates as it moves left to right and down the screen at 45
degrees, taking around 17 seconds to reach the bottom of the screen.

When I run it on a Mac, if the mouse is not moved, the square appears
in the top left corner, then a short time later it just disappears.
Continual movement of the mouse is required for the Mac to produce the
same result as the PC (BTW adding Application.ScreenUpdating = True
makes no difference)...


Public Sub Move()
Dim MyShape As Shape
Dim I As Long
Dim Speed As Single
Speed = 10
Set MyShape = ActiveSheet.Shapes.AddShape( _
msoShapeRectangle, 0, 0, 50, 50)
MyShape.Fill.ForeColor.SchemeColor = 4
For I = 1 To Int(ActiveWindow.Height _
- MyShape.Height) * Speed
With MyShape
.Left = I / Speed
.Top = I / Speed
.Rotation = 5 * I / Speed
Calculate
DoEvents
End With
Next I
MyShape.Delete
End Sub

Ken Johnson