我正试图复制三件电击幻灯片,并将之带入魔 Word(用VBA Marco在PowerPoint): (1) 滑坡号 2) 滑坡图形和幻灯片。
能够使用<条码>Place holder(2)冲动幻灯片的Im,但在试图复制幻灯片的持有人时,我可以采取同样的做法。 我只能通过提供形状<代码”的确切名称来开展工作。 页: 1
我在寻找点人,看他们如何复制幻灯片号码持有人,而不必知道形状的确切名称。
增 编
Sub PPTtoWord()
Copy slide 1, paste as picture onto slide 1, resize, and rename
ActivePresentation.Slides(1).Copy
Set mySlideCopy = ActivePresentation.Slides(1).Shapes.Paste
With mySlideCopy
.Name = "Slide Thumbnail"
.Left = 0
.Top = 0
.Height = 400
.Width = 200
End With
Set up Word
Dim wdApp As Word.Application, wdDoc As Word.Document
Set wdApp = GetObject(, "Word.Application")
If wdApp Is Nothing Then Set wdApp = New Word.Application
Set wdDoc = wdApp.ActiveDocument
Copy slide number from a placeholder on slide 1 over to Word
Set myDocument = ActivePresentation.Slides(1)
********** This is where the problem is *****************
ActivePresentation.Slides(1).Shapes("Slide Number Placeholder 77").TextFrame.TextRange.Copy
*********************************************************
wdApp.Selection.PasteAndFormat wdFormatPlainText
wdApp.Selection.Move
Copy slide thumbnail from slide 1 over to Word, then delete it
ActivePresentation.Slides(1).Shapes("Slide Thumbnail").Copy
wdApp.Selection.PasteAndFormat wdPasteDefault
wdApp.Selection.Move
ActivePresentation.Slides(1).Shapes("Slide Thumbnail").Delete
Copy slide notes from slide 1 notes master over to Word
ActivePresentation.Slides(1).NotesPage.Shapes.Placeholders(2).TextFrame.TextRange.Copy
wdApp.Selection.PasteAndFormat wdPasteDefault
wdApp.Selection.Move
End Sub
(我热切希望把这三件事摆在桌面上,并重复所有幻灯片,但首先需要做这项工作)。)