I would try something like this: PowerPointApp.ActivePresentation.SaveAs ThisWorkbook.Sheets("Vorgaben").Range("D6").
確定! 回上一頁