View Single Post
  #11   Report Post  
Posted to microsoft.public.excel.programming
Chip Pearson Chip Pearson is offline
external usenet poster
 
Posts: 7,247
Default Removing Command Button

Just out of curiosity, is the code that attempts to delete the command
button executed directly or indirectly by the code attached to the
command button? In other words, does the command button attempt to
delete itself? If so, you can't do that.

Cordially,
Chip Pearson
Microsoft MVP 1998 - 2010
Pearson Software Consulting, LLC
www.cpearson.com
[email on web site]



On Wed, 5 May 2010 15:09:01 -0700, Accesshelp
wrote:

FSt1,

To be quite honest, I do not know the name of the button, and I do not know
how to give a name to the button that I created. The code in my original
post is all the code that I use to create the button.

Do you know how I can find out what the name of my button is? Is there an
alternative code without the button name?

Thanks.

"FSt1" wrote:

hi
wild guessing here but..
what is the name of the button. the button's caption may not necessarily be
the name of the button. by default excel give it the name 'commandbutton1'
and keeps count of them in the back ground asigning the next command button
name commandbutton2 and so on.
try
Application.CommandBars("Standard").Controls("Comm andButton1").Delete

i usually change the default names of all my controls. for command buttons,
i usually use CB1, CB2 ect. might mean less typing later on.
but different strokes for different folks. we all have our preferences.

Regards
FSt1


"Accesshelp" wrote:

Hello all,

I have a code that creates a command button when the Excel file opens. The
following is the code that I use:

Set nBar = CommandBars("Standard")
nBar.Visible = True
Set nCon = nBar.Controls.Add(Type:=msoControlButton, Temporary:=True)
With nCon
.BeginGroup = True
.Style = msoButtonCaption
.Caption = "Macro"
.OnAction = "RunMacro"
End With

What I would like to do is to remove the above command button "Macro" when
the Excel file closes. I have tried to use the following code, and it did
not work.

Application.CommandBars("Standard").Controls("Macr o").Delete

Please help. Thanks.