DrawingScale 儲存格 (Page Properties 區段)

以目前繪圖比例表示繪圖單位的值。 頁面的繪圖比例是頁面單位與繪圖單位的比例，其值顯示在 DrawingScale 儲存格中。

您可以設定 DrawingScale 儲存格來變更程式中頁面尺規的單位。 下列為從程式中將度量單位從英吋變更為公分的範例。 在此例中我們使用 ConvertResult 方法，以保留相同的距離，但是以不同的單位表示。

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 

您可以檢查 DrawingScale 儲存格的 Units 屬性，來決定繪圖中的度量系統。 執行上述巨集後，在 Visual Basic Editor Immediate 視窗中執行的下列陳述式會傳回 True。

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

註解

此儲存格會對應到 [頁面設定] 對話方塊 (按一下 [常用] 索引標籤上的 [頁面設定] 箭號) 中的設定。

DrawingScale 儲存格中公式的單位決定了繪圖視窗中尺規所使用的度量單位。 如果不希望同時變更繪圖的比例，請執行下列其中一項：

• 保留 DrawingScale 儲存格中的距離，但以不同的單位表示。

• 以變更 DrawingScale 的相同因素來變更 PageScale 儲存格中表示的距離。

若要依名稱從其他公式，或是從使用 CellsU 屬性的程式，取得 DrawingScale 儲存格的參考，請使用：

	值
儲存格名稱：	DrawingScale

若要依索引從程式取得 DrawingScale 儲存格的參考，請使用具有下列引數的 CellsSRC 屬性：

	值
區段索引：	visSectionObject
列索引：	visRowPage
儲存格索引：	visPageDrawingScale