[リストへもどる]　　　[VBレスキュー(花ちゃん)]
一括表示
投稿時間：2005/12/07(Wed) 10:58
投稿者名：Five
Ｅメール：
ＵＲＬ　：
タイトル：VBからPowerPointを操作
  Dim Ppt As Object

  Set Ppt = CreateObject("PowerPoint.Application")
  Ppt.Visible = True
  Ppt.Presentations.Open ("C:\1207.ppt")


VBからPowerPointを操作しています。
Visible = True
にしないとエラーで落ちてしまうので記述していますが、
それだとタスクバーに表示されますよね。

Excelのように裏で動かす事は無理なのでしょうか？

よろしくお願い致します。

投稿時間：2005/12/12(Mon) 11:40
投稿者名：Five
Ｅメール：
ＵＲＬ　：
タイトル：Re: VBからPowerPointを操作
レスもなく、他に方法も思いつかないので
PowerPointを最小化する事にしました。

ありがとうございました。

投稿時間：2005/12/12(Mon) 14:56
投稿者名：matsu
Ｅメール：
ＵＲＬ　：
タイトル：Re^2: VBからPowerPointを操作
> レスもなく、他に方法も思いつかないので
> PowerPointを最小化する事にしました。
>
> ありがとうございました。

VB6 SP5、PowerPoint2000の場合ですが

Call Ppt.Presentations.Open("C:\1207.ppt", , , False)

とする事でエラーは回避できました。

投稿時間：2005/12/12(Mon) 16:34
投稿者名：Five
Ｅメール：
ＵＲＬ　：
タイトル：Re^3: VBからPowerPointを操作
> VB6 SP5、PowerPoint2000の場合ですが
>
> Call Ppt.Presentations.Open("C:\1207.ppt", , , False)
>
> とする事でエラーは回避できました。

matsu様、ありがとうございます。
matsu様の方法で非表示にする事が出来ました！

しかし、★の場所で落ちてしまいます。

    Dim Ppt As Object
    Dim Pre As Object

    Set Ppt = CreateObject("PowerPoint.Application")
    Set Pre = Ppt.Presentations.Open("C:\1207.ppt", , , False)

　　-----処理-----

　　Pre.Windows(1).View.Paste　←――――★


非表示にしているから落ちるのでしょうか・・・？

投稿時間：2005/12/27(Tue) 17:13
投稿者名：Five
Ｅメール：
ＵＲＬ　：
タイトル：ありがとうございました。
表示のままで使用する事にしたので解決とさせて頂きます。
ありがとうございました。