Schaltflächen entfernen

Forumthread: Schaltflächen entfernen

15.08.2003 11:48:54

Micha_S

Hallo zusammen,
ich schon wieder ;-)
gibt es eine Möglichkeit in meiner Datei (s.u) die Schaltflächen vor dem Speichervorgang zu löschen? (mit dem Recorder wird der Code ja ellenlang).
Vorab schon mal vielen Dank für Eure Hilfe.
Gruss aus Berlin
Micha


Sub Mit_Namen_Speichern()
DIM sFile As String, sPath As String
sPath = "C:\Dokumente und Einstellungen\Administrator\Eigene Dateien\Excel\" 'daran lag es
sFile = Range("B1").Value & "_" & Range("B4").Value & ".xls" 'in B1 + B4 steht der zukünftige Dateiname
ActiveWorkbook.SaveAs sPath & sFile
End Sub

2
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Schaltflächen entfernen

17.08.2003 13:21:20

Heinz Ulm
AW: Schaltflächen entfernen

18.08.2003 08:08:19

Micha_s

AW: Schaltflächen entfernen

17.08.2003 13:21:20

Heinz Ulm

Hallo Micha,
ich weiß nicht ob dir das hilft, mit:
Sub Zeichnungsobjekte_Löschen()
ActiveSheet.DrawingObjects.Delete
End Sub

lösche ich alle Zeichnungsobjekte aus meinem Tabellenblatt.
Damit ich das Makro immer aufrufen kann habe ich es beim Start der Mappe in die Menüleiste abgelegt. Das folgende Makro zeichnert eine "Buchhalternase" über einen bestimten Bereich. Es soll nur als Anhaltspunkt dienen und wird in DieseArbeitsmappe abgelegt.


Private Sub Workbook_Activate()
Dim cmdBar     As CommandBar
Dim cmdBarCtrl As CommandBarControl
Dim cmdBarBtn  As CommandBarButton
Set cmdBar = Application.CommandBars(1)
On Error Resume Next
cmdBar.Controls("Zoll").Delete 'falls Menüpunkt "Zoll" vorhanden erstmal löschen
On Error GoTo 0
Set cmdBarCtrl = cmdBar.Controls.Add( _
Type:=msoControlPopup, _
Temporary:=True)
cmdBarCtrl.Caption = "Zoll" 'Menüpunkt "Zoll" erstellen
Set cmdBarBtn = cmdBarCtrl.Controls.Add 'Untermenüpunkt "Buchhalternase" einrichten
With cmdBarBtn
.Style = msoButtonIconAndCaption
.FaceId = 2059
.Caption = "Buchhalternase"
.OnAction = "Buchhalternase"
End With
Set cmdBarBtn = cmdBarCtrl.Controls.Add
With cmdBarBtn
.Style = msoButtonIconAndCaption
.FaceId = 2060
.Caption = "Buchhalternase löschen"
.OnAction = "Buchhalternase_löschen" ' Untermenüpunkt "Buchhalternase löschen" einrichten
End With
End Sub

Das gehört auch noch in DieseArbeitsmappe


Private Sub Workbook_Deactivate()
On Error Resume Next
Application.CommandBars(1).Controls("Zoll").Delete 'beim Beenden Menüpunkt "Zoll" löschen
End Sub

Gruß Heinz

AW: Schaltflächen entfernen

18.08.2003 08:08:19

Micha_s

Hallo Heinz,
vielen Dank für Deine Unterstützung.
Ich werde das Makro ausprobieren.
Gruss aus Berlin
Micha

Beliebteste Forumthreads (12 Monate)

Forumthread: Schaltflächen entfernen

2 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Beliebteste Forumthreads (12 Monate)

2
Beiträge zum Forumthread

Beiträge zu diesem Forumthread