PPT复制页面

willsonlincake · 发表于 2022-4-14 20:04:06| 字数 491

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

x

def duplicate_slide(pres, index):
source = pres.slides[index]
try:
      blank_slide_layout = pres.slide_layouts[6]
except:
      blank_slide_layout = pres.slide_layouts[len(pres.slide_layouts) - 1]
dest = pres.slides.add_slide(blank_slide_layout)

for shp in source.shapes:
      el = shp.element
      newel = copy.deepcopy(el)
      dest.shapes._spTree.insert_element_before(newel, 'p:extLst')

for key, value in source.rels.iteritems():
      if not "notesSlide" in value.reltype:
         dest.rels.add_relationship(value.reltype, value._target, value.rId)

return dest