摘要: Sub test() '获取所有ppt页面 For Each currentSlide In ActivePresentation.Slides '每个页面加一个文本框 Set Sh = currentSlide.Shapes.AddLabel(msoTextOrientationHorizonta 阅读全文
posted @ 2022-03-22 12:18 iDEAAM 阅读(1786) 评论(1) 推荐(0) 编辑