खुले पीपीटी में टेम्पलेट पीपीटी से वर्तमान स्थान पर स्लाइड को कॉपी/पेस्ट करना

Question 1

मैं एक मैक्रो को एक साथ रखने की कोशिश कर रहा हूं, ताकि जब मैं इसे चलाऊं, तो यह एक टेम्पलेट प्रस्तुति से एक स्लाइड को सक्रिय प्रस्तुति के भीतर वर्तमान स्लाइड के बाद में कॉपी/पेस्ट करता है। मैं वहां से 90% रास्ते पर हूं, लेकिन यह पता नहीं लगा सकता कि पेस्ट भाग को वांछित के रूप में कैसे कार्य करना है। मैं केवल यह पा सकता हूं कि इसे किसी निर्दिष्ट स्थान पर कैसे चिपकाया जाए (उदाहरण के लिए, स्लाइड 4), या प्रस्तुति के अंत में।

यह वह MS संसाधन है जिसका मैंने अब तक उल्लेख किया है: https://docs.microsoft.com/en-us/office/vba/api/powerpoint.slides.paste

यह मेरे कोड का वर्तमान संस्करण है:

  Sub PastefromTemplate()
  Dim tgt, i%

  'open the target presentation
  'use path with the file if it is in a different location
  Set objPresentation = Presentations.Open("source path")

  'copy slide 1 from source presentation
  'change the item number in order to target a different slide
  objPresentation.Slides.Item(1).Copy
 
  'paste the slide in target, currently set to slide 3
  tgt = Array(3)
  Presentations.Item(1).Slides.Paste tgt i

  objPresentation.Close
  End Sub

आपकी सहायताके लिए धन्यवाद!

vba powerpoint copy-paste

1

jg43 2 पद 2020, 05:01

Answer

यहाँ समाधान है, अंत में यह पता लगाने में सक्षम था:

Sub Slide9()
Dim src As Presentation
Dim trg As Slide
Dim shp As Shape
Dim target As Presentation

'Copies slide (change # in Item(#)) from the source presentation
Set objPresentation = Presentations.Open("source file path")
objPresentation.Slides.Item(9).Copy
 
'Closes the source presentation
objPresentation.Close

'Go back to active presentation and paste, then go to pasted slide
With ActiveWindow.View
.Paste
.GotoSlide (ActiveWindow.View.Slide.SlideIndex)
End With
        
End Sub

0

jg43 5 पद 2020, 11:56

Question 2

यहाँ समाधान है, अंत में यह पता लगाने में सक्षम था:

Sub Slide9()
Dim src As Presentation
Dim trg As Slide
Dim shp As Shape
Dim target As Presentation

'Copies slide (change # in Item(#)) from the source presentation
Set objPresentation = Presentations.Open("source file path")
objPresentation.Slides.Item(9).Copy
 
'Closes the source presentation
objPresentation.Close

'Go back to active presentation and paste, then go to pasted slide
With ActiveWindow.View
.Paste
.GotoSlide (ActiveWindow.View.Slide.SlideIndex)
End With
        
End Sub

0

jg43 5 पद 2020, 11:56

खुले पीपीटी में टेम्पलेट पीपीटी से वर्तमान स्थान पर स्लाइड को कॉपी/पेस्ट करना

1 उत्तर

संबंधित सवाल

नए सवाल

vba