画像やグラフの縦横比率を保持する

トップページ（目次）

564.画像やグラフの縦横比率を保持する

＜実行前後＞

→

Sub 画像やグラフの縦横比率を保持する()
    
    ActiveSheet.Shapes("画像orグラフの名前").LockAspectRatio = msoTrue
    
End Sub