Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


7234 / 13644 ツリー ←次へ | 前へ→

【40345】パワーポイントへグラフコピー カミュ 06/7/12(水) 6:05 質問[未読]
【40346】Re:パワーポイントへグラフコピー ちくたく 06/7/12(水) 8:46 回答[未読]
【40377】Re:パワーポイントへグラフコピー カミュ 06/7/12(水) 21:48 発言[未読]
【40386】Re:パワーポイントへグラフコピー ichinose 06/7/13(木) 8:33 発言[未読]

【40345】パワーポイントへグラフコピー
質問  カミュ  - 06/7/12(水) 6:05 -

引用なし
パスワード
   こんにちは、カミュです。

エクセルのグラフをパワーポイントの新規PPTにコピーする方法はあるのでしょうか。わかる方教えてください。お願いします。

【40346】Re:パワーポイントへグラフコピー
回答  ちくたく E-MAIL  - 06/7/12(水) 8:46 -

引用なし
パスワード
   カミュ さん

おはようございます。

ふつうに、コピーしてペーストしたらできますよ。
うまく行かない場合は症状を教えてください。

【40377】Re:パワーポイントへグラフコピー
発言  カミュ  - 06/7/12(水) 21:48 -

引用なし
パスワード
   ▼ちくたく さん:
ありがとうございます。

説明不足な質問で申し訳ありません。
それをエクセルのマクロの実行ですべて行いたいのです。

PPTの新規作成+グラフのコピーのコードの書き方がわからないので解る方ご教授ください。

【40386】Re:パワーポイントへグラフコピー
発言  ichinose  - 06/7/13(木) 8:33 -

引用なし
パスワード
   おはようございます。

>それをエクセルのマクロの実行ですべて行いたいのです。
>
>PPTの新規作成+グラフのコピーのコードの書き方がわからないので解る方ご教授ください。
これは、PowerPonitのHelpやマクロの記録を調べないと詳しいことはわかりませんね!!

Excel側のアクティブシートにグラフ(Chartobjectとして)が作成されているとして

'================================================
Sub test()
  Dim cch As ChartObject
  Dim pwp As Object
  Dim prs As Object
  Dim sld As Object
  Set pwp = CreateObject("powerpoint.application")
  With pwp
    .Visible = True
    Set prs = .presentations.Add
    Set sld = prs.slides.Add(1, 12)
    Set cch = ActiveSheet.ChartObjects(1)
    cch.CopyPicture xlScreen
    With sld.Shapes.Paste
     .Left = 0
     .Top = 0
     End With
    End With
End Sub

これでグラフを図としてPowerPoint側に貼り付けることが
できます。

7234 / 13644 ツリー ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free