Control button display issue

[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

 

[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 =

 

[news.microsoft.com]

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

 

[Mike]

Solution was to add the following to each control button.

..Style = msoButtonCaption