2009年01月
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
08/05/16 金 [ Edit ]
wordマクロ 選択した画像をリサイズ
[ 日記 ]前の記事で貼り付けた画像（Excelグラフを拡張メタファイル形式で張り込んだもの）をリサイズするVBAマクロです。
高さ50mm、横幅68mm（だっけかな）くらいになります。
縦横比を固定する方法が分からないので、このような指定です。
画像を選択して、マクロを実行します。
Sub resize50mm()
Selection.InlineShapes(1).LockAspectRatio = msoTrue
Selection.InlineShapes(1).Height = 141.73
Selection.InlineShapes(1).Width = 192.97
End Sub
前の記事のマクロと連続して実行できるようにすれば手間は半分でした。残念。
作っといてなんだけど、Selection.InlineShapesの後についている(1)はなんだろね。これを消したらエラーになったので、必要なのだと思いますが。