固定スケールにするExcelVBA

画像を毎回一定のスケールにしたいことがありました。

毎回プロパティからやるのはめんどくさいし、かといって、作業の手順上、一括でというわけにもいかない。

とりあえずボタン一つでいつも同じスケールにしてほしいだけのマクロを作りました。

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対応

新品価格
¥2,860から
(2022/1/29 21:33時点)

Leave a Reply

Your email address will not be published.

CAPTCHA