Freigeben über

Zelle "DrawingScale" (Abschnitt "Page Properties")

  • Artikel

Stellt den Wert der Zeichnungseinheit im aktuellen Zeichnungsmaßstab dar. Der Zeichnungsmaßstab für die Seite ist das Verhältnis der in der Zelle PageScale angezeigten Seiteneinheit zur in der Zelle DrawingScale angezeigten Zeichnungseinheit.

Sie können die Zelle DrawingScale festlegen, um die Einheiten der Lineale einer Seite aus einem Programm zu ändern. Hier sehen Sie ein Beispiel für die Änderung der Maßeinheiten von Zoll in Zentimeter aus einem Programm. In diesem Fall verwenden wir die ConvertResult-Methode , um den Abstand gleich zu halten, aber in verschiedenen Einheiten auszudrücken.

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

Sie können das Maßsystem in einer Zeichnung bestimmen, indem Sie die Units-Eigenschaft der DrawingScale-Zelle untersuchen. Nach dem Ausführen des obigen Makros gibt die folgende Anweisung, die im Visual Basic Editor Direktfenster ausgeführt wird, True zurück.

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

Hinweise

Diese Zelle entspricht den Einstellungen im Dialogfeld Seite einrichten (klicken Sie auf der Registerkarte Start auf den Pfeil neben Seite einrichten).

Die Einheiten der Formel in der Zelle DrawingScale bestimmen die Maßeinheiten für die Lineale im Zeichnungsfenster. Wenn Sie den Maßstab der Zeichnung ebenfalls nicht ändern möchten, gehen Sie wie folgt vor:

  • Ändern Sie den in der Zelle DrawingScale aufgeführten Abstand nicht, sondern verwenden Sie andere Einheiten dafür.

  • Ändern Sie den in der Zelle PageScale aufgeführten Abstand um denselben Faktor, den Sie zum Ändern von DrawingScale verwenden.

Um einen Verweis auf die DrawingScale-Zelle anhand des Namens aus einer anderen Formel oder aus einem Programm mit der CellsU-Eigenschaft abzurufen, verwenden Sie Folgendes:

Wert
Zellenname:
DrawingScale

Um einen Verweis auf die DrawingScale-Zelle nach Index aus einem Programm abzurufen, verwenden Sie die CellsSRC-Eigenschaft mit den folgenden Argumenten:

Wert
Abschnittsindex:
visSectionObject
Zeilenindex:
visRowPage
Zellenindex:
visPageDrawingScale