RE: Resize Shape Window

Tech-Archive recommends: Fix windows errors by optimizing your registry

hi

thanks for the reply.but it's seem the height of the shapes window dosen't
chnage. can any tell me how to restrict the number of rows in the sahape
window to 2 when the shape window is docked bottom.

dinesh


"JuneTheSecond" wrote:

I forgot to paste my test code. Sorry.

Sub ChangeHeight(NewHeight As Long)
Dim mywin As Visio.Window
Dim nLeft As Long, nTop As Long, nWidth As Long, nHeight As Long
On Error GoTo ERRMSG

Set mywin = ActiveWindow.Windows.ItemFromID(1669)
mywin.GetWindowRect nLeft, nTop, nWidth, nHeight
mywin.WindowState = visWSFloating
nHeight = NewHeight
mywin.SetWindowRect nLeft, nTop, nWidth, nHeight
mywin.WindowState = visWSDockedBottom
Exit Sub
ERRMSG:
MsgBox Err.Description
End Sub
--
JuneTheSecond

New shapes for visual calculation.
http://www.geocities.jp/visualcalculation/english/index.html


"JuneTheSecond" wrote:

Here is my test code in VBA. This macro move the shape window
to the bottom.
--
JuneTheSecond

New shapes for visual calculation.
http://www.geocities.jp/visualcalculation/english/index.html

.