Sub エクセルからパワーポイント_パワポPPT_へ画像を貼り付ける()
    
    'エクセルの画像をコピー
    ActiveSheet.Shapes("付けたい名前").Copy
    
    'パワーポイントを処理
    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