Try the SavePicture command.

Private Sub SaveActiveXImage()
    
    Dim filePath As String
    filePath = "your\filepath.jpg"
    
    SavePicture Picture:=Sheets("Sheet1").Image1.Picture, Filename:=filePath

End Sub

Full disclosure, this came from this forum post.