ExcelマクロでグラフをPowerPointにリンク貼り付けする方法
グラフ作成後データが変更にされるケースがあるので、Powerpointにリンク貼り付けをしていますが、グラフ数が多いので作業短縮のためマクロ化を進めています。
Ｑ&Ａを参考に、PowerPointの起動・スライド追加まではできたのですが、PowerPointの読み取りマクロで得られたリンク貼り付けと思われる実行文で「実行エラー Selection.ShapeRange : 無効な要求です。適切な項目が選択されていません。」というエラーが発生し、お手上げの状態です。解決方法をご教授願います。
Set ppApp = CreateObject("PowerPoint.Application")
:
:
For Each Sh In ActiveWorkbook.Worksheets
For i = 1 To Sh.ChartObjects.Count
'//対象グラフをコピー
Sh.ChartObjects(i).Copy
' // PP 新規スライド挿入
Set ppSld = ppPst.Slides.Add(Index:=i, _
Layout:=ppLayoutBlank)
' // PP 貼り付け
↓ここでエラー発生
With ppApp.ActiveWindow.Selection.ShapeRange(i)
.Height = 409.5
.Width = 649.25
End With
Next i
Next Sh
