Sub 画像やグラフの横幅を変更する_縦横比率を保持しない() '画像の縦横比率を保持しない ActiveSheet.Shapes("画像orグラフの名前").LockAspectRatio = msoFalse ActiveSheet.Shapes("画像orグラフの名前").Width = 100 '数字はピクセル数 End Sub