画像を毎回一定のスケールにしたいことがありました。
毎回プロパティからやるのはめんどくさいし、かといって、作業の手順上、一括でというわけにもいかない。
とりあえずボタン一つでいつも同じスケールにしてほしいだけのマクロを作りました。
EXCEL2013,EXCEL2016で動作確認したことがあります。
マクロ本体
Sub Size50par()
If VarType(Selection) <> vbObject Then Exit Sub
Selection.ShapeRange.ScaleHeight 0.5, msoTrue, msoScaleFromTopLeft
End Sub
使用例
![](https://toriaezuugoku.com/wp-content/uploads/2022/02/2022-02-02_20h20_26-1024x686.png)
![](https://toriaezuugoku.com/wp-content/uploads/2022/02/2022-02-02_20h22_03.png)
固定50%のスケールになります。
![]() | ExcelVBA逆引き大全 600の極意 Office365/2019/2016/2013/2010対応 新品価格 |
![](https://www18.a8.net/0.gif?a8mat=1NWEU4+MMJB6+249K+BWGDT)