Da ich noch nichts dergleichen gefunden habe und ich es mir jetzt schnell selbst zusammengeschrieben habe dachte ich mir ich poste den Code hier auch gleich falls es jemand benötigt
Der Code geht alle Bemaßungen in der Zeichnung durch und prüft ob die Werte überschrieben worden sind.
Wenn ja nimmt es den Haken raus und stellt die Kommazahl auf 2 Kommastellen.
Code:
Public Sub DimensionsValueOverriddenProcess()
Dim oDoc As DrawingDocument
Set oDoc = ThisApplication.ActiveDocument
Dim i As Integer
For i = 1 To oDoc.Sheets.item(1).DrawingDimensions.Count
' Loop though all dimensions in drawing
' Bug: If the document have more than one sheet it will always pick the first sheet
If Not oDoc.Sheets.item(1).DrawingDimensions.item(i) Is Nothing Then
' If the iterator is not nothing = is something
If TypeOf oDoc.Sheets.item(1).DrawingDimensions.item(i) Is DrawingDimension Then
' If the iterator is a DrawingDimension
If oDoc.Sheets.item(1).DrawingDimensions.item(i).ModelValueOverridden = True Then
' Only act if it is Overridden
oDoc.Sheets.item(1).DrawingDimensions.item(i).ModelValueOverridden = False
oDoc.Sheets.item(1).DrawingDimensions.item(i).Precision = 2
End If
End If
End If
Next
End Sub
------------------
Grüße aus Wien
Philipp
Email: Base64 Encoded:
cGhpcHNfOTJAeWFob28uZGU=
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP