エクセルのマクロでパワーポイントについて

質問

エクセルでマクロを使用してパワーポイントを開くマクロについて質問です。

下記ののようなマクロを実行すると、目的のファイルは開くのですが
最小化で開かれてしまいアクティブになりません。(タスクバーのところで光っているだけ)

このマクロ組んだPCで実行するとスライドショーが開かれるのですが
他のPCからこのマクロが組んであるエクセルを開いて実行すると上記のような
状態になってしまいます。

どのようにすれば、どのPCでもスライドショーから始まるのか教えて下さい。

Sub コール()
Set objPpt = GetObject("V:\テスト\コール_20170711.pptx")

'' スライドショー実行

objPpt.SlideShowSettings.Run

End Sub

回答No.1

Prome_Lin

普通、こういう風に組みます。

Sub Sample()
Set pp = CreateObject("PowerPoint.Application")
pp.Visible = True
Set pt = pp.Presentations.Open("D:\VBScript\あいうえお.pptx")
MsgBox ("Open!")
pt.Close
Set pt = Nothing
Set pp = Nothing
End Sub

簡単な説明です。

Set pp = CreateObject("PowerPoint.Application")

まず、「PowerPoint」を扱えるようにします。

もし、「Word」なら、

Set wd = CreateObject("Word.Application")

です。

pp.Visible = True

で、「PowerPoint」を表示します。

もちろん、「False」に設定すれば、表示しません。

Set pt = pp.Presentations.Open("D:\VBScript\あいうえお.pptx")

このようにして、ファイルを開きます。
（実際に試しています）

MsgBox ("Open!")

「Open!」と表示しています。

pt.Close

開いたファイルを閉じています。

Set pt = Nothing
Set pp = Nothing

「Set」で使った変数は、使い終わったら、「Nothing」で解放しておきます。

お礼

教えて頂いたマクロを試してみましたが
やはり症状は変わらず、マクロを組んだPCで実行すると
問題なく起動しますが、他のPCから実行すると
エクセルの画面が表示されたままで、パワーポイントは
起動しますがタスクバーの所に点滅した状態で起動するだけで
画面が表示されません。

解説なども付けて頂きありがとうございます。