VBA Ecken eines Objekts abrunden

Code:

Sub RechteckAbrunden(R As Shape, Optional Radius As String, Optional EckeLO As String, _

    Optional EckeRO As String, Optional EckeRU As String, Optional EckeLU As String)

    Dim Rechteck As Rectangle 'die Rechteck-Eigenschaften des Zeichenobjekts

    If R.Type = cdrRectangleShape Then 'prüfen ob es sich um ein Rechteck handelt um Fehler zu vermeiden

        R.CreateSelection 'Das Rechteck auswählen (das muss leider sein)

        Set Rechteck = R.Rectangle

        If Val(Radius) > 0 Then

            If EckeLO = "" Then EckeLO = Radius

            If EckeLU = "" Then EckeLU = Radius

            If EckeRO = "" Then EckeRO = Radius

            If EckeRU = "" Then EckeRU = Radius

        End If

        With R.Rectangle

            .RadiusUpperLeft = Val(EckeLO)

            .RadiusUpperRight = Val(EckeRO)

            .RadiusLowerLeft = Val(EckeLU)

            .RadiusLowerRight = Val(EckeRU)

        End With

    End If

End Sub

Code:

Option Explicit



'Globale Variablen (sind auch aus anderen Modulen aufrufbar)

Public Breit As Double 'Breit sei eine Gleitkommazahl mit doppelter Genauigkeit

Public Hoch As Double 'Breit sei eine Gleitkommazahl mit doppelter Genauigkeit

Public Dateiname As Double

Public Anzahl As Double



' lokale Variablen (gelten nur in diesem Modul)

Private oSeite As Page 'das Objekt "oSeite" sei eine Seite im Dokument

Private oPlattenEbene As Layer 'das Objekt "oPlattenEbene" sei eine Ebene



Private oVorderseite As Shape ' das Objekt "Vorderseite" sei ein Zeichnungsobjekt



Public Sub Start()

    Call VarINI 'Variablen initialisieren

    Dialog1.Show 'Dialog anzeigen

End Sub



Private Sub VarINI()

    'die Maßeinheit des Dokuments auf Millimeter setzen

    ActiveDocument.Unit = cdrMillimeter

    

    'Zuweisung der Ojekte an die Objektvariablen:

    'die Objektvariable "oSeite" enthält die Aktive Seite

    Set oSeite = ActivePage

    

    'die Objektvariable "oPlatten" enthält die Ebene "Platten" auf der Seite "oSeite"

    Set oPlattenEbene = oSeite.Layers("Platten")

    

    'die Objektvariable "oPlatten" enthält die Zeichnungsobjekte "Boden","Seitenplatte VH"

    'und "Seitenplatte LR" auf der Ebene "oPlatten"



    Set oVorderseite = oPlattenEbene.Shapes("Vorderseite")



    'die Globalen Variablen mit Werten füllen

    

    Breit = oVorderseite.SizeWidth

    Hoch = oVorderseite.SizeHeight

    

End Sub



Sub machPlatten(Optional B As Boolean)

    If Not Dialog1.Visible Then Exit Sub ' nicht ausführen wenn der Dialog nicht sichtbar ist

    

    Call PlattenAusrichten 'Die Platten ausrichten

    Call machVorderseitePlatte

    

End Sub



Private Sub machVorderseitePlatte()



    'ändert die Maße der Vorderseite

    'Breite und Höhe der Vorderseite ändern

    oVorderseite.SizeWidth = Breit

    oVorderseite.SizeHeight = Hoch

    

End Sub



Private Sub PlattenAusrichten() 'richtet die Platten auf der Seite aus



    oVorderseite.CenterX = oSeite.CenterX

           

End Sub