Delete diagram from sheet

[FryGirl]

Two questions.

1) I have some code that will create a Vertical Org Chart, but when I'm ready to run the code again for a new Org Chart, how do I delete the Diagram.

I recorded the action to delete the diagram, but the number may not be the same every time.

Sub Macro1()
    ActiveSheet.Shapes.Range(Array("Diagram 1")).Delete
End Sub

2) How can I align the diagram starting in D11 and resized to a bigger size?

 

[lrobbo314]

How about this for deleting the diagrams.

Sub del()
For Each dObj In ActiveSheet.DrawingObjects
    If InStr(dObj.Name, "Diagram") > 0 Then dObj.Delete
Next dObj
End Sub

And passing a variable.

Sub test(dName As String)
    Set oSALayout = Application.SmartArtLayouts(104)
    Set oShp = ActiveWorkbook.ActiveSheet.DrawingObjects(dName)
    With oShp
        .Width = 600
        .Height = 600
        .Left = Range("D1").Left
        .Top = Range("D1").Top
    End With
End Sub

 

[FryGirl]

Yes, I can work with all of this. Thanks.