Compartilhar via

Célula DrawingScale (Seção Page Properties)

  • Artigo

Representa o valor da unidade de desenho na escala de desenho atual. A escala de desenho da página representa a razão da unidade de página mostrada na célula PageScale em relação à unidade de desenho mostrada na célula DrawingScale.

É possível configurar a célula DrawingScale para alterar as unidades das réguas de uma página de um programa. Este é um exemplo de como alterar as unidades de medida de um programa de polegadas para centímetros. Nesse caso, o método ConvertResult é utilizado para manter a mesma distância, mas com unidades diferentes.

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

Determine o sistema de medidas em um desenho examinando a propriedade Units da célula DrawingScale. Depois de executar a macro, a instrução a seguir, executada na janela Imediata do Visual Basic Editor, retornará Verdadeiro.

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

Comentários

Esta célula corresponde às configurações da caixa de diálogo Configurar Página (clique na seta Configurar Página na guia Página Inicial ).

As unidades da fórmula na célula DrawingScale determinam as unidades de medida utilizadas pelas réguas na janela de desenho. Se você não quiser alterar também a dimensão do desenho, siga um destes procedimentos:

  • Mantenha a mesma distância indicada na célula DrawingScale, mas com unidades diferentes.

  • Altere a distância indicada na célula PageScale pelo mesmo fator utilizado em DrawingScale.

Para obter uma referência para a célula Color pelo nome, a partir de outra fórmula ou programa que use a propriedade CellsU, utilize:

Valor
Nome da célula:
DrawingScale

Para obter uma referência para a célula DrawingScale pelo índice, a partir de um programa, use a propriedade CellsSRC com os seguintes argumentos:

Valor
Índice da seção:
visSectionObject
Índice de linha:
visRowPage
Índice de célula:
visPageDrawingScale