回答編集履歴
2
追記
answer
CHANGED
|
@@ -13,7 +13,11 @@
|
|
|
13
13
|
こんな感じででも私の所ではうまくいきました。
|
|
14
14
|
コメントしてある所は、LockAspectRatio が効いてなかった場合の対処です。
|
|
15
15
|
|
|
16
|
-
縦横比固定するには今のままだとPictureオブジェクトなので、Shapeオブジェクトとして取得しなおして
|
|
16
|
+
縦横比固定するには今のままだとPictureオブジェクトなので、Shapeオブジェクトとして取得しなおしてやればLockAspectRatioプロパティを使えるので、それでセットすればできます
|
|
17
17
|
|
|
18
|
+
(追記)
|
|
19
|
+
Shapeオブジェクトとして取得する方法
|
|
20
|
+
Set ｔShape = ActiveSheet.Shapes(Sheet1.Shapes.Count)
|
|
21
|
+
変な取得の仕方なので、私は嫌いなのですけどね。
|
|
18
22
|
|
|
19
23
|
行幅はPIC.Heightの値から換算してセットする方法以外は、私は知らないですね。
|
1
追記
answer
CHANGED
|
@@ -13,5 +13,7 @@
|
|
|
13
13
|
こんな感じででも私の所ではうまくいきました。
|
|
14
14
|
コメントしてある所は、LockAspectRatio が効いてなかった場合の対処です。
|
|
15
15
|
|
|
16
|
+
縦横比固定するには今のままだとPictureオブジェクトなので、Shapeオブジェクトとして取得しなおして(やり方はまた夜にでも記載します)やればLockAspectRatioプロパティを使えるので、それでセットすればできます
|
|
16
17
|
|
|
18
|
+
|
|
17
19
|
行幅はPIC.Heightの値から換算してセットする方法以外は、私は知らないですね。
|