Очистка линии

[женя2010]

Пишу на ВБА. В конце рисуеться линия, в зависимости от значений. А когда вношу новые значения линия рисуеться новая ,а старая остаеться .Как убрать старую?

[EducatedFool]

С такими вопросами обращайтесь на форум телепатов.

А если хотите, чтобы вам помогли на этом форуме, выкладывайте пример файла с кодом и линиями.

[женя2010]

))я просто думал что такой вопрос токо ламеры задают...
l1 = [C30].Left
l2 = l1 + d1 + d2 + d3 + d4
v = [C30].Top - [A6]
ActiveSheet.Shapes.AddLine(l1, v, l2, v).Select
Selection.ShapeRange.Line.Weight = 1.5

таким образом я рисую линию....а потом когда ввожу новые даные, то эта линия не просто меня ет свое место, рисуеться новая , а старая остаеться....я думаю что есть какаето простенькая команда которая удалюет старую линию, перед выполнением програмы.а какая?))))

[doober]

А мне помог бубен

Private Sub CommandButton1_Click()
Dim she As Worksheet

Set she = Sheets("Лист1")
Dim shp As Shape
Set shp = she.Shapes.AddLine(100, 10, 20, 12)
shp.Name = "л1"
shp.Line.Weight = 1.5
Set shp = she.Shapes.AddLine(100, 100, 20, 120)
shp.Name = "л2"
shp.Line.Weight = 1.5

she.Shapes("л1").Delete

End Sub

[IgorGO]

не исключаю, что вот так можно снести последнюю нарисованную линию:
ActiveSheet.Shapes(ActiveSheet.Shap es.Count).delete
это предположение. Пробуйте, проверяйте. т.е. прежде чем рисовать линию - удаляем предыдущую, основываясь на предположении что она последняя в коллекции Shapes.

[viter.alex]

Совет doober представляется самым верным: присвоить имя построенной линии и удалять по имени. Заодно посмотрите, как правильно работать с объектами Shape

[SAS888]

А по-моему, в данном случае есть смысл не удалять и рисовать, а вырезать и вставлять.

[maksim_serg]

а зачем вооюще удалять/рисовать и/или вырезать/вставлять? Не проще ли просто переместить?

[женя2010]

ActiveSheet.Shapes(ActiveSheet.Shap es.Count).delete - работает отлично!

Всем огромное спсибООООООООО!