Dodawanie linii
Sub dodaj()
Dim i As Integer
For i = 1 To 10
With ActiveSheet.Shapes.AddShape(msoLineSingle, 10, 20 * i, 200, 3)
.Name = "Linia" & i
.Line.ForeColor.RGB = vbGreen
.Fill.ForeColor.RGB = vbRed
End With
Next i
End Sub
Usuwanie linii
Sub usun()
Dim linia As Shape
'usuwanie pojedynczo z nazwą Linia
For Each linia In ActiveSheet.Shapes
If InStr(1, linia.Name, "Linia") Then linia.Delete
Next linia
'usuwanie hurtem wszystkiego
'ActiveSheet.DrawingObjects.Delete
End Sub
Excel pozwala nadawać te same nazwy różnym obiektom |