Sub エクセルからパワーポイント_パワポPPT_へグラフを貼り付ける()

    '貼り付けたいグラフを指定する
    Set グラフ = ActiveSheet.ChartObjects("グラフの名前").Chart
    Call グラフ.CopyPicture(xlScreen, xlPicture) 'グラフをコピー
    
    '今開いているパワーポイントを処理
    Set パワポ指定 = CreateObject("PowerPoint.Application").ActivePresentation
    Set スライド = パワポ指定.Slides(1) '(1)でページ数を指定
    
    スライド.Select 'スライドを選択
    スライド.Shapes.Paste 'スライドへ貼り付け
    
    今の画像 = スライド.Shapes.Count 'Count=最後の今の画像を指定
    
    スライド.Shapes(今の画像).Top = 100 '上からの位置
    スライド.Shapes(今の画像).Left = 100 '左からの位置
    スライド.Shapes(今の画像).Width = 500 '幅を指定

End Sub