Strecke von Umriss ermitteln

[koter]

Hallo Olaf, Hallo Norre,

wie bei den Objekteigenschaften kann auch ein Makro (ohne Weiteres) nicht alle Objekttypen messen:



Bei Bitmaps oder Hilfslinien wäre das wahrscheinlich auch nicht sinnvoll.
 

Code:

Sub WieLang()
   On Error GoTo Fehler
   Dim vbM As Integer
   Dim M1 As String, M2 As String
   Dim s As Shape
   Dim sr As ShapeRange
   Dim tempC As Curve
   ActiveDocument.Unit = cdrMillimeter
   vbM = 64
   M2 = ""
   Set tempC = New Curve
   Set sr = ActiveSelectionRange
   For Each s In sr
       tempC.AppendCurve s.DisplayCurve
   Next
   M1 = Round(tempC.Length, 2) & " mm" & vbCrLf
   MsgBox M1 & M2, vbM, "Länge"
   Set tempC = Nothing
   Exit Sub
Fehler:
   M2 = "(Messung unvollständig)"
   vbM = 16
   Resume Next
End Sub

Wenn bestimmte Objekttypen in die Messung einbezogen werden sollen, müsste ich wissen welche.
Ich könnte dann versuchen, das Makro zu erweitern.

Gruß

Koter