Hallo, ich füge hiermit ein Rechteck ein:
Sub test3()
Dim shp As Shape
With ActiveSheet
Set shp = .Shapes.AddShape(msoShapeRectangle, 100, 0, 140, 60)
End With
With shp
.Fill.Visible = msoTrue
.Fill.Solid
.Fill.Transparency = 0#
.Line.Weight = 0.5
.Line.DashStyle = msoLineSolid
.Line.Style = msoLineSingle
.Line.Transparency = 0
.Line.Visible = msoTrue
.Line.ForeColor.SchemeColor = 8
.Line.BackColor.RGB = RGB(0, 0, 200)
.Fill.ForeColor.RGB = RGB(140, 184, 183)
End With
End Sub
Funktioniert auch. Nun möchte ich aber die Transparents der Hintergrundfarbe ändern. Wenn ich den Wert bei .Fill.Transparency = 0# auf 50 ändere kommt eine Fehlermeldung. Warum?
Ich habe den Code aus dem Internet bezogen. Ich weiß aber nicht genau warum hier manchmal .line und .fill verwendet wird. Line für die Umrandung vermutlich?
danke
|