- ベストアンサー
Word2003でオートシェイプの高さを3mmにする方法とは?
- Word2003 SP3で、オートシェイプの高さを小さくしても4.85mmで頭打ちになり、それ以上小さくできない現象が発生しています。
- 幅は3.18mmまで小さくできますが、高さを直接指定しても上手く調整できません。
- マクロを使用して高さの調整を行っていますが、操作対象が描画キャンバス全体になってしまい、特定のオートシェイプにのみ適用する方法はないか悩んでいます。
- みんなの回答 (1)
- 専門家の回答
質問者が選んだベストアンサー
関連するQ&A
- オートシェイプの幅を操作するには?
コマンドボタンにマクロを登録して、オートシェイプの幅を操作したいのですが、 とあるHPから Sub WIDTH_ADD() Selection.ShapeRange.Width = Selection.ShapeRange.Width + 1 End Sub というマクロを見付けました。 ただ、これでは1ずつしか広がりません。 決まったセルに入れた数字分、増加させるにはどのようにしたらよいのでしょうか? 例えば セルA1に10と入力すれば、10増えると言う具合にです。 もしくは、増減させるのではなく幅にあたる数値をセルに入力することによって 幅を自由に変更する方法はありませんでしょうか? 良い方法がありましたらお願いします。
- ベストアンサー
- オフィス系ソフト
- Excelのマクロを使用してオートシェイプ図形の色を変えたいのです。
Excelのマクロを使用してオートシェイプ図形の色を変えたいのです。 オートシェイプ図形を50個ならべて、マウスでクリックしてものは色が変わるようにしたいと思います。 マクロ記録をすると以下のようになりました。 Sub Macro1() ActiveSheet.Shapes("AutoShape 1").Select Selection.ShapeRange.Fill.ForeColor.SchemeColor = 45 Selection.ShapeRange.Fill.Visible = msoTrue Selection.ShapeRange.Fill.Solid End Sub このプログラムを50個書くわけにはいかないのですが、プログラムで処理するのに問題点が2つ出てきました。 ・オートシェイプ図形の名前が"AutoShape 1"となっていますが、これを変更したいのですが、書式設定にはありませんでした。変更するにはどうすればよいのでしょう? ・クリックしたオートシェイプ図形がどれであるかを返す関数がないと、どの図形がクリックされたかわからないのですが、これを返す関数はあるのでしょうか? よろしくお願いします。
- ベストアンサー
- その他MS Office製品
- オートシェイプの位置
エクセルですが。 セレクトされているオートシェイプを所定の位置に配置するマクロとして、以下は動作するのですが。 Selection.ShapeRange.Left = 250 Selection.ShapeRange.Top = 100 名前ボックスからオートシェイプの名前を aaa に変更し、以下のマクロを実行すると、いずれもエラーになってしまいます。 aaa.ShapeRange.Left = 250 aaa.ShapeRange.Top = 100 aaa.Left = 250 aaa.Top = 100 どこが間違っているのでしょうか?
- ベストアンサー
- オフィス系ソフト
- word2003で、オートシェイプをいれようとすると、描画キャンパスが
word2003で、オートシェイプをいれようとすると、描画キャンパスが表示されてとても面倒なんです。図形の大きさの調整とかもなかなかスムースにいきません。 描画キャンバスを表示せず、直接描くことはできませんか。
- ベストアンサー
- オフィス系ソフト
- ワード2002のオートシェイプの使い方
ワード97からワード2002に変えたのですが、オートシェイプでたとえば四角で文章を囲むとき、ワード97を使っていたときはそのまま文章の上をクリックしてドラッグすれば、うまく調整しながら直接囲むことができたのですが、2002は、「描画をここに作成します」という枠が入力したい部分の下に出てきて、わかりづらいです。どうしたら97の時のように直接入力できるように設定できるのでしょうか。 それといつもオートシェイプで囲んだときに、右クリックをして順序⇒テキストの背面へ移動(H)をクリックして下の文字が出てくるようにそうさしていましたが、そうしなくてもそのままも字が出てくる操作の仕方も教えていただければ幸いです。 よろしくお願いします。
- ベストアンサー
- オフィス系ソフト
- エクセルVBAでオートシェイプの属性を取得する方法を教えてください。
お世話になります。VBAについてほとんど理解していないので、ピントはずれな質問かも知れませんがよろしくお願いします。 エクセルのシートに四角形のオートシェイプが10個ほどあります。このなかの、1つを選択して色やパターンなどの属性を取得するのに次のように書いてみました。 Sub test() MsgBox Selection.ShapeRange.Fill.ForeColor.SchemeColor MsgBox Selection.ShapeRange.Fill.Patterned End Sub 1行目の色についてはメッセージボックスに表示されるのですが、パターンが表示されません。 パターンの属性を取得する方法を教えてください。 エクセルのバージョンは:EXCEL2002です。 よろしくお願いします。
- ベストアンサー
- オフィス系ソフト
- Word2000で画像とオートシェイプが重ねられない
Word2000を使用して、操作マニュアルの作成をしています。 PrintScreenで取ってきた画像に、 オートシェイプの丸や矢印を重ねて、操作する箇所を指定するような編集がしたいのですが、 画像とオートシェイプが重ねられないのです。 画像の上にオートシェイプをドラッグすると、 うまく重ならず、画像の外側にしかオートシェイプを置けないのです。 画像とオートシェイプのオプションでそれぞれのレイアウトは「前面」にしているのですが・・・ どうやったら画像とオートシェイプを重ねられるか、教えてください。
- ベストアンサー
- オフィス系ソフト
- word VBA 文字列操作について
WORD2007にて、文書内にいくつかの描画キャンバスがあり、この中にいくつかのオートシェイプがあります。(グループ化されたものも含む) マクロにてこのオートシェイプ内の文字列をすべて特定のフォントに変更したいのですが、どなたかCODEを教えて頂けないでしょうか? On Error Resume Next Dim shp As Shape For Each shp In ActiveDocument.Content.ShapeRange shp.Select Selection.Font.Name = "RFPイワタ中太教科書体" Selection.Font.NameAscii = "RFPイワタ中太教科書体" Next shp というものも他のサイトで見つけたのですが、おそらくオートシェイプが描画キャンバス内にあるためにSelectされないのだと思われます よろしくお願いします
- 締切済み
- その他MS Office製品
- 描画キャンパスよりも大きなオートシェイプの入れ方
サイズを指定してある描画キャンバスでその中に入れるオートシェイプを それよりおおきなサイズにすることは可能なのでしょうか? 教えてください。 word2002でXPです。
- 締切済み
- オフィス系ソフト
- ワード文書のオートシェイプの調節について
ワード文書の一部を、オートシェイプで四角い図形を作って囲もうとしていますが、上下の調節幅が大きくて、文書にうまく合わせることができません。上下の調節が細かにできる方法はありませんか?左右の幅の調節の方は、英文小文字に切り替えれば細かくできて問題ないのですが・・・。
- ベストアンサー
- その他MS Office製品
お礼
詳細に回答いただき、真にありがとうございます。 初歩的な問題だったので、ちょっと頭を垂れました。 ネット上で似たような質問が未解決のままだったので このQAが参考になるところがあれば幸いです。 マクロの方は自力でやるには根本的に勉強が要りそうです。 この場で解決できたら、もちろん助かるので、 もう少し様子を見てから、クローズさせたいと思います。