Sub MittenUmriss_wird_zu_InnenObjekt() 
    ' beim ausgewählten Objekt wird der "MittenUmriß" zu einer 
    ' Art "InnenUmriß" gewandelt - nämlich als eigenständiges Objekt 
    Dim OrigSelection As ShapeRange 
    Dim farbe As New Color 
    Dim s1, s2 As Shape 
    Set OrigSelection = ActiveSelectionRange 
    breite = OrigSelection(1).Outline.Width 
    farbe.CopyAssign OrigSelection(1).Outline.Color 
    OrigSelection.SetOutlineProperties (breite * 2), OutlineStyles(0) 
    Set s1 = OrigSelection(1).Outline.ConvertToObject 
    Set s2 = s1.Intersect(OrigSelection(1), True, True) 
    s1.Delete 
    s2.Fill.ApplyUniformFill farbe 
End Sub