Compartir a través de

Celda DrawingScale (Sección de propiedades de página)

  • Artículo

Representa el valor de la unidad de dibujo en la escala de dibujo actual. La escala de dibujo de la página es la relación entre la unidad de la página mostrada en la celda PageScale y la unidad de dibujo que aparece en la celda DrawingScale.

Puede establecer la celda DrawingScale para cambiar las unidades de las reglas de una página de un programa. A continuación, figura un ejemplo de cómo cambiar de unidades de pulgadas a centímetros para un programa. En este caso, se utiliza el método ConvertResult para mantener la misma distancia, pero en unidades distintas.

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

Puede determinar el sistema de medida de un dibujo observando la propiedad Units de la celda DrawingScale. Tras ejecutar la macro anterior, la siguiente instrucción ejecutada en la ventana Inmediato del Editor de Visual Basic devolverá el valor True.

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

Comentarios

Esta celda corresponde a la configuración del cuadro de diálogo Configurar página (haga clic en la flecha de Configurar página en la ficha Inicio).

Las unidades de la fórmula de la celda DrawingScale determinan las unidades de medida utilizadas por las reglas en la ventana de dibujo. Si no desea cambiar la escala del dibujo, puede seguir uno de estos procedimientos:

  • Mantener la misma distancia expresada en la celda DrawingScale, pero en unidades distintas.

  • Cambiar la distancia expresada en la celda PageScale en la misma proporción que cambie la celda DrawingScale.

Para obtener una referencia a la celda DrawingScale por su nombre desde otra fórmula, o desde un programa mediante la propiedad CellsU, utilice:

Valor
Nombre de celda:
DrawingScale

Para obtener una referencia a la celda DrawingScale por su índice desde un programa, utilice la propiedad CellsSRC con los argumentos siguientes:

Valor
Índice de sección:
visSectionObject
Índice de fila:
visRowPage
Índice de celda:
visPageDrawingScale