using ModelView::Scale2, but it doesn't center

Here is a fairly simple macro, hosted my Matt Lombard on hiswebpage. It uses ModelView::Scale2 to resize the zoom on the screento a preset value. This makes it so items on your screen are"lifesize". Ever since SW2007, it does not resize to the center ofthe object, so I always had to pan to get it in the middle of thescreen. That was ok until SW2008, where I no longer havescrollbars.

I'm not nessisarily interested in using scrollbars, this is theonly instance where I would use it, and I don't use this macro veryoften. I searched the API help, but could not find a function thatwould also center on the screen. Anyone know how to do this?

'******************************************************************************
' SCALE1.swb
' Macro written by Joe Jones joe@nhcad.com
'
' NEW HAMPSHIRE CAD www.nhcad.com
'
' Mechanical Design and Custom Programming
'******************************************************************************

Dim swApp As Object
Dim modelDoc As Object
Dim modelView As Object

Sub main()
Set swApp = CreateObject("SldWorks.Application")
Set modelDoc = swApp.ActiveDoc
Set modelView = modelDoc.activeView

modelView.Scale2 = 0.84
modelDoc.graphicsRedraw2
End Sub
SolidworksApi macros