AW: Im dt. Excel2016 benannt: Sehne - o.w.T
04.11.2019 12:33:25
Raphael
Hallo Karin und Nepumuk,
es funktioniert, Danke
nur noch ein Problem mit der Farbe und der Höhe des Kreissegmentes.
Folgenden Code habe ich (Nepumuk, kommt dir bestimmt bekannt vor)
Dim objShape As Shape
Dim FarbeWea
FarbeWea = Range("ce23").Interior.Color
Dim LeftWea
LeftWea = Range("cj23")
Dim TopWea
TopWea = Range("cl23")
Dim diameterWea
diameterWea = Range("ch23")
'shape11 / Wafer Edge
Set objShape = ActiveSheet.Shapes.AddShape(msoShapeChord, LeftWea, TopWea, diameterWea, _
diameterWea)
With objShape.DrawingObject.ShapeRange
.IncrementRotation 257.5
.Adjustments.Item(1) = 115
End With
Selection.ShapeRange.Name = Range("cc23")
Selection.Name = Range("cc23").Value
With Selection.ShapeRange.Fill
.Visible = msoFalse
.ForeColor.RGB = FarbeWea
.Transparency = 0
.Solid
End With
'ohne Rahmen
Selection.ShapeRange.Line.Visible = msoFalse
Damit wird der Kreis nicht dargestellt, das Segment aber in Standard blau mit Rahmen. Kann man die Farbe des Segmentes ansprechen?
Und die Höhe des Segmentes. Die Werte:
.IncrementRotation 257.5
.Adjustments.Item(1) = 115
machen zumindest das Segment waagerecht, aber die Höhe kann ich nicht beeinflussen
Danke noch mal für die Hilfestellung
Gruß
Raphael