Sub 画像やグラフの位置を変更する()
    
    '上からの位置（ピクセル数）
    ActiveSheet.Shapes("画像orグラフの名前").Top = 30
    '左からの位置（ピクセル数）
    ActiveSheet.Shapes("画像orグラフの名前").Left = 30
    
End Sub