在 PowerPoint VBA 中，如何微移窗口中所有当前的形状（不仅仅是一个）？
据我了解，这段代码仅“抓取”活动窗口中的第一个形状并轻推它：
设置 oShape = oSlide.Shapes(1)
oShape.Left = oShape.Left + 5
如何“抓取”窗口中的所有形状并同时微移它们？
As far as I understand, this code "grabs" only the first shape in the active window and nudges it:
Set oShape = oSlide.Shapes(1)
oShape.Left = oShape.Left + 5
How can I "grab" all the shapes in the window and nudge them all at once?
如果你对这篇内容有疑问，欢迎到本站社区发帖提问 参与讨论，获取更多帮助，或者扫码二维码加入 Web 技术交流群。
绑定邮箱获取回复消息
由于您还没有绑定你的真实邮箱，如果其他用户或者作者回复了您的评论，将不能在第一时间通知您！
发布评论
评论（1）
您可能可以迭代当前幻灯片的
形状< /code>集合来设置每一项。You could probably iterate through the current slide's
Shapescollection to set each one.