Excelの3行マクロ~すぐに使えるミニマクロ16回
動画版「画像を指定したサイズに縮小マクロ」です。
デジカメ画像などをExcelのシートに挿入して利用する時に、困るのがその大きさ。たとえ縮小してあってもそれでも大きかったりするからです。画像を適度の大きさにするために、毎回縮小しているなら、この作業をマクロにすると簡単です。
動画で紹介している、画像をセンチメートルで縮小するコード
'==============================================================
'=3行マクロ講座入門編 16回 https://kokodane.com/
'==============================================================
Option Explicit
Sub 画像縮小7cm()
'1cmは28.34646
Selection.ShapeRange.Width = 198.4251968504
Selection.ShapeRange.LockAspectRatio = msoTrue
End Sub
Sub 画像縮小5cm()
'1cmは28.34646
Selection.ShapeRange.Width = 28.34646 * 5
Selection.ShapeRange.LockAspectRatio = msoTrue
End Sub
Sub 画像縮小3cm()
'1cmは28.34646
Selection.ShapeRange.Width = 28.34646 * 3
Selection.ShapeRange.LockAspectRatio = msoTrue
End Sub