Word2003でオートシェイプ高さを3mm程度に
Word2003 SP3で、オートシェイプを選択し、
Alt＋ドラッグ操作で高さを小さくしていっても4.85mmで頭打ちになり
それ以上小さくできません。
・同じ操作で幅は、3.18mmまでは小さくできます。
・オートシェイプの書式設定ダイアログで値を直接指定すれば
もっと小さくできますが、毎回そんな手間が掛かっては話になりません。
（それで高さを3mmにしても、その後ドラッグで幅調節しようとすると、
高さが4.85mmに押し戻されてしまう）
・同じ環境でも書類によっては、3.18mmまで小さくできます。
・シェイプ内のテキスト有無や線の太さは関係ないようです。
●書類によって4.85mmで頭打ちになる現象を解決できないでしょうか？
妥協策として、以下のようなマクロを組んで、ショートカットキーに
割り当て、平易に高さ調節できるようにしてみたのですが、
描画キャンバス内にあるオートシェイプを選んで操作した時に
描画キャンバス全体が（操作対象となって）小さくなってしまいます。
●描画キャンバス内で選択したオートシェイプのみを対象に
操作が適用されるようにする方法はないものでしょうか？
Sub オートシェイプ高さを小さくする()
If Selection.Type <> wdSelectionShape Then End
Selection.ShapeRange.Height = Selection.ShapeRange.Height - 1
End Sub
お礼
ありがとうございました。 こんな所にあったのですね これで、作業がスムーズに行きます。