VBScript Visible = Falseが使えない

Question

VBScriptにてパワポを起動し、ある条件まで起動したパワポを非表示にしたいのですが、
Visible = Trueは使えるのに、Visible = False だとエラーになります。

VBAだとScreenUpdatingなどの描画制御ができると思うのですが
VBScriptでアプリを非表示状態（もしくは描画費更新）させたい場合、
何か良い方法はないでしょうか。

Dim oApp : Set oApp = CreateObject("PowerPoint.Application")
oApp.Visible = True

追記
oApp.Visible = False
にすると下記のようなエラーになります

Comments

[otn]

コード中にVisible = Falseがありません。
エラーの内容が書いてありません。

[Y.H.]

>ある条件まで起動した
これが原因じゃないですかね。

[Qoo]

？違うと思います。
条件によってoApp.Visible = Falseが使えなくなることがあるのでしょうか？

ある条件とは例えばファイル開いて5秒後に表示したいようなケースです。

Set oApp = CreateObject("PowerPoint.Application")
oApp.Visible = False '不可視にする
oApp.Presentations.Open("E:\テスト.ppt")
oApp.ActivePresentation.SlideShowSettings.Run
WScript.Sleep(5000)
oApp.Visible = True '可視にする

上記のようなことを実験したいのですが、
キャプチャ載せている通り、アプリケーションを非表示にするとことはできないというエラーなのでoApp.Visible = Falseが使えないのは分かっています。

[Y.H.]

本当にやりたいことは、
PowerPointの編集画面などを表示させずにいきなりスライドショーを開始したい
ということですか？

[Qoo]

お世話になります。
いえ、少し特殊なのですが、パワポの中にブラウザコントロールを設置しているのですが、
このブラウザコントロールが１度目のスライドショー ではかならず表示されず、２度目の実行で表示されるという不具合が発生しております。しかもこの現象はoffice2016でのみ発生しており、2010,
2013では発生していません。また表示しているサイト側の問題でもないことも確認できています。

なので、VBSの外部スクリプトからパワポを起動し、一度スライドを実行、中断、再度実行
というスクリプトはできているのですが、常に描画されるのでスマートに（非表示の状態で）実行させ
最後に表示することであたかも１回目で表示されているような動きを実現したいと考えております。

[Qoo]

ちなみに

oApp.Top=0
oApp.Left=0
oApp.Width=0;
oApp.Height=0

とすると隠れるかと思ったのですが
起動時は小さいものの、スライドショー 実行では最大化されてしまいます。
また、oApp.Left=3000などで画面外に出そうかと思いましたが
こちらも画面外には出ませんでした。。。

Answer 1

一応確認ですが、以下のようなスクリプトはできているが、
Call .Run().View.Exitで一瞬表示されるのが気に食わないので対策を探している、ということですか？

'https://teratail.com/questions/237012
Dim presPath 'As String
presPath = "E:\テスト.ppt"

Dim appPpt 'As PowerPoint.Application
Set appPpt = CreateObject("PowerPoint.Application")

Dim pres 'As PowerPoint.Presentation
Set pres = appPpt.Presentations.Open(presPath)

With pres.SlideShowSettings
    Const ppShowTypeKiosk = 3
    '一度スライドを実行、中断。
    .ShowType = ppShowTypeKiosk
    Call .Run().View.Exit
    
    '再度実行。
    Call .Run
End With

---

PowerPointは挙動を見る限りではシングルインスタンス(複数起動できない)のソフトのようです。
そのため、Application.Visible = Falseは全体に影響が及んでしまうためNGとなっているのではないかと思います。

Comments

[Qoo]

>対策を探している、ということですか？
そうなんです！Applicationの非表示ができないので、
スライドビュー自体のHideメソッドとかないのかとかいろいろ調べているところです。

[imihito]

となると、VBScriptでは厳しいと思います。

`SlideShowWindow`オブジェクトは`SlideShowSettings.Run()`を実行するまで生成されないので、事前に位置・大きさの調整をすることは難しいでしょう。
表示してから調整するのであれば、閉じてしまった方が結果的に早いでしょうし。

おそらく、仮想デスクトップやマルチディスプレイで、最初から他の画面でスライドショーを実行させれば近いことは可能でしょうが、Windows側の話なのでVBScriptだけでは厳しいとも思います。

あと正直自分の環境では`Call .Run().View.Exit`で表示されているのをほぼ認識できないです。

Answer 2

PowerPointはApplication.Visible = Falseは常に質問記載のエラーになると思います。よって、明示的に非表示にできないですね。

もし「PowerPointの編集画面などを表示させずにいきなりスライドショーを開始したい」が実現したい事であれば、
pps形式などのスライドショー形式で保存しておいたものをWScript.ShellのRunでファイル名で起動すれば見せたくないPowerPointの画面すっ飛ばしていきなりスライドショー開始できますよ。