How to Exit design mode with VBA?

[AaronYang]

Hi,All,

I know how to entry the design mode with VBA, but I cannot exit it with VBA code, anybody can help me?

Application.CommandBars("Control Toolbox").Controls(1).Execute

 

[Case_Germany]

Hi,

if you call an empty macro, the design mode is terminated automatically - at least in Excel 2003. Otherwise try:

Sub Exit_Mode()
    With CommandBars("Exit Design Mode").Controls(1)
        If .State = msoButtonDown Then .Execute
    End With
End Sub

Case_Germany

 

[AaronYang]

I tried your code but failed, thanks anyway.

I am coding an addins for inserting SWF file to Excel, after SWF file inserted to worksheet succesfully, but it can not auto-play as it in VBA design mode.