|
pio さん
でれすけさん
こんにちは。
'=================================================================
Sub test()
With CreateObject("powerpoint.application")
.Visible = True
With .Presentations.Open(Filename:=起動パワーポイントパス)
With .SlideShowSettings
.ShowType = 1
.LoopUntilStopped = 0
.ShowWithNarration = 1
.ShowWithAnimation = 1
.RangeType = 1
.AdvanceMode = 2
.PointerColor.SchemeColor = 2
.Run
End With
.Saved = True
End With
End With
End Sub
これで試してみてください。
それから、
でれすけさんの方法もOKでしたよ!!
起動パワーポイントパスの変数の中身に問題がありそうです!!
(フォルダ名に空白を含んでいるとか)
Sub test3()
起動パワーポイントパス = "D:\My Documents\test.ppt"
ans = Shell("C:\Program Files\Microsoft Office\Office10\POWERPNT.EXE /s " & _
"""" & 起動パワーポイントパス & """", vbMaximamzedFocus)
End Sub
確認してみてください。
でれすけさん、/Sは、メモメモ・・です。
ありがとうございます。
|
|