質問編集履歴
1
コード追加
title
CHANGED
|
File without changes
|
body
CHANGED
|
@@ -9,4 +9,19 @@
|
|
|
9
9
|
|
|
10
10
|
欲を言えば、画像挿入時に画像のサイズ調整も自動化されると大変ありがたいです。
|
|
11
11
|
|
|
12
|
-
よろしくお願いします。
|
|
12
|
+
よろしくお願いします。
|
|
13
|
+
|
|
14
|
+
追記:excelのマクロの記録を使い、VBAを組みました。各数値は実際に動かしながら微調整していましたが、写真の初期値の違いが問題であったため、画像挿入時に固定できればと思っています。
|
|
15
|
+
```VBA
|
|
16
|
+
sub 写真リサイズ()
|
|
17
|
+
Selection.ShapeRange.IncrementRotation 90
|
|
18
|
+
Selection.ShapeRange.ScaleWidth 1, msoFalse, msoScaleFromBottomRight
|
|
19
|
+
Selection.ShapeRange.ScaleHeight 1, msoFalse, msoScaleFromTopLeft
|
|
20
|
+
For I = 1 to 100
|
|
21
|
+
Selection.ShapeRange.IncrementTop -0.75
|
|
22
|
+
Next I
|
|
23
|
+
For I = 1 to 100
|
|
24
|
+
Selection.ShapeRange.IncrementLeft -0.75
|
|
25
|
+
Next i
|
|
26
|
+
End sub
|
|
27
|
+
```
|