topic Zoom WIndow points in VBA Forum

Zoom WIndow points

Anonymous — Thu, 09 Mar 2006 21:39:48 GMT

I am trying to put together some X and Y values as coordinates for a Zoom Window. I've gotten the X and Y values by running through a series of objects and getting their minimum and maximum coordinates.

I keep getting an error "Invalid argument LowerLeft in ZoomWindow"

Here's what I'm trying to use... (minX, etc are from related sub)

Sub ZoomWinPts(minX, minY, maxX, maxY)
Dim zwp1(0 To 2) As Variant
Dim zwp2(0 To 2) As Variant
zwp1(0) = minX
zwp1(1) = minY
zwp1(2) = 0
zwp2(0) = maxX
zwp2(1) = maxY
zwp2(2) = 0
Application.ZoomWindow zwp1, zwp2
End Sub

Anyone want to clue me in on where I'm going wrong?

Re: Zoom WIndow points

Anonymous — Thu, 09 Mar 2006 21:46:41 GMT

You need to use Doubles, not Variants.....

wrote in message news:5106778@discussion.autodesk.com...
I keep getting an error "Invalid argument LowerLeft in ZoomWindow"

Sub ZoomWinPts(minX, minY, maxX, maxY)
Dim zwp1(0 To 2) As Variant
Dim zwp2(0 To 2) As Variant

Anyone want to clue me in on where I'm going wrong?

Re: Zoom WIndow points

Anonymous — Thu, 09 Mar 2006 21:54:52 GMT

Sweet! That's perfect, thanks.