VB6.0用掲示板の過去のログ(No.1)−VBレスキュー(花ちゃん)
[記事リスト] [新規投稿] [新着記事] [ワード検索] [過去ログ] [管理用]

投稿日： 2004/01/19(Mon) 18:07
投稿者： SIN
Ｅメール： sin1113jp@yahoo.cp.jp
ＵＲＬ：
タイトル： Re^3: 自動で閉じたいのですが・・・

すみません。簡単に概要を書きます。
現在POWER POINTの*.PPTファイルをPDF変換するためのマクロを
作成しています。
まずVBのアプリケーションでPOWER POINTを起動させてマクロのある、”PsFileOut.ppt”と言うファイルを開きます。↓
Shell("""C:\Program Files\Microsoft Office\Office\POWERPNT.exe"" \\NMGSV003\candv\共有\ _
マクロ\PsFileOut.ppt", vbNormalFocus)

するとPPAUTO_OPEN()でPSファイル化実行するのですが、
最後にPOWER POINTを自動で閉じることができません。
醜いソースですみませんが以下のソースがマクロです。






Sub ppauto_open()
'
' マクロ記録日: 2004/1/16 ユーザー名: 富士通テン
'
Dim PpTmpFile As String
Dim PsFile As String
Dim OpenName As String
Dim Apprication As String


PpTmpFile = "\\NMGSV003\candv\共有\PpTmpFile.txt" 'PDF化するファイルの名前が書いてある。
If Dir(PpTmpFile) <> "" Then

On Error Resume Next
    Open PpTmpFile For Input As #1
        While Not EOF(1)
            Input #1, OpenName
            PsFile = Dir(OpenName)
            PsFile = "\\Nmgsv003\PDF\PDF変換\IN\" + Left(PsFile, Len(PsFile) - 4) + ".PS"
        Presentations.Open FileName:=OpenName, ReadOnly:=msoFalse
        With ActivePresentation.PrintOptions
            .RangeType = ppPrintAll
            .NumberOfCopies = 1
            .Collate = msoTrue
            .OutputType = ppPrintOutputSlides
            .PrintHiddenSlides = msoTrue
            .PrintColorType = ppPrintColor
            .FitToPage = msoFalse
            .FrameSlides = msoFalse
            .HandoutOrder = ppPrintHandoutHorizontalFirst
            .ActivePrinter = "Acrobat Distiller"
        End With
        ActivePresentation.PrintOut PrintToFile:=PsFile
        ActivePresentation.Close
        Kill OpenName
        Wend

    Close #1
Kill PpTmpFile

End If
Application.Quit  '←これを実行してもダメでした。
End Sub

- 関連一覧ツリー （★ をクリックするとツリー全体を一括表示します）
- 返信フォーム （この記事に返信する場合は下記フォームから投稿して下さい）

- Web Forum -