AW: Zellen mit Linien durchstreichen
07.04.2006 13:07:48
u_
Hallo,
Sub Linien_rein()
Dim shp As Shape, x1, y1, x2, y2
x1 = Range("E10").Left
y1 = Range("E10").Top + Range("E10").Height
x2 = Range("I7").Left + Range("I7").Width
y2 = Range("I7").Top
Set shp = ActiveSheet.Shapes.AddLine(x1, y1, x2, y2)
With shp
.Line.ForeColor.SchemeColor = 10
.Line.Visible = msoTrue
.Name = "Lin_1"
End With
x1 = Range("B20").Left
y1 = Range("B20").Top + Range("B20").Height
x2 = Range("D16").Left + Range("D16").Width
y2 = Range("D16").Top
Set shp = ActiveSheet.Shapes.AddLine(x1, y1, x2, y2)
With shp
.Line.ForeColor.SchemeColor = 10
.Line.Visible = msoTrue
.Name = "Lin_2"
End With
End Sub
Sub Linien_Raus()
ActiveSheet.Shapes("Lin_1").Delete
ActiveSheet.Shapes("Lin_2").Delete
End Sub
Gruß
Geist ist geil!