at vise en menubar på en userform????

Jeg har lige leget lidt med det, og så vidt jeg kan se, skal menuen defineres på userformen.
Derefter kan den aktiveres via VB med 
Application.CommandBars(\"menunavn\").Visible = True

muligvis skal du dog bruge userform i stedet for Application....

men mon ikke en af hajerne har et bedre svar *S*

Application føder excel med en ny menubar &
Userform åbner ikke muligheden .CommandBars(osv)

Hvad tænker du helt på Bambus ?

Har du sat en control af typen \"Microsoft Toolbar Control\" på din userform, og kan ikke få den vist eller hva ?

Toolbar1.Visible = True .................

Jeg var træt af denne Toolbar editot, som vi før har talt om... så jeg lavede udfra en kodestupm du engang sendte mig, en menubar..

og den ville jeg gerne vise på min userform!

Sub Create_YT_Menubar_CommandBar()
Dim YT_Menubar As CommandBar
Dim YT_Menu As Object
Set YT_Menubar = CommandBars.Add(Name:=\"YT_Menubar\", Position:=msoBarTop, Menubar:=True, temporary:=True)

With YT_Menubar.Controls
      Set YT_Menu = .Add(Type:=msoControlPopup, temporary:=True)
    YT_Menu.Caption = \"&File\"
End With

With YT_Menubar.Controls(\"&File\").Controls

    Set YT_Menu = .Add(Type:=msoControlButton, temporary:=True)
    YT_Menu.Style = msoButtonCaption
    YT_Menu.Caption = \"&Save\"
    YT_Menu.FaceId = 3
    YT_Menu.OnAction = \"goto_Save\"
    YT_Menu.Parameter = \"File Save\"

    Set YT_Menu = .Add(msoControlButton)
    YT_Menu.Style = msoButtonCaption
    YT_Menu.Caption = \"&Exit Yield Technologies...\"
    YT_Menu.FaceId = 4
    YT_Menu.OnAction = \"goto_Exit\"

End With

End Sub

Er det muligt, at vise denne menubar på userformen, eller skal den laves som en toolbar

øjeblik

Bambus>> Nej - den skal laves om som en toolbar

Jeg har ikke tid i eftermiddag til at hjælpe yderligere.
Toolbar1.Buttons.Add(Style:=mso.... Caption:=\"&File\")

Ja ok men en toolbar af typen v. 6.0 er IKKE lige sagen... man(jeg) kan for det første ikk ændre i knappernes længde osv...

Hmm efter nærmere eftertange omdøber jeg spørgsmåler....
når så jeg har lavet en toolbar, har jeg problemer med, at få mine makroer til at køre.
noget som

Dim tb As Toolbar
    Set tb = Toolbar1
    With tb
        With .ToolbarButtons(1)
          .OnAction = \"Macro1\"
        End With
    End With
    Set tb = Nothing
End Sub

virker dog ikke?

Prøv at omdøbe din \"Macro1\" til -  Public Sub Macro1()

Det går galt i linien
Set tb = toolbar1

Type mismatch :(

... min toolbar hedder toolbar1

Så nøjs da med dette her.

With Toolbar1
  With .ToolbarButtons(1)
    .OnAction = \"Macro1\"
  End With
End With   

Hvis ikke jeg sætter
tb As Toolbar
for jeg ikke muligheden for
.OnAction....

Toolbar1.Buttons.Add(Style:=mso.... Caption:=\"&File\")

inden in denne (....) finder du også OnAction - så vidt jeg husker fra i går.

Nej, det gør den ikke! hmm

Du skal nok have punktum et eller andet efter Set tb = Toolbar1.etellerandet

måske Set tb = Toolbar1.Buttons ?

ja jeg fatter ikke, at det er en problem?

jeg kender ikke lige løsningen, men jeg vil lige lede lidt.

måske skal man lave en select case på toolbar1_buttonclick() ??

Ja, hvis du så gemmer makronavnet i TAG, så kan du hente det for den knap der er trykket, og kalde den.

ja jeg tænkte nu mere på den index værdi der binder sig til
toolbar1.buttons(i), jeg kan bare ikke få det til at virke :(

Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button)
Select Case Button.Index
    Case 1
    Macro1
    Case 2
    Macro2
End Select
End Sub

Select Case ButtonSSSSSSSSSSSSSSSSSSSS.Index

øv hvad er der sket med dig..... du plejer, at være så kvik.. :)), men nu virker alt, på nær længden af knapperne?????

Jeg er lidt træt i dag, det blev gab alt for sent i går.
Prøv at sætte et image af en bestemt størrelse ind på knapperne.

jeg har også mit focus et helt andet sted, jeg mangler noget at lave - jeg er jo blevet selvstændig www.win-consult.com

ja de knapper.. man kan kun indsætte billeder fra en imageliste med en størrelse på 16 * 16, men det er vist en anden historie.

har du forresten et program til produktion af iconer.ico

Nej