オブジェクトに対して Selection.ShapeRange. ScaleWidth 2,msof

オブジェクトに対して

Selection.ShapeRange.
ScaleWidth 2,msofalse,msoScaleFromTopLeft

とやると、横に伸びます。当たり前ですが。

しかし、写真などだと縦横の比が固定になる。

手動なら簡単にできますが、マクロでやりたい都合あります。

なにか縦横比率無視する方法ありますか？

No.3 回答者： fujillin 回答日時： 2021/08/03 14:42

こんにちは

何のVBAなのか不明ですけれど・・・

＞写真などだと縦横の比が固定になる。
Shape.LockAspectRatioがTrueの場合は縦横比を保持するようになっています。
https://docs.microsoft.com/en-us/office/vba/api/ …

＞なにか縦横比率無視する方法ありますか？
上記の値を、Falseにすればそれぞれ独立して設定することが可能です。

＞手動なら簡単にできますが、
であるなら、その操作を「マクロの記録」にとってみれば、ご自分で調べられるはずです。

No.2 回答者： Qchan1962 回答日時： 2021/08/03 14:34

#2　です

ShapeRange　でしたね。
https://docs.microsoft.com/ja-jp/office/vba/api/ …

No.1 回答者： Qchan1962 回答日時： 2021/08/03 14:31

こんにちは

LockAspectRatio　プロパティの事でしょうか

Object.LockAspectRatio = msoFalse　比を維持しない

参考：https://docs.microsoft.com/ja-jp/office/vba/api/ …

この回答へのお礼

ありがとうございました。一つ利口になりました。

お礼日時：2021/08/03 17:24