use powerpoint VBA to refactored this script