Excel VBA質問箱 IV

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

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


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

22314 / 76807

←次へ　｜　前へ→


	【59876】Re:エクセルグラフをパワーポイントに張り付けるには

Yuki - 09/1/15(木) 10:29 -


	引用なし

	パスワード

▼初心者さん：
>おはようございます。
>
>以下のことを実現したいのですが処理がうまくいかず、
>教えて頂きたく、投稿いたしました。
>
>(1)エクセルにあるグラフをパワーポイントに張り付けたい。
>→これは問題なく処理できる。
>(2)エクセルのシートには複数グラフがあり、1つのスライドに1つのグラフを張り付けて、全部貼り付けが完了するまで貼り付けを繰り返す。
>→2個目のグラフを2枚目のスライドに貼り付けの「領域を超えています」と処理が止まってします。
>(3)拡張メタでパワーポイントに貼り付けたグラフを切り取り、ビットマップで貼り付けを再度行いたい。
>→この部分は記述自体がよく理解できていません。
>
>(2)と(3)がうまく処理できないでいます。
>

(2)について
>' // PP 新規スライド挿入
>Set ppSld = ppPst.Slides.Add(Index:=1, _
>Layout:=ppLayoutBlank)
としていますから
>With ppSld.Shapes(i)　　　'(2)2個目のグラフ貼り付けはここで処理が止まる。
のiは
ppSld.Shapes.AddShape
とでもしてShapeを追加しない限り1です。

(3)について
>' // XL グラフを Picture 形式でコピー
>Sh.ChartObjects(i).CopyPicture xlScreen, xlPicture
Sh.ChartObjects(i).CopyPicture xlScreen, xlBitmap
にすれば
.Cut と .Paste <= は要らなくなりますね。

0 hits

▼

【59873】エクセルグラフをパワーポイントに張り付けるには 初心者 09/1/15(木) 8:41