Demo: Fix/unfix pan/zoom with scripting
To fix zoom:
SetValue[a,CopyFreeObject(x(Corner(1)))]
SetValue[b,CopyFreeObject(y(Corner(1)))]
SetValue[c,CopyFreeObject(x(Corner(3)))]
SetValue[d,CopyFreeObject(y(Corner(3)))]
ZoomIn(a,b,c,d)
and to unfix again:
ZoomIn(0,0,0,0)