| |
おはようございます。
>それをエクセルのマクロの実行ですべて行いたいのです。
>
>ＰＰＴの新規作成＋グラフのコピーのコードの書き方がわからないので解る方ご教授ください。
これは、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側に貼り付けることが
できます。
|
|
![[未読]](./data/excel/image/read_icon.gif){kind=icon}
- 06/7/12(水) 8:46 -
