※ ChatGPTを利用し、要約された質問です(原文:Word2003でオートシェイプ高さを3mm程度に)
Word2003でオートシェイプの高さを3mmにする方法とは?
このQ&Aのポイント
Word2003 SP3で、オートシェイプの高さを小さくしても4.85mmで頭打ちになり、それ以上小さくできない現象が発生しています。
幅は3.18mmまで小さくできますが、高さを直接指定しても上手く調整できません。
マクロを使用して高さの調整を行っていますが、操作対象が描画キャンバス全体になってしまい、特定のオートシェイプにのみ適用する方法はないか悩んでいます。
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
お礼
詳細に回答いただき、真にありがとうございます。 初歩的な問題だったので、ちょっと頭を垂れました。 ネット上で似たような質問が未解決のままだったので このQAが参考になるところがあれば幸いです。 マクロの方は自力でやるには根本的に勉強が要りそうです。 この場で解決できたら、もちろん助かるので、 もう少し様子を見てから、クローズさせたいと思います。