VBA to create and delete shapes

jbburf · September 25th, 2012, 03:56 PM

I am trying to create two buttons with VBA and then delete the two buttons. I need a way to create by name and then delete it by name. The below code will create the shapes but I get an error when trying to delete the shapes.

Code:

        'Add Buttons
        Set Firstbutton = ActiveSheet.Shapes.AddShape(5, 275, 945, 110, 25)
        Set Secondbutton = ActiveSheet.Shapes.AddShape(5, 390, 945, 110, 25)
        
        'Remove Buttons
        'ActiveSheet.Shapes(ASFbutton).Delete
        'ActiveSheet.Shapes(SBFbutton).Delete

jbburf · September 25th, 2012, 05:57 PM

It looks like I have answered my own question. I found that I can use the following code to delete the shapes:

Code:

        'Remove Buttons
        ASFbutton.Delete
        SBFbutton.Delete