Sub 画像やグラフの高さを変更する_縦横比率を保持()
    
    '画像の縦横比率を保持する＝画像が崩れないようにするため
    ActiveSheet.Shapes("画像orグラフの名前").LockAspectRatio = msoTrue

    ActiveSheet.Shapes("画像orグラフの名前").Height = 70 '数字はピクセル数
    
End Sub