とりあえず動く○○ 
画像を毎回一定のスケールにしたいことがありました。
毎回プロパティからやるのはめんどくさいし、かといって、作業の手順上、一括でというわけにもいかない。
とりあえずボタン一つでいつも同じスケールにしてほしいだけのマクロを作りました。
EXCEL2013,EXCEL2016で動作確認したことがあります。
マクロ本体
Sub Size50par()
If VarType(Selection) <> vbObject Then Exit Sub
Selection.ShapeRange.ScaleHeight 0.5, msoTrue, msoScaleFromTopLeft
End Sub使用例
固定50％のスケールになります。
 | ExcelVBA逆引き大全 600の極意 Office365/2019/2016/2013/2010対応 新品価格 |
