• ベストアンサー

MS-WordのVBAで図形サイズの指定(100%)方法

MS-WordのVBAで図形サイズの指定(100%)方法 Word2000です。VBAは知らない(嫌い)ですが、時々必要になり、通常はマクロ記録したものを多少手直ししたりして使用しています。今回の問題ではマクロ記録すると100%ではなく、ある特定のサイズを指定したように記録されます。100%で指定するには、どのようなコードになるのでしょうか?

noname#182251
noname#182251

質問者が選んだベストアンサー

  • ベストアンサー
  • xls88
  • ベストアンサー率56% (669/1189)
回答No.1

記録されたコードを提示できないでしょうか。

noname#182251
質問者

補足

ご回答有り難うございました。自分でも試行錯誤している段階で、少し問題の性質が変化してきました。整理して再質問しますので、よろしくお願いします。

関連するQ&A

  • ワード2007を使っています(図形のVBAについて)

    ワード2007を使っています(図形のVBAについて) ワード2007で、エクセルから拡張メタファイルでグラフをピクチャ貼り付けしています。 貼り付けるとサイズが120%とか少し大きめになってしまうので、いつもリセットして100%にしています。 これをマクロでボタン一つ、又はショートカットで操作したいのですが、2007では図に関しては記憶マクロで作成できないようです。 VBAで書き込みたいのですが、どのように書いたらいいでしょうか? 宜しくお願いします。

  • Excel2007のVBAで、ワードアートの塗りつぶしの「透過性」を変更する方法を教えてください!

    VBA初心者です。 趣味でMicrosoftExcel2003のVBAをやっていたのですが、Excel2007でVBAのコードの動作確認をした際に、ワードアートの単色塗りつぶしの透過性を変更するコードが使えませんでした。 Excel2003では Activesheet.Shapes(図形の名前).Fill.Transparency = 値 で出来たのですが、2007では「ワードアートが入っている図形」の塗りつぶしに反映されてしまいます。 また、2007ではマクロの記録を使ってもワードアート等の設定が記録されないので、困っています。 そこで質問です。 Excel2007で、ワードアートの塗りつぶしが単色の場合の『塗りつぶしの透過性』をVBAで設定する場合のコードを教えてください。 ご存知の方、どうか回答を宜しくお願い致します。

  • WORD VBAでヘッタ・フッタの編集は?

     Word2000で、文書の一部を編集して使いまわししています。本文の方は、マクロの自動記録で作成したものを手直しして使っていますが、ヘッタ・フッタについては、枠を作ってそこにテキストボックスを組み合わせて作っているためかマクロが記録してくれません。というか、マクロの自動記録をONにすると修正できません。VBAで編集することは出来ないのでしょうか?  何か方法があれば教えてください。

  • Word VBA 写真 挿入

    Excel で写真の挿入VBAは 皆さんのご回答を元になんとか出来ました。 回答者さま 有難う御座いました。 挿入したファイル(写真)のサイズ変更(見た目のサイズ)も出来ます。 ところが、 Wordへの写真挿入  サイズの変更 になりますと、(VBAで記述したいのに) 「図の書式設定」自体効きません。 ↑ 「マクロの記録」をしても、出来ません。 (ボタンは False 状態) 「マクロの記録」で出来ないという事は つまり、Wordでは無理って考えれば良いのでしょうか。

  • VISIOでVBAを使っての図形描画

    VISIOで自動で図形を描画するVBAを作成しております。 テキストからのデータの取得、 取得したデータにしたがっての、 長方形の作図、線の作成は出来ました。 この発展系として、 取得した座標を使っての図形の描画(例:三角形、中が塗れるやつ)が 上手くできません。 VISIOで普通に線を書くと、線をつなげて書いて、 最後に始点とつなげると、自動で図形になり、中を塗ることが出来るようになります。 ためしに、マクロの自動記録で、↑の作業をマクロ化してみましたが、 1個の三角形を書くマクロが生成され(ShapeのIDが決め打ち) 目的のような使い方は出来ませんでした。 お手数ですが、サンプルコード等ありましたら、お教えください。

  • エクセルVBAで直線図形(オートシェイプ)を書きたいのですが。

    エクセルVBAで直線図形(オートシェイプ)を書きたいのですが。座標の指定方法がいまひとつ分かりません。 マクロの記録で、座標数値の設定は分かるのですが、セルに対しての指定方法が分かりません。 図形をドラッグ指定したA1セルからC1セルまで直線を書きたいのです。セルへの始点終点の指定方法が有るのでしょうか。

  • ホームページの文字をMS Wordでフォントサイズ12にする方法?

    ホームページ上の文字をコピペでMS Wordに貼り付けたときに、それらの文字のWordでのフォントサイズが12になるようにHTML(HTML以外を使用しても結構です。)を組みたいのですがどうすれば良いでしょう?  Wordの方には、できるだけ特殊な設定をしたくありません。 ホームページ上の文字をコピペでMS Wordに貼り付けたときには、通常、フォントサイズは10.5になります。 IE6&7 Word2000以降 よろしくお願いします。

  • Cell内の一部を指定する方法(Word VBA)

    Cell内の一部を指定する方法(Word VBA) Word VBAで、特定のCellの中の一部だけを指定するには、どうすればいいのでしょうか。 たとえば、ある表のCell(1, 2)の6~10文字目を指定して、そこだけを太字にするために、 Set Date1 = Table1.Cell(1, 2).Range(Start:=5, End:=10) としても、RangeメソッドはCellに使えないようなので、エラーになってしまいます。

  • エクセルVBAの図形について

    図形を使用するVBAをはじめて作成中ですが、わからないことがありましたので質問します。 (1)オートシェイプに独自のプロパティーを設定したいのですが良い方法はありますか? (便宜上、NAMEプロパティーで代用しておりますが複数のプロパティを設定したいのです) (2)ONACTIONプロパティに設定しているマクロに対し、 どの図形から実行されたのか知りたいのですが、良い方法はありますか? (3)ある図形からコネクトされている別の図形を特定する方法はありますか? どれかひとつへの回答でもかまいませんので教えてください。

  • Word文書のサイズを小さくしたい

    MS-Wordでレポートを作成していますが、図形描画を使うとどうしてもファイルサイズが大きくなってしまい困っています。 次のように自分なりに方法を考えてみたのですが、Wordが大得意っていうわけでもないので、これで本当にいいのかわかりません。  1. 図形をGIFやJPEGなどWordでない形式で作ってWordに貼り付ける  2. サイズが大きくなるのは仕方ないので、複数のFDに保存するか、圧縮する。 できればFD1枚で持ち運びたいので、サイズを少しでも小さくする良い方法があればおしえてください。 よろしくお願いします!

専門家に質問してみよう