Visual Basic - Borrar todos los graficos del libro al generar el evento terminate de un userform

Sub Macro1()

    For j = 1 To ActiveSheet.DrawingObjects.Count

        If Left(ActiveSheet.DrawingObjects(j).Name, 5) = "Chart" Then

            ActiveSheet.DrawingObjects(j).Delete

        End If

    Next j

End Sub

Sub Borrar_Libro_Tipo()

Dim nHoja As Integer

Dim Shape As Excel.Shapes

'Contamos las hojas del libro activo

nHoja = ActiveWorkbook.Worksheets.Count

'Inicimiamos bucle.

For i = 1 To nHoja

'En cada hoja seleccionamos/detectamos todas las formas

For Each Shapes In Sheets(i).Shapes

With Shapes

'Si la forma es entonces la borramos

If .Type = 3 Then

.Delete

End If

End With

Next

Next i

End Sub

Name	Value	Description

msoAutoShape	1	AutoShape.

msoCallout	2	Callout.

msoCanvas	20	Canvas.

msoChart	3	Chart.

msoComment	4	Comment.

msoContentApp	27	Content Office Add-in

msoDiagram	21	Diagram.

msoEmbeddedOLEObject	7	Embedded OLE object.

msoFormControl	8	Form control.

msoFreeform	5	Freeform.

msoGraphic	28	Graphic

msoGroup	6	Group.

msoIgxGraphic	24	SmartArt graphic

msoInk	22	Ink

msoInkComment	23	Ink comment

msoLine	9	Line

msoLinkedGraphic	29	Linked graphic

msoLinkedOLEObject	10	Linked OLE object

msoLinkedPicture	11	Linked picture

msoMedia	16	Media

msoOLEControlObject	12	OLE control object

msoPicture	13	Picture

msoPlaceholder	14	Placeholder

msoScriptAnchor	18	Script anchor

msoShapeTypeMixed	-2	Mixed shape type

msoTable	19	Table

msoTextBox	17	Text box

msoTextEffect	15	Text effect

msoWebVideo	26	Web video