[[20100121145900]]　『パワーポイントのファイルをマクロで開く』（みゆき）　ページの最後に飛ぶ

『パワーポイントのファイルをマクロで開く』（みゆき）

 Excel2002,WindowsXP
 こんにちわ。
 パワーポイントのファイルをエクセルマクロで開くことはできますか？
 但し、ファイルを開くときにパスワードがかかっています。
 マクロボタンを押すとパワーポイントのファイルを開く。

 下記は、パワーポイントのファイルをエクセルマクロで開くときのマクロ記述ですが  
 パスワードがかかったファイルが開けません。
 どのような記述にすればよいでしょうか？
 ご教授ねがいます。よろしくお願いします。

 Sub パワーポイントのファイルをエクセルマクロで開く()　
    フォルダパス = "C:\AAA"
    ファイル名 = フォルダパス & "\パワーポイント.ppt"

   Set Pポイント = CreateObject("PowerPoint.Application") 'PowerPointを起動
    Pポイント.Visible = True                               'PowerPointを表示
    Set プレゼン = Pポイント.presentations.Open(ファイル名)   'プレゼンテーションを開く
 End Sub

 aaaaがパスワードだとして。

 パワーポイント上では
 SendKeys "aaaa~"
 Presentations.Open FileName:="パス＋ファイル名"

 で、開けました。
 (独覚)

 独覚さん回答有難うございました。
 どのような記述にしましたか？
 実行時エラーがでます。
 記述が違うのでしょうか？
 教えて下さい（みゆき）

 私が試したのはあくまでもパワーポイントのVBEでです。
 EXCEL上では

 SendKeys "aaaa~"
 Set プレゼン = Pポイント.presentations.Open(ファイル名)
 ということになるのかな？

 (独覚)

 追記
 一応上記で開けましたがタイミングなどによってはきちんとパスワードが入力されないこともあって、確実ではないようです。
 すみませんでした。
 (独覚)

 独覚さん有難うございます。
 エクセルマクロからパスワード付のファイルを開くことはできないのでしょうか？
 パスワードで開けないなら、パワーポイントの画面に保護設定などできないのでしょうか？
 みゆき

コメント返信：

[ 一覧(最新更新順) ]

[[20100121145900]] 『パワーポイントのファイルをマクロで開く』（みゆき） ページの最後に飛ぶ

[[20100121145900]]　『パワーポイントのファイルをマクロで開く』（みゆき）　ページの最後に飛ぶ