Makro für Konturerstellung

[pieksdi]

Es wäre sehr nett, wenn Du mir ein Makro schreiben könntest, das die nötigen Schritte so weit als möglich beinhaltet.

[koter]

Hallo Regina,

...das die nötigen Schritte so weit als möglich beinhaltet...

Ich habe versucht die nötigen Schritte so weit als möglich zu erraten    :

Code:

Sub PKontur1()
   Dim SR1 As ShapeRange, SR2 As ShapeRange
   Dim s1 As Shape
   Dim Abstand As Double, Linienstil As Double, Liniebreite As Double
   
   If ActiveSelectionRange.Shapes.Count = 0 Then Exit Sub
   
   ActiveDocument.BeginCommandGroup "Konturlinie"
   ActiveDocument.Unit = cdrMillimeter
   
   Abstand = 4
   Liniebreite = 0.3
   
   Set SR1 = ActiveSelectionRange
   Set s1 = SR1.CustomCommand("Boundary", "CreateBoundary")
   Set SR2 = s1.CreateContour(, Abstand).Separate
   
   SR2.OrderBackOf SR1.FirstShape
   With SR2.FirstShape
       .Name = "Konturlinie"
       .Outline.Width = Liniebreite
   End With
   s1.Delete
   
   ActiveDocument.EndCommandGroup
End Sub

Ich hoffe es läuft mit Deiner Version.
Abstand und Linienbreite kannst Du im Quelltext ändern.
Falls noch etwas fehlt melde Dich, ich bin leider nicht der beste Ratefuchs.

Gruß

Koter

[pieksdi]

Ich kann die Datei leider nicht im X7 Format speichern.
Da werde ich wohl selbst nochmal ganz in Ruhge drangehen müssen.

Ich danke trotzdem für das Angebot, schönen Sonntag noch!

[koter]

Hallo Regina,

Du musst Die Datei nicht als X7 speichern!
Du musst nur das Makro mit Deiner Version testen.

Gruß

Koter

[pieksdi]

Dann versuche ich es mal mit Deiner Liste.
Klappt!
Die Option mit den abgeschrägten Ecken gibt es in X7 wohl noch nicht?

[koter]

Was für eine Liste?

Im Codeblock von Beitrag 12 steht das Makro!
Das musst Du in ein Modul einfügen und starten, dass ist alles!

[pieksdi]

Klappt!
Tut mir leid für die Umständlichkeiten - ich bin absoluter Laie, da ich nur sehr wenige Funktionen (die aber dafür ausgiebig!) benutze.

Ich freue mich, daß die Arbeit nun wieder flotter von der Hand geht.

Also nochmals: Danke für Geduld und Mühe!