durch mein Makro wird das Tabellenblatt "Übersicht" ohne Makros in eine xlsx Datei gespeichert.
Nun sollen in der neuen datei alle Schaltflächen gelöscht werden, Grafiken sollen jedoch erhalten bleiben.
So wie ich es jetzt habe, werden auch die Grafiken gelöscht.
...
' Rechnung Kopieren
Worksheets("Übersicht").Copy
With ActiveSheet.UsedRange
.Value = .Value
End With
With ActiveSheet.Parent.VBProject.VBComponents(ActiveSheet.CodeName).CodeModule
.DeleteLines 1, .CountOfLines
End With
' Rechnung speichern und Schaltflächen löschen
ActiveWorkbook.SaveAs Filename:=Pfad & "\" & ReNr & ".xlsx"
ReNrDatei = ReNr & ".xlsx"
Windows(ReNrDatei).Activate
ActiveWorkbook.Sheets("Übersicht").Shapes.SelectAll
Selection.Delete
ActiveWorkbook.Save
ActiveWorkbook.Close
...
Kann mir jemand weiterhelfen?
Gruß,
Willi