Signori,
NON c'è nulla da modificare il codice funziona, anche se è meglio scriverlo così:
codice:
Dim vData As Variant

        vData = Clipboard.GetData
        Clipboard.Clear
        FrmSintRiepilogo.MSChartVal.EditCopy
        FrmSintRiepilogo.ImageSintR.Picture = Clipboard.GetData(vbCFBitmap) '(vbCFDIB)'vbCFBitmap
        SavePicture FrmSintRiepilogo.ImageSintR.Picture, strFolderDati & "\Grafici\MSChartVal.bmp"
        Clipboard.Clear
        Clipboard.SetData vData
Il problema era più semplicemente nella cartella ove si copiano i dati che era settata in sola lettura (ac .......)