高さ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)はなんだろね。これを消したらエラーになったので、必要なのだと思いますが。

Sub PasteAsEMF()
On Error GoTo EXCEPTION
Selection.PasteSpecial DataType:=wdPasteEnhancedMetafile,
Placement:=wdInLine, Link:=False
Exit Sub
EXCEPTION:
MsgBox Error(Err), vbExclamation
End Sub

しかし、あれだね。
Wordマクロって情報なさすぎ。誰も使わんのかねぇ。

あと、Word2007では、図の操作はマクロに記録されません。
Word2003でマクロに記録した上でWord2007で編集するか、最初から打ち込むしかないです。

確かに急激に温暖化してるね。

この原因について、CO2のせいだけって考えてて大丈夫なのだろうか。

CO2がここ数年で急激に増えた、とは思えないのだけど。

• ごみを減らし、１つのものを長く使う。
• できるだけ物を買わない。
• 一度買ったら長く丁寧に使う。
• 不要なものは、reuseができないか検討し実行する。
• 用途を変更して使用する。
• おさがり。
• reuseできないものはrecycleができないか検討し実行する。
• 論理的に環境負荷が少なく、費用対効果の優れた方法を採用する
• recycleできないものは、論理的に最も環境負荷が少なく、費用対効果の優れた処理方法を検討し実行する。

]]> tag:www.yacho.net,2008:/machi//1.321 2008-05-07T06:50:25Z 2008-05-07T06:50:38Z
花粉がすごいのかな。 鼻水が止まらず、頭が痛い。目もしょぼしょぼする。 さっき買...
torochan22 http://blog.yacho.net/ 花粉がすごいのかな。

鼻水が止まらず、頭が痛い。目もしょぼしょぼする。

さっき買った市販薬「ハイガード（エーザイ）」で、なんとなく症状は治まってるけど、これまでで一番症状がひどい。

「花粉症で仕事にならない」のは今回がはじめて。ふむう。
]]>