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

[Andru2008]

Сообщение от 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
.......

Ничего подобного. Данная функция фигуру конечно рисует, но при этом еще и показывает фигуру "из 3-х пальцев" возвращая в качестве значения вычисления функции ошибку типа: "#ЗНАЧ!"
Так что ничего кроме извращений с этой фигурой сделать ничего уже нельзя

[viter.alex]

А я думал она тебе только для макроса нужна, а ты еще и в ячейку ставишь! В макросе работает железно.
Попробуй объявить ее как String и результат возвращать так:

AA = ActiveSheet.Shapes.Item(ActiveSheet.Shapes.Count).Name

[Andru2008]

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

А я думал она тебе только для макроса нужна, а ты еще и в ячейку ставишь! В макросе работает железно.
Попробуй объявить ее как String и результат возвращать так:

AA = ActiveSheet.Shapes.Item(ActiveSheet.Shapes.Count).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
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
   For Each shp In ThisWorkbook.Worksheets("1").Shapes
      If shp.Name = A Then shp.Delete
    Next
End Function

прекрасно работает - и рисует, и имя возвращает и удаляет.
Просто я спрашиваю как проще удалять БЕЗ ПЕРЕБОРА ВСЕХ ГРАФ. ЭЛЕМЕНТОВ ЛИСТА (это я о последних 3-х строчках функции говорю), а сразу именно данный конкретный объект с уже известным именем.
Можно конечно и так как написано (с перебором), но это уже как то очень извращенно (только ресурсы жрать будет). Как напрямую (адресно) это сделать?

[EducatedFool]

Просто я спрашиваю как проще удалять БЕЗ ПЕРЕБОРА ВСЕХ ГРАФ. ЭЛЕМЕНТОВ ЛИСТА (это я о последних 3-х строчках функции говорю), а сразу именно данный конкретный объект с уже известным именем.

А в чём, собственно, проблема?

Разве вот так не работает? (проверено в Excel 2003)

Sub Макрос1()
    sh1 = ActiveSheet.Shapes.AddShape(msoShapeRectangle, 194.25, 81#, 115.5, 60.75).Name
    sh2 = ActiveSheet.Shapes.AddShape(msoShapeOval, 268.5, 187.5, 60.75, 78#).Name
    
    ActiveSheet.Shapes(sh1).Delete
    ActiveSheet.Shapes(sh2).Delete
End Sub

[Andru2008]

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

А в чём, собственно, проблема?
Разве вот так не работает? (проверено в Excel 2003)

Sub Макрос1()
    sh1 = ActiveSheet.Shapes.AddShape(msoShapeRectangle, 194.25, 81#, 115.5, 60.75).Name
    sh2 = ActiveSheet.Shapes.AddShape(msoShapeOval, 268.5, 187.5, 60.75, 78#).Name    
    ActiveSheet.Shapes(sh1).Delete
    ActiveSheet.Shapes(sh2).Delete
End Sub

Ха, ха А до такого тут уже на 2-х страницах никто и не додумался.
Как просто. Я сделал еще проще:

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.Name
    End With
    ActiveSheet.Shapes(AA).Delete
End Function

А то мне не нравилось именно такое решение по удалению:

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

А сейчас все хорошо. Большое спасибо.

[EducatedFool]

Ха, ха А до такого тут уже на 2-х страницах никто и не додумался.

Читаем внимательно этот пост

Sub ajkj()
  Dim sh As Variant
  Set sh = AA
 ActiveSheet.Shapes(sh.Name).Delete
End Sub

По Вашему, этот код работает как-то иначе?

[Andru2008]

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

Читаем внимательно этот пост
По Вашему, этот код работает как-то иначе?

Конечно иначе. Если в функции (как мне надо), то возвращается ошибка и ничего не удаляется:

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.Name
    End With
     Dim sh As Variant
     Set sh = AA
     ActiveSheet.Shapes(sh.Name).Delete
End Function

Так и длинее и все равно не работает - в отличии от:

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.Name
    End With
    ActiveSheet.Shapes(AA).Delete
End Function

Я то ведь задавал вопрос по КОНКРЕТНОМУ ПРИМЕРУ ФУНКЦИИ и спрашивал КАКИЕ ОПЕРАТОРЫ И КАК ВСТАВИТЬ В ДАННОМ КОНКРЕТНОМ УЧАСТКЕ КОДА после оператора End With........

[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.SelectAll (точнее не All, а что то типа Select.Name)l 
    Selection.Delete
End Function

не работает участок кода "Selection.Delete" и на какой код его заменить. Всего лишь это меня интересовало и не более. Все очень конкретно - поэтому и хотелось столь же короткого и конкретного ответа.
Но все равно всем большое спасибо за помощь. Извините если что не так. Я не профи, а только учусь и поэтому хочется простых и прямых ответов.

[viter.alex]

Нашел в справке. Выбираем все, а затем из выбранного удаляем нужную фигуру. Только выбор потом нужно снять . В Word'e это Selection.Collapse, но в Excel не работает.

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.ShapeRange(A).Delete
End Function