Control button display issue

M

Mike

I am adding buttons with the following code. They are active and
function but do not display. If I set them manually to "Text Only
(Always)" via the customize menu screen, they display fine. I'm using
XL2003.

I am at my wit's end trying to do this programmatically. What am I
missing? Thanks.

.Controls.Add Type:=msoControlButton, ID:=2949, Before:=2
With .Controls(1)
.Visible = True
.Caption = "ReadFile"
.OnAction = "thisworkbook.readfile"
End With
 
I

Internetdomainowner

I am adding buttons with the following code. They are active and
function but do not display. If I set them manually to "Text Only
(Always)"  via the customize menu screen, they display fine. I'm using
XL2003.

I am at my wit's end trying to do this programmatically. What am I
missing? Thanks.

        .Controls.Add Type:=msoControlButton, ID:=2949, Before:=2
        With .Controls(1)
                .Visible = True
                .Caption = "ReadFile"
                .OnAction = "thisworkbook.readfile"
        End With

I don't get why you want to create buttons through code...

Try something like

Private Sub UserForm_Activate()
UserForm1.Commandbutton2.Visible = False
End Sub

Private Sub CommandButton1_Click()
If UserForm1.Commandbutton2.Visible = False Then
UserForm1.CommandButton2.Visible = True
End If

If UserForm1.Commandbutton2.Visible = True Then
UserForm1.CommandButton2.Visible = False
End If

End Sub

Hope that helps -- I've built a lot of complex programs and have never
had the need to have code create buttons... Your best bet is going
through .visible =
 
N

news.microsoft.com

After your response, I realized that I forgot to mention a crucial detail:
The buttons are toolbar buttons.
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Top