Sub 画像やグラフの大きさを変更する()
    
    ActiveSheet.Shapes("画像orグラフの名前").LockAspectRatio = msoTrue '縦横比率を保持しない場合
   'ActiveSheet.Shapes("画像orグラフの名前").LockAspectRatio = msoFalse '縦横比率を保持する場合
    
    '高さを変更する（ピクセル数）
    ActiveSheet.Shapes("画像orグラフの名前").Height = 50
    '横幅を変更する（ピクセル数）
    ActiveSheet.Shapes("画像orグラフの名前").Width = 100
    
End Sub