Set PptDoc = PPtapp.Presentations.Open(ppt) With PptDoc For Each sld In PptDoc.Slides For WVL_CptShape = 1 To sld.Shapes.Count WVL_Id = sld.
確定! 回上一頁