Sparizione dei pulsanti in seguito esecuzione macro

[recalcatiiti]

Buongiorno,
ho ideato questa macro che mi salva in pdf il foglio ed in più salva anche il file .xls:

Codice: Seleziona tutto

Sub pdfsalva1209()
'
' pdfsalva1209 Macro
'

'
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
        "C:\Users\s.recalcati\Desktop\xxxxxxxxxxxxx", Quality:= _
        xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
        OpenAfterPublish:=True
    ActiveWorkbook.Save
End Sub

Funziona bene, peccato che una volta eseguita, tramite pulsante, mi faccia sparire tutti gli altri pulsanti (il foglio contiene più macro assegnate a più pulsanti).
Qualcuno sa perché?

vi ringrazio
s.r

[Marius44]

Ciao
Ma perché alla fine questa riga

Codice: Seleziona tutto

ActiveWorkbook.Save

Penso che togliendola tutto si rimette a posto.

Prova e fammi sapere. Ciao,
Mario

[recalcatiiti]

ciao, grazie per la risposta
quello mi serve per salvare il file .xls..
comunque ho provato a eliminare la riga, ma è uguale. spariscono tutti gli altri pulsanti tranne quello dedicato all'esecuzione di quella macro...

[recalcatiiti]

Ciao, sono riuscito a capire il problema, era dovuto al fatto che i pulsanti avessero spuntata nelle opzioni la voce "adatta dimensioni", disattivando quella, non dà più problemi.
Grazie comunque!