teratail header banner
teratail header banner
質問するログイン新規登録

質問編集履歴

1

コード追加

2021/05/31 08:26

投稿

ajaj
ajaj

スコア12

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
+ ```