to delete a shape

[tvmex_210]

hi xperts,
newbie here

I have the following sub which is used to create a callout .

======================
Sub callout1()
Dim wsactive As Worksheet
Dim box1 As Shape
Set wsactive = ActiveSheet
Set box1 = wsactive.Shapes.AddCallout(msoCalloutOne, 840, 10, 100, 50)
box1.Callout.Angle = msoCalloutAngle90
box1.TextFrame.Characters.Text = "1. Get details"
End Sub
======================


now i want to create a separate sub (say delcallout1) which when called would delete the callout. i have 3 such callouts to create which should appear and get cleared between many events (mainly commandbutton clicks).at a time only one callout will be active.

is there any way to do this?? plzzz help meee

 

[Gary McMaster]

Maybe this?

Gary

Public Sub delcallout1()

Dim oShape As Shape

For Each oShape In ActiveSheet.Shapes

    Debug.Print oShape.Name & vbTab & oShape.AutoShapeType

    If oShape.AutoShapeType = msoShapeLineCallout1NoBorder Then

        oShape.Delete
        
    End If
    
Next oShape

End Sub

 

[tvmex_210]

thanks a lot for replying......

but unfortunately its not working..... its not throwing any error and also the callout is not getting deleted.

Is there anything i should change in the code which u wrote??

 

[Gary McMaster]

The following line will print a number for the AutoShapeType in the debug window

Debug.Print oShape.Name & vbTab & oShape.AutoShapeType

Change "msoShapeLineCallout1NoBorder" in the following line to the above mentioned number.

If oShape.AutoShapeType = msoShapeLineCallout1NoBorder Then

Gary

 

[Gary McMaster]

You could shorten it to the following but that will delete all the shapes on the sheet, not just the "msoCallouts". The "if then" construct just makes it more selective in what it will delete. If you need the selectivity you must use the correct "AutoShapeType" identity code (called an Enum). You can use the number or the name that has been associated (by the developers) with that number.

if you highlight the word "AutoShapeType" in the original sample and press F1 you should get a list of the names.

Gary

Public Sub delcallout1()

Dim oShape As Shape

For Each oShape In ActiveSheet.Shapes
    oShape.Delete
Next oShape

End Sub