title image


Smiley Re: VBA-Lösung Druckmenue mit Seitenauswahl
Hallo Hartmut,das Problem scheint bei der Reihenfolge der Schaltflächen in Deiner Standard-Symbolleiste zu liegen.Im Code findest Du folgende Zeile:CommandBars("Standard").Controls(5).DeleteDiese Zeile besagt, daß die 5. Schaltfläche gelöscht werden soll. Experimentiere damit einfach mal. Mit Drucken_her kannst Du die Symbolleiste jederzeit wieder zurücksetzen.Oder ändere die Routine Drucken_weg so ab:Sub Drucken_weg()Dim Symbolleiste As CommandBar, Menü As CommandBarButtonFor Each x In CommandBars("Standard").Controls    If x.ID = 2521 Then x.DeleteNextSet Symbolleiste = CommandBars("Standard")Set Menü = Symbolleiste.Controls.Add(Type:=msoControlButton, ID:=2521, before:=5)Menü.OnAction = "Drucken"End SubNun weiß ich allerdings nicht, mit welcher Excel-Version Du arbeitest. In Excel 2000 hat die Drucken-Schaltfläche die ID 2521 - in Excel 97 kann das auch eine andere sein.Die ID's der Standard-Symbolleiste kannst Du Dir so anzeigen lassen:Sub ID_anzeigen()For Each x In CommandBars("Standard").Controls    MsgBox x.IDNextEnd SubDaß von Dir genannte Makro bewirkt nur, daß die Standard-Symbolleiste zurückgesetzt wird - so wie sie bei der Installation von Excel vorhanden war.Viel Erfolg,SALZ

geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: