Sub CopyObjectToMultipleSlides()
' |||Name:对象跨页复制|Description:PPT复制选中对象到指定页面保持属性不变跨页复制批量操作|Vision:1.0.2|||
' 功能：复制当前选中的对象到指定的多个PPT页面，保持位置、大小、颜色等所有属性不变
' 作者：VBA助手
' 版本：1.0.2
' 日期：2023-10-15
' 更新：支持输入空值时复制到所有页面
On Error GoTo ErrorHandler
登录后可以发表评论
立即登录
Fest
26天前这个代码很实用，帮我节省了很多时间！