DrawingScale cell (Page Properties section)

       Rows

Represents the value of the drawing unit in the current drawing scale. The drawing scale for the page is the ratio of the page unit shown in the PageScale cell to the drawing unit.

Remarks

This cell corresponds to the settings in the Page Setup dialog box (click Page Setup on the File menu).

The units of the formula in the DrawingScale cell determine the measurement units used by the rulers in the drawing window. If you do not want to also change the drawing's scale, you can do one of the following:

• Keep the distance expressed in the DrawingScale cell the same but express it in different units.

• Change the distance expressed in the PageScale cell by the same factor that you change DrawingScale.

To reference the DrawingScale cell by name from another formula, or from a program using the Cells property, use:

Cell name:

DrawingScale

To reference the DrawingScale cell by index from a program, use the CellsSRC property with the following arguments:

Section index:	visSectionObject
Row index:	visRowPage
Cell index:	visPageDrawingScale

Example

You can set the DrawingScale cell to change the units of a page's rulers from a program. Here's an example of changing the measurement units from inches to centimeters from a program. In this case we use the ConvertResult method to keep the distance the same but express it in different units.

Public Sub SetActivePageMeasurementToCM()
   Dim dsCell As Visio.Cell
   Set dsCell = ActivePage.PageSheet.Cells("DrawingScale")
   dsCell.Result(visCentimeters) = _
   Application.ConvertResult _ 
      (dsCell.ResultIU,visInches,visCentimeters) 
End Sub

You can determine the measurement system in a drawing by examining the Units property of the DrawingScale cell. After running the above macro the following statement executed in the Visual Basic Editor Immediate window will return True.

debug.print  ActivePage.PageSheet.Cells("DrawingScale").Units = _ 
   visCentimeters