マクロで画像の倍率変更方法

質問

いつもお世話になっております。
現在マクロでエクセルに貼り付けた図の倍率を変更することができるか調べているのですがどこにもありません。
普段は図の書式設定→サイズ→倍率の高さの数値を変更
という動作を行っているので、この操作をマクロでできる方法を知っている方がいらっしゃいましたらお教えください。

回答No.3

imogasi · ベストアンサー

Ｚｏｏｍなどの表現法ではなく、具体的なＨｅｉｈｔ，Ｗｉｄｔｈを１．５倍した数値を指定するものと考えてはどうでしょう。
Selection.ShapeRange.Height = Selection.ShapeRange.Height * 1.5
Selection.ShapeRange.Width = Selection.ShapeRange.Width * 1.5

お礼

上に書いてあるものをマクロで実行してみたのですが、画像が縦も横も1.5倍ではなく2倍以上になりました＞＜
原因がわかりません；＿；

補足

以下のようにして実行したらできました。ありがとうございました。
Selection.ShapeRange.LockAspectRatio = True
Selection.ShapeRange.Height = Selection.ShapeRange.Height * 0.5

回答No.2

noname#8445

＃１です

とりあえず持ってきました

ActiveSheet.Shapes("aaa").Select
Selection.ShapeRange.LockAspectRatio = msoTrue
Selection.ShapeRange.Height = 285.75
Selection.ShapeRange.Width = 440.25
Selection.ShapeRange.Rotation = 0#

aaaは図の名前です

お礼

ありがとうございます。
マクロの記録なんていいものがあるんですね。
しかし、残念ながら高さと幅は固定ではないのでこのままでは使えなさそうです。
でもこれから分からなかったらとりあえず記録してみます。有難うございました。

回答No.1

noname#8445

マクロの記録で実際に行ってみて

ソースを見るしかないと思うのですが・・・

このPC　エクセルが入っていないもので、返信があれば
貼り付けますが