Löschen von AutoForm und Makro beim Speichern
29.01.2008 19:28:00
AutoForm
ich habe ein Tabellenblatt, welches unter anderem AutoForm3 und ein Blid 1 enthält. Beim Speichern des Blattes, soll aber nur das AutoForm 3 und die in dem Tabellenblatt enthaltenen Makros gelöscht werden. So daß praktisch eine formatierte Tabelle mit Bild abgespeichert wird. Mein bisheriger Code lautet:
Private Sub Teilebestellung_drucken_Click()
Dim SavePath As String
Dim tb As Object
Dim Shp As Object
SavePath = "C:\Dokumente und Einstellungen\PC2\Eigene Dateien\Bestellungen"
'Kopiert die aktuelle Tabelle
ActiveSheet.Copy
'Löscht die CommandButton
For Each Shp In ActiveSheet.Shapes
If Shp.Type = 12 Then Shp.Delete
Next
'Löscht die AutoForm
For Each tb In ActiveSheet.Shapes
tb.Delete
Next
'Speichert die Datei unter dem Tabellennamen und das aktuelle Datum mit UIhrzeit
ActiveWorkbook.SaveAs SavePath & "\" & ActiveSheet.Name & " " & Format(Now, "dd-mmm-yy h-mm-ss") & ".xls"
Variable = Application.Dialogs(xlDialogPrint).Show
'ActiveSheet.PrintOut druckt auf Standarddrucker
'Sheets("Teilebestellung").Activate läßt Tabelle offen
ActiveWorkbook.Close 'schließt kopierte Tabelle wieder
End Sub
Es werden hierbei das Bild und die AutoForm gelöscht. Die Makros überhaupt nicht. Ist mein Wunsch realisierbar.
MfG
BuStue