Почему не работает Selection.Delete?

[Andru2008]

Народ! Объясните мне, темному , почему такая простая конструкция у меня не работает?

Function A() As Variant
 Dim sh As Worksheet
 Set sh = ThisWorkbook.Worksheets("1")
 sh.Shapes.SelectAll
 Selection.Delete
 A= 1
End Function

Точнее работает все кроме Selection.Delete. При этом все графические объекты данной функцией на листе находятся и выделяются, но выделенный объект командой Selection.Delete (которая стоит сразу после команды выделения) не удаляется.
При этом, при выходе из функции на листе оказываются выделенными все графические элементы, функция нормально завершается с выдачей идентификатора завершения (в ячейке вызова функции возвращается значение "1"), но Selection.Delete не срабатывает.
Почему так? В чем ошибка?

[IgorGO]

у Shapes нет метода Delete. у Shape - есть. Пробуйте так:

For Each shp In ThisWorkbook.Worksheets("1").Shapes
shp.Delete
Next

[Andru2008]

Спасибо за ответ.
Так то работает, но мне надо несколько иное. Я это уже обсуждал в разделе "Программная группировка графики", но в предложенном мне решении работало все, кроме удаления и мне там так и не пояснили почему. Поэтому в данном разделе я упростил вопрос. Видимо зря.
Привожу полный фрагмент. Есть функция, которая рисует графику (по входным параметрам) и должна удалить ранее нарисованные ею объекты (не все, а именно данные объекты).
Реализация создания массива имен рисованных объктов для удаления уже выяснена. Надо просто по этим данным удалить данные объекты.
Ну чтобы упростить - давайте сразу в одном проходе (без передачи параметров в функцию), а просто - рисуем, запоминаем имена и сразу все это и удаляем. НО ТОЛЬКО ЭТО, А НЕ ВСЮ ГРАФИКУ ЛИСТА. Например где то так (только надо не SelectAll, а именно что то типа Select.Name - хоть это наверное и не правильный оператор, но как иначе не знаю):

Function A() As Variant
  With ActiveSheet.Shapes.BuildFreeform(msoEditingAuto, 112.5, 141.75)
        .AddNodes msoSegmentLine, msoEditingAuto, 207#, 85.5
        .AddNodes msoSegmentLine, msoEditingAuto, 224.25, 150.75
        .AddNodes msoSegmentLine, msoEditingAuto, 130.5, 176.25
        .AddNodes msoSegmentLine, msoEditingAuto, 112.5, 141.75
        A=.ConvertToShape.Name
    End With
    ActiveSheet.Shapes.SelectAll: Selection.Delete
End Function

И еще, по поводу вашего замечания, что "у Shapes нет метода Delete. у Shape - есть."
Почему же тогда мой макрорекордер при ручном рисовании-удалении создает такой код:

Sub Макрос1()
    ActiveSheet.Shapes.Range(Array("Rectangle 1", "Oval 2", "Line 3")).Select
    Selection.Delete
End Sub

И ОН РАБОТАЕТ....... Тот же "Shapes" тот же "Selection.Delete" и все нормально, а у меня нет..... Почему?

[Andru2008]

Сообщение от IgorGO

у Shapes нет метода Delete. у Shape - есть. Пробуйте так:

For Each shp In ThisWorkbook.Worksheets("1").Shapes
shp.Delete
Next

Спасибо за ответ.
Так то работает, но мне надо несколько иное. Не всю графику листа удалять, а именно конкретную.

[viter.alex]

Сообщение от Andru2008

…Ну чтобы упростить - давайте сразу в одном проходе (без передачи параметров в функцию), а просто - рисуем, запоминаем имена и сразу все это и удаляем. НО ТОЛЬКО ЭТО, А НЕ ВСЮ ГРАФИКУ ЛИСТА. …

Этот пост показывает как это делать. Там правда, фигуры распознаются по ID, таблицы, к которой они привязаны, но это мелочь. Смотреть нужно 8 строку снизу в коде.

Сообщение от Andru2008

И еще, по поводу вашего замечания, что "у Shapes нет метода Delete. у Shape - есть."
Почему же тогда мой макрорекордер при ручном рисовании-удалении создает такой код:

Sub Макрос1()
    ActiveSheet.Shapes.Range(Array("Rectangle 1", "Oval 2", "Line 3")).Select
    Selection.Delete
End Sub

И ОН РАБОТАЕТ....... Тот же "Shapes" тот же "Selection.Delete" и все нормально, а у меня нет..... Почему?

У Shapes действительно нет метода Delete. И в этом примере он тоже не используется. А вот у Shapes.Range(массив с фигурами), который выделяется, а потом удаляется, такой метод есть.

[IgorGO]

Если вы знаете как отличить подлежащие удалению обьекты от остальных - добавьте проверку на наличие необходимого признака:
For Each shp In ThisWorkbook.Worksheets("1").Shapes
if shp ... then shp.Delete
Next

[Andru2008]

Спасибо всем. Разобрался - все работает. Я сделал так:

Function A() As Variant
  With ActiveSheet.Shapes.BuildFreeform(msoEditingAuto, 112.5, 141.75)
        .AddNodes msoSegmentLine, msoEditingAuto, 207#, 85.5
        .AddNodes msoSegmentLine, msoEditingAuto, 224.25, 150.75
        .AddNodes msoSegmentLine, msoEditingAuto, 130.5, 176.25
        .AddNodes msoSegmentLine, msoEditingAuto, 112.5, 141.75
        A = .ConvertToShape.Name
    End With
    For Each shp In ThisWorkbook.Worksheets("1").Shapes
      If shp.Name = A Then shp.Delete
    Next
End Function

Только зачем ИСКАТЬ И ПЕРЕБИРАТЬ на листе ВСЕ объекты, если надо удалить один уже известный (по имени) объект? Можно ли это проще сделать?
Ну например вместо

   For Each shp In ThisWorkbook.Worksheets("1").Shapes
      If shp.Name = A Then shp.Delete
    Next

Применить что то типа:

   Function A() As Variant
  With ActiveSheet.Shapes.BuildFreeform(msoEditingAuto, 112.5, 141.75)
        .AddNodes msoSegmentLine, msoEditingAuto, 207#, 85.5
        .AddNodes msoSegmentLine, msoEditingAuto, 224.25, 150.75
        .AddNodes msoSegmentLine, msoEditingAuto, 130.5, 176.25
        .AddNodes msoSegmentLine, msoEditingAuto, 112.5, 141.75
        A = .ConvertToShape.Name
    End With
    ActiveSheet.Shapes.Range(Array(A)).Select
    Selection.Delete

Правда в данном случае как раз и не удаляется....
Хотя если нельзя без перебора, то и так как получилось меня тоже устраивает. Еще раз всем спасибо.

[viter.alex]

Сообщение от Andru2008

… Применить что то типа:

   Function A() As Variant
  With ActiveSheet.Shapes.BuildFreeform(msoEditingAuto, 112.5, 141.75)
        .AddNodes msoSegmentLine, msoEditingAuto, 207#, 85.5
        .AddNodes msoSegmentLine, msoEditingAuto, 224.25, 150.75
        .AddNodes msoSegmentLine, msoEditingAuto, 130.5, 176.25
        .AddNodes msoSegmentLine, msoEditingAuto, 112.5, 141.75
        A = .ConvertToShape.Name
    End With
    ActiveSheet.Shapes.Range(Array(A)).Select
    Selection.Delete

Правда в данном случае как раз и не удаляется....
Хотя если нельзя без перебора, то и так как получилось меня тоже устраивает. Еще раз всем спасибо.

Попробуй так

A = .ConvertToShape
A.Delete

Ты передаешь функции имя фигуры, а попробуй передай саму фигуру.

[Andru2008]

Сообщение от viter.alex

Попробуй так

A = .ConvertToShape
A.Delete

Ты передаешь функции имя фигуры, а попробуй передай саму фигуру.

Неа.... не пашет. функция

Function AA() As Variant
  With ActiveSheet.Shapes.BuildFreeform(msoEditingAuto, 112.5, 141.75)
        .AddNodes msoSegmentLine, msoEditingAuto, 207#, 85.5
        .AddNodes msoSegmentLine, msoEditingAuto, 224.25, 150.75
        .AddNodes msoSegmentLine, msoEditingAuto, 130.5, 176.25
        .AddNodes msoSegmentLine, msoEditingAuto, 112.5, 141.75
        AA = .ConvertToShape
    End With
   AA.Delete
End Function

возвращает ошибку, хотя все и рисует........ да и мне надо, чтобы функция имя возвращала, а уже при следующем вызове, я мог ввести данное имя в функцию как параметр и удалить объект по имени "Х".

[viter.alex]

Функция возвращает последнюю созданную фигуру. А дальше делай с ней, что хочешь. Только без извращений

Function AA() As Shape
 With ActiveSheet.Shapes.BuildFreeform(msoEditingAuto, 112.5, 141.75)
       .AddNodes msoSegmentLine, msoEditingAuto, 207#, 85.5
       .AddNodes msoSegmentLine, msoEditingAuto, 224.25, 150.75
       .AddNodes msoSegmentLine, msoEditingAuto, 130.5, 176.25
       .AddNodes msoSegmentLine, msoEditingAuto, 112.5, 141.75
       .ConvertToShape
       Set AA = ActiveSheet.Shapes.Item(ActiveSheet.Shapes.Count)
   End With
End Function
Sub ajkj()
  Dim sh As Variant
  Set sh = AA
 ActiveSheet.Shapes(sh.Name).Delete
End Sub