[ChrisGT7]

Καλησπέρα Χρήστο,

Αντικατέστησε τον κώδικα στο προηγούμενο αρχείο που έχω ανεβάσει με τον παρακάτω:

Option Explicit

Sub EKTYPWSH_PARASTATIKOY()
    On Error GoTo InvalidFile
    Dim Shp As Shape
    
    Application.DisplayAlerts = False
    ActiveSheet.Copy
    With ActiveWorkbook
        For Each Shp In .ActiveSheet.Shapes
            If Shp.Type = msoAutoShape Then Shp.Delete
        Next
        
        .SaveAs Filename:=ThisWorkbook.Path & "\" & _
            [J5] & ", " & [D7] & ", " & Format([J3], "dd.mm.yy") & ".xlsx", FileFormat:=51
        .PrintOut
        .Close False
    End With
    [J5] = [J5] + 1
    Application.DisplayAlerts = True
    
InvalidFile:
    If Err.Number = 0 Then Exit Sub
    MsgBox "Σφάλμα αποθήκευσης!", vbCritical, "ΑΠΟΘΗΚΕΥΣΗ"
    Application.DisplayAlerts = True
End Sub

Ο συγκεκριμένος κώδικας διαγράφει μόνο τα σχήματα (όπως είναι τα κουμπιά) από το αρχείο που πρόκεται να διαγραφεί ελέγχοντας τον τύπο του σχήματος. Οπότε, ανάλογα τι τύπο σχήματος θέλουμε να κρατήσουμε στο αρχείο μας, πρέπει να κάνουμε τους αντίστοιχους ελέγχους.