| |
▼初心者 さん：
>おはようございます。
>
>以下のことを実現したいのですが処理がうまくいかず、
>教えて頂きたく、投稿いたしました。
>
>(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 <= は要らなくなりますね。
|
|
Yuki
- 09/1/15(木) 10:29 -
