Sub rahmen()
' rahmen Macro
' Macro recorded 15.04.2004 by gwurm
ActiveCell.Offset(5, 2).Range("A1").Select
Selection.Borders(xlDiagonalDown).LineStyle = xlNone
Selection.Borders(xlDiagonalUp).LineStyle = xlNone
With Selection.Borders(xlEdgeLeft)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
With Selection.Borders(xlEdgeTop)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
With Selection.Borders(xlEdgeBottom)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
With Selection.Borders(xlEdgeRight)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
End Sub
Sub Einfuegen()
Dim sh1 As Shape
With ActiveCell
Set sh1 = ActiveSheet.Shapes.AddShape(9, .Left - 6, .Top - 6, .Width + 12, .Height + 12)
sh1.Fill.Transparency = 1
End With
End Sub