ScaleRectangle Example

Description

Zooms in on the map by 50%

VBScript Code

	Copy Code
Sub ZoomIn Dim objRect 'Get the current map extent Set objRect = Application.Map.Extent 'Scale the extent by 50% Call objRect.ScaleRectangle(0.5) 'Set the new map extent Application.Map.Extent = objRect Set objRect = Nothing End Sub

Copy Code

Sub ZoomIn
  Dim objRect
  'Get the current map extent
  Set objRect = Application.Map.Extent
  'Scale the extent by 50%
  Call objRect.ScaleRectangle(0.5)
  'Set the new map extent
  Application.Map.Extent = objRect
  Set objRect = Nothing
End Sub

JScript Code

	Copy Code
function ZoomIn() { // Get the current map extent var objRect = Application.Map.Extent; // Scale the extent by 50% objRect.ScaleRectangle(0.5); // Set the new map extent Application.Map.Extent = objRect; objRect = null; }

Copy Code

function ZoomIn()
{
  // Get the current map extent
  var objRect = Application.Map.Extent;
  // Scale the extent by 50%
  objRect.ScaleRectangle(0.5);
  // Set the new map extent
  Application.Map.Extent = objRect;
  objRect = null;
}