Eigenschaften von Shape
23.08.2013 23:17:04
Shape
ich versuche schon seit geraumer Zeit in meinem Code:
Sub Rahm_1()
Tabelle3.Activate
ActiveSheet.Shapes.AddShape(msoShapeRectangle, LI_RA_1#, OB_RA_1, b1, h1).Select
Selection.ShapeRange.Fill.Visible = msoFalse
Selection.ShapeRange.Fill.Solid
Selection.ShapeRange.Fill.Transparency = 1#
Selection.ShapeRange.Line.Weight = 5
Selection.ShapeRange.Line.DashStyle = msoLineSolid
Selection.ShapeRange.Line.Style = 2
Selection.ShapeRange.Line.Transparency = 0#
Selection.ShapeRange.Line.Visible = msoTrue
Selection.ShapeRange.Line.ForeColor.SchemeColor = 0 '60 ist braun
Selection.ShapeRange.Line.BackColor.RGB = RGB(0, 0, 0) '(139, 69, 19)
End Sub
winklige, anstatt abgerundete Ecken für meinen Rahmen zu bauen.
Hierzu habe ich versucht SoftEdge einzubauen, was aber leider nicht geht.
Der Objektkatalog und Microsofthilfe geben auch nicht viel her.
Hat hier jemand vllt. eine Idee?
Dank im Voraus, Gruß Friedel