VBA Ecken eines Objekts abrunden

[Olaf]

Hallo Koter,

veilen Dank nochmals für Deine Hilfe. Leider bin erst vor 2 Tagen dazu gekommen Deine Prozedur zu testen. Bei mir funktioniert es leider noch nicht. Es liegt aber sicherlich an mir bzw. am Aufbau den ich schon im Modul habe.

Zur Sicherheit füge ich auch einmal den bestehenden Code aus unserem Plattenmodul ein.

- Das Rechteck bei dem ich den Eckenradius verändern möchte ist das Objekt oVorderseite
- Den Radius in mm möchte ich aus der Textbox3 aus dem Dialog holen
- Es reicht aus wenn immer alle Ecken mit dem gleichen Radius gerundet werden

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

Sorry, aber ich habe da bisher immer noch zu wenig Erfahrung um die Prozedur von Dir professionell umzusetzen.

Gruß

Olaf