Farbfüllung für Rechteck wird nicht ausgeschaltet?
31.10.2007 22:50:08
Selma
ich habe zwei Makros:
1. Farbfuellung_AN, um die Farbfüllung für das Rechteck 24 einzuschalten
2. Farbfuellung_AUS, um die Farbfüllung für das Rechteck 24 auszuschalten
Leider wird die Farbfüllung beim zweiten Makro nicht ausgeschaltet.
Was ist falsch ?
Sub Farbfuellung_AN()
ActiveSheet.Shapes("Rectangle 24").Select
Selection.ShapeRange.Fill.Visible = msoTrue
Selection.ShapeRange.Fill.Solid
Selection.ShapeRange.Fill.ForeColor.SchemeColor = 9
Selection.ShapeRange.Fill.Transparency = 0#
Selection.ShapeRange.Line.Weight = 0.75
Selection.ShapeRange.Line.DashStyle = msoLineSolid
Selection.ShapeRange.Line.Style = msoLineSingle
Selection.ShapeRange.Line.Transparency = 0#
Selection.ShapeRange.Line.Visible = msoTrue
Selection.ShapeRange.Line.ForeColor.SchemeColor = 9
Selection.ShapeRange.Line.BackColor.RGB = RGB(255, 255, 255)
With Selection
.Placement = xlMoveAndSize
.PrintObject = True
End With
Range("D16").Select
End Sub
Sub Farbfuellung_AUS()
ActiveSheet.Shapes("Rectangle 24").Select
Selection.ShapeRange.Fill.Visible = msoFalse
Selection.ShapeRange.Fill.Solid
Selection.ShapeRange.Fill.Transparency = 0#
Selection.ShapeRange.Line.Weight = 0.75
Selection.ShapeRange.Line.DashStyle = msoLineSolid
Selection.ShapeRange.Line.Style = msoLineSingle
Selection.ShapeRange.Line.Transparency = 0#
Selection.ShapeRange.Line.Visible = msoTrue
Selection.ShapeRange.Line.ForeColor.SchemeColor = 8
Selection.ShapeRange.Line.BackColor.RGB = RGB(255, 255, 255)
With Selection
.Placement = xlMoveAndSize
.PrintObject = False
End With
Range("D16").Select
End Sub
Vielen Dank im Voraus.
Liebe Grüße
Selma