- ベストアンサー
エクセルのVBAで開いているパワーポイントのファイルを印刷
エクセルのVBAで開いているパワーポイントのファイルを印刷することは可能でしょうか? 色々とHP等で調べましたが、わかりません 教えてください
- naoya777
- お礼率11% (8/69)
- Visual Basic
- 回答数4
- ありがとう数0
- みんなの回答 (4)
- 専門家の回答
質問者が選んだベストアンサー
お、まだあきらめないんですね。 難しいでしょうが、がんばってください。 Sub pp_Print4() Dim objPPT As Object '参照設定していればPowerPoint.Application Dim myPre As Object 'PowerPoint.Presentation Dim myName As String Dim n As Long myName = "E:\office\powerpoint\0.ppt" 'ファイル名 Set objPPT = CreateObject("PowerPoint.Application") With objPPT .Visible = True On Error GoTo Err_Hnd 'ファイル開いているとき Set myPre = .Presentations(myName) GoTo tugi Err_Hnd: 'ファイル開いていないとき Set myPre = .Presentations.Open(myName) tugi: On Error GoTo 0 End With With myPre '用紙に合わせる .PrintOptions.FitToPage = msoTrue .PrintOut '印刷 DoEvents .Close 'ファイル閉じる End With 'PowerPoint終了 objPPT.Quit Set myPre = Nothing Set objPPT = Nothing End Sub
その他の回答 (3)
- n_na_tto
- ベストアンサー率70% (75/107)
pp_Print3で.Closeを忘れました。 ↓こっちでお願いします。 Sub pp_Print3() Dim myPre As Object 'powerpoint.Presentation Dim n As Long 'ファイル名指定する場合 On Error GoTo Err_Hnd Set myPre = GetObject("E:\office\powerpoint\0.ppt") On Error GoTo 0 With myPre .Application.Visible = True With .PrintOptions '用紙に合わせる .FitToPage = msoTrue End With .PrintOut '印刷 DoEvents .Close End With Err_Hnd: Set myPre = Nothing End Sub
- n_na_tto
- ベストアンサー率70% (75/107)
Sub pp_Print2() Dim objPPT As Object '参照設定していればpowerpoint.Application Dim n As Long '起動しているPowerPoint取得 On Error GoTo Err_Hnd Set objPPT = GetObject(, "PowerPoint.Application") On Error GoTo 0 With objPPT.Presentations(1) 'ひとつ目のファイルだけ With .PrintOptions '用紙に合わせる .FitToPage = msoTrue End With .PrintOut '印刷 DoEvents End With Err_Hnd: Set objPPT = Nothing End Sub Sub pp_Print3() Dim myPre As Object 'powerpoint.Presentation Dim n As Long 'ファイル名指定する場合 On Error GoTo Err_Hnd Set myPre = GetObject("E:\office\powerpoint\0.ppt") On Error GoTo 0 With myPre With .PrintOptions '用紙に合わせる .FitToPage = msoTrue End With .PrintOut '印刷 DoEvents End With Err_Hnd: Set myPre = Nothing End Sub
- n_na_tto
- ベストアンサー率70% (75/107)
開いているファイルをすべて印刷するなら.. Sub pp_Print() Const ppPrintOutputSixSlideHandouts = 4 Dim objPPT As Object 'パワポに参照設定ならPowerPoint.Application Dim myPre As Object 'PowerPoint.Presentation Dim n As Long '起動しているPowerPoint取得 On Error GoTo Err_Hnd Set objPPT = GetObject(, "PowerPoint.Application") On Error GoTo 0 With objPPT.Presentations For n = 1 To .Count '開いているプレゼンループ With .Item(n) With .PrintOptions '1枚に6スライド(例です) .OutputType = ppPrintOutputSixSlideHandouts '用紙に合わせる .FitToPage = msoTrue End With .PrintOut '印刷 DoEvents End With Next n End With Err_Hnd: Set objPPT = Nothing End Sub 新しく開くならCreateObjectを使うことも。
補足
ありがとうございます。 特定のパワーポイントファイル1つを印刷するにはどうすればいいでしょうか? また、1ページに1スライドのみ印刷したいのですが、どうすればいいでしょうか?
関連するQ&A
- パワーポイントVBA
パワーポイント2003または2007を使える環境です。 パワーポイントVBAで下記の事を実行したいのですが教えて頂けないでしょうか? 「シフト」を押した状態でクリックするとハイパーリンクで、あるHTMLファイルに飛ぶ、というVBAが、あるテキストボックスをクリックすれば実行されるのを組みたいと思っています。 シフト押すというVBAが難しければ、他のHTMLファイルに飛ぶというVBAだけでも教えて頂ければ助かります。 よろしくお願いします。
- 締切済み
- オフィス系ソフト
- エクセル VBA パワーポイントに値を貼り付けしたい
エクセルのVBAで、エクセルのあるセルの値を、 パワーポイントにテキストとして貼り付けしたいのですが どのように記述すればよいでしょうか。 よろしくお願い致します。
- 締切済み
- その他(プログラミング・開発)
- パワーポイントをエクセルファイルへ
パワーポイントで作成したものを、エクセルファイルにしたいと思っていますが、方法がわかりません。 パワーポイントで作成したものを、そのまま、エクセルファイルとして変換できないものでしょうか。 パワーポイントで作成したものは、画像を数種貼り付けたものや、テキストボックスで書かれた文字といった単純なものです。 一度、スライドをコピーしたのですが、スライドごとエクセルに貼り付けられてしまいます。これではエクセル上で編集ができないので困りました。 画像とか文字とか個々のものとして、エクセルに移ってくれて、エクセル上でテキストボックスはテキストボックスとして編集や、個々の画像の差し替えや訂正などをしたいと思っています。 何かアドバイスをお願いいたします。
- 締切済み
- オフィス系ソフト
- Excelシート内容の一部を、パワーポイントに貼り付けるVBA
Excelシート内容の一部を、パワーポイントに貼り付ける作業をしているのですが、この作業をVBAで対処できないか?とおもっています。 EXCEL VBAで、パワーポイントを連動させることは可能なのでしょうか?ご存知の方、あるいは良い方法をご存知の方が居ましたら、アドバイスください!
- ベストアンサー
- オフィス系ソフト
- エクセル/パワーポイントのVBAについて質問です。
エクセル/パワーポイントのVBAについて質問です。 エクセル/パワ^ポイント上で、既に選択されているオブジェクトを塗りつぶすマクロを作成しましたが、何も選択されていない状況でマクロを実行するとエラーが返ってしまいます。マクロを実行したときに、オブジェクトが選択されていない場合には「オブジュエクトを選択してから実行してください」という趣旨のメッセージボックスをだしてエラーを回避したいのですが、どのような構文を使えばよろしいのでしょうか。 どうぞ宜しくお願い致します。
- ベストアンサー
- オフィス系ソフト
- 至急!パワーポイントのファイルをエクセルで編集
パワーポイントのファイルをエクセルに移し編集できる方法 パワーポイントで作成した文章及び図などをエクセルやワードに移してなおかつ編集(文字を追加するなど)ができる方法を探しています。 パワーポイントのファイルをエクセルに移す方法はわかったのですが、その移したものに手を加えることができずに困っています。 わかりづらいと思いますが、まずパワーポイントで作成したファイルをエクセル(またはワード)に貼り付けて、そこにさらに文章などを書き込むということです。しかし実際にやってみると丸々そのファイルが「画像」と認識されていて上に文字が書き込めません。 「パワーポイントで先に文章を追加すればいい」という回答は遠慮願います…。 使用しているパワポ・エクセル・ワードはすべて2010です。 ご回答お願いします!!!
- ベストアンサー
- オフィス系ソフト
- パワーポイントのpptファイルの印刷について
パワーポイントで作成したファイルを印刷する時に、 そのファイルの保存場所を印刷した紙からすぐわかるようにパスつきのファイル名を下のほうにつけて印刷 したいのですが、なにか良い方法はないでしょうか? 宜しく御願い致します。
- 締切済み
- オフィス系ソフト
- エクセル2003をパワーポイント2003に貼り付ける
マイクロソフトオフィスのエクセル2003で作成した表をパワーポイント2003に貼り付けたいのですが、そのまま貼り付けられません。パワーポイント2000とエクセル2000の場合は、パワーポイントに貼り付けた表をクリックするとエクセル表になるので、パワーポイント上でエクセル表の計算式を修正できたいへん便利でしたが、2003では使い勝手が悪く困っています。パワーポイント2003とエクセル2003を2000と同じように使用する方法はないでしょうか。パワーポイントとエクセルを2000に戻すしか方法は無いのでしょうか。お教え下さい。
- ベストアンサー
- オフィス系ソフト
- パワーポイント画像の印刷
html化されたパワーポイントファイルの入ったCD-ROMを受け取りました。内容の画像を印刷して持ち歩きたいのですが、どうしたらよいのでしょうか?当方、パワーポイントを所持しておりません。
- 締切済み
- オフィス系ソフト
- パワーポイント・プレゼンテーションをエクセルに
私のパソコンにはパワーポイントがないので、pptのファイルを見るにはパワーポイント・ビューワー2003というのを使ってますが、このファイルに書き込む方法や、エクセルへ貼り付ける方法などがあれば教えてください。 他にも何か方法があれば、教えていただけますでしょうか。
- ベストアンサー
- オフィス系ソフト
補足
ありがとうございます。 パワーポイントの「閉じる」ですが、開いている特定のファイルは閉じますが、パワーポイントのソフト自体が残ってしまいます。 パワーポイント自体を閉じるにはどうすればいいのでしょうか?