2

指定したスライドを PNG として保存するコードがあります。

Dim userName As String
userName = Slide322.TextBox1.Text

'Save slide

ActivePresentation.Slides(302).Export _
        filename:="C:\Users\Jessica\Dropbox\Uni\DISSERTATION\Questionnaire\Tools\Results\" & userName & ".png", FilterName:="PNG"

ただし、スライドを .PPT として保存して、後日開いてそのスライドのテキストを編集できるようにしたいと考えています。.SaveAs 構文を使用してみましたが、毎回エラー メッセージが表示され、'Save' タイプの式が認識されません。

私は検索し、これに対する答えを検索しました...誰か助けてもらえますか?

4

5 に答える 5

0

次のコードを試すことができます。

  1. 新しいプレゼンテーションの作成
  2. それにスライドをコピーする

  3. 新しいプレゼンテーションを保存して閉じます。

    Sub SaveSeparateSlide()

    Dim curPres As Presentation
    Set curPres = ActivePresentation
    Dim newPres As Presentation
    Set newPres = Presentations.Add

'change slide number here:
curPres.Slides(1).Copy
newPres.Slides.Paste

    'change your path and name here:
    newPres.SaveAs "single slide presentation.pptx"
    newPres.Close
End Sub

そのコードを少し調整する必要がありますが、対処できると思います:)

于 2013-04-16T16:54:33.173 に答える