Eigenschaften von arrow
17.08.2013 21:21:20
arrow
finde aber die gültigen Punkte nicht.
Ich suche noch die Füllung und die Farbe, sowie Strichstärke
Set obj = ActiveSheet.Shapes.AddShape(msoShapeLeftArrow, 1, 1, 1, 1)
With obj
.Height = 5
.Width = iW
.Rotation = 0
.Left = 32
.Top = 68 + (h1 / 12)
'.ForeColor = RGB(153, 180, 209) ### Das hier geht nicht ...
End With