• ベストアンサー

【ワード】マクロで画像を選択する

ワードでマクロを記録している途中は、画像を選択できないのですが、 画像を選択という処理はマクロに出来ないのでしょうか?

  • fa46
  • お礼率49% (261/527)

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

  • ベストアンサー
  • KenKen_SP
  • ベストアンサー率62% (785/1258)
回答No.1

こんな感じ。   ActiveDocument.Content.ShapeRange("Picture 1").Select ShapeRange はシェープ等も含んでしまいますが、一括選択するなら、   ActiveDocument.Content.ShapeRange.Select です。ShapeRange を ヘルプで調べてみて下さい。名前を列挙するなら、   For Each Pic In ActiveDocument.Content.ShapeRange     If Pic.Name Like "Picture*" Then '<--画像だけ       MsgBox Pic.Name     End If   Next Pic のように ActiveDocument.Content (アクティブな文書の本文内)にある ShapeRange コレクション(シェープや画像の集まり)を For Each ループ で回します。

関連するQ&A

  • ワードマクロで画像を選択する方法

    「図の挿入」を使って画像ファイルから読み込んで貼り付けた画像を、ワードマクロで選択したいと思っています。 どのようなコードを書けばいいか、教えてください。 ちなみに、以前どなたかがされた質問に対する回答(http://oshiete1.goo.ne.jp/qa2224793.html)で ActiveDocument.Content.ShapeRange.Select を使うという方法が提示されていましたが、「図の挿入」で読み込んだ画像ファイルには使えないようです。 よろしくお願いします。

  • ワードのに画像を張り付けるマクロについて

    ワードのに画像(.jpg)を張り付けるマクロをつくりたいと思っています。 ワードやエクセルのマクロを利用したいのですが、どのようにすればよいでしょうか? マクロやVBAに関する知識はあるのですが、ワードに対する取り扱いが難しくて困っています。

  • Word2013でマクロが動かない

    Word2013のマクロが上手く動かない 【環境】 Windows8.1 + Office2013(Word2013) 【目的と操作】 1クリックでヘッダーにファイル名 と ページを表示できるようにする ファイル名が「あああ.doc]だとすると、ファイルのヘッダーに   あああ 1 page   とフォント:メイリオ、ポイント9 で 右寄せで表示させるようにしたい 操作は 1.マクロ記録 2.ヘッダーを選択し、ドキュメント情報のファイル名を選択 3.ページ番号の現在の位置を選択 4.ファイル名とページ番号、ページ番号とpage の間にスペースを入れる 5.入力したヘッダーに対してフォントの設定と右寄せをする 6.ヘッダーフッターの終了をクリック 7.マクロ記録終了 できたマクロを指定すると、 実行時エラー5941 指定されたコレクションのメンバは表示されません と表示されて、実行できません。 VBAについては全くわからないので、デバックの画面を見てもさっぱりわかりません。 2003の時には操作手順をマクロで記録して便利に使っていたので、 2013でも同様に使いたいと思っています。 どのように直したらよいか、教えていただけると助かります。 どうぞよろしくお願い致します。

  • エクセルマクロ画像挿入について

    はじめまして。 マクロ全くの初心者です。 詳しい方、優しく教えていたたげると幸いです。 エクセル2010または2013でマクロを作成したいと思っています。今までマクロの作成は自動保存?マクロ記録→マクロ記録終了のボタンを使って条件付き書式等しか作成したことがありません。 今回は ピクチャの中のデジカメの画像を、選択したセルに挿入し、サイズを変更したいです。 他社から送られてきたデータにマクロが設定してあり、そのようにしたいです。 挿入したいセルをクリック→マクロの設定されているボタンをクリック→ピクチャが開く→挿入したい画像を選択→選択したセルに画像が挿入され同時にサイズも変更される 自分で少しやってみたのですが、画像を選べません(記録した時の画像が挿入されてしまう)。 ボタンの挿入方法は大丈夫です。 他の方の質問も参考にしたのですがうまくいかなくて、、、どうしたらいいかわかりません。 是非ご教授ください。 よろしくお願い致します。

  • Wordのマクロが記録出来ない

    Win XP 2003です。 Wordのマクロについて質問します。 Wordでマクロを記録しようとするとマウスの矢印の先にビデオテープみたいな絵が出て記録出来ません。これはどういう意味でしょう。 Excelでは通常に記録出来るのでセキュリティの設定が問題ではないと思うのですが、これは、一体何が原因でしょうか。 因みに記録しようとしたのは、段落にインデントを設定する記録です。 宜しくお願いします。

  • Word 2007でのマクロ保存方法

    Word XPからWord 2007に乗り換えて、マクロの保存方法が分からず困っています。 XPでは、マクロを記録するだけで文書を閉じる時に自動的にNormal.dotテンプレートにマクロが保存されたようなのですが、Word 2007ではWordを終了する(あるいはPCの電源を落とす)と、記録したマクロが消えてしまいます。 Word 2007では、自動的にNormal.dotテンプレートにマクロを保存することはできないのでしょうか? なお、システムはWindows 7です。 よろしくお願いします。

  • MS Wordのマクロに記録されない

    Word2010を使用しております。 マクロで、全角の数字のみを選択したいと考えています。 手動では、「高度な検索」画面で、ワイルドカードにチェックを入れ、「検索する文字列」に「[0-9]」と入力し、「検索する場所」に「メイン文書」を選択すると、全角の数字が全て選択されます。 しかし、これをマクロに記録し、実行しても、まったく選択されません。 この解決策か、マクロに記述するコードを教えてください。

  • マクロを使い選択範囲を次々と変えて並べ替えたい

    マクロ作成は 範囲選択 A4~G12 マクロ記録開始 並べ替え E列 降順 マクロ記録終了 でマクロを作成し 次に範囲選択 A14~G22でこのマクロを実行すると範囲選択が前と同じA4~G12が並べ替えられてしまいます。 マクロの中を見ると範囲選択 A4~G12が書かれてしまっています。 次のように、選択範囲を次々と変えて並べ替えるマクロを作りたいのですがお教え願います。 1. 範囲選択 A4~G12を選択 マクロ実行で選択範囲をE列の値で降順並べ替える 2. 範囲選択 A14~G22を選択 マクロ実行で選択範囲をE列の値で降順並べ替える 3. 範囲選択 A28~G32を選択 マクロ実行で選択範囲をE列の値で降順並べ替える

  • WORD2000でのマクロ

    WORD2000を使っています。 オートシェイプのリボンを描き、その中に文字を入れるマクロを作りたいのですが、 マクロ記録中は、マウスでドラッグなどは効かないですよね。 どうやって作ったらいいのか困っています。 VBAの言語は理解しかねますので、 出来れば、言語でなく、操作でのやり方を教えて下さい。 宜しくお願い致します。

  • エクセル(マクロ)での「jpeg画像の選択」について

    あるシート上に、「複数のjpeg画像」があり、 マクロを使って、それらを「全て選択」し、 一括で横方向へ平行移動したい、と思っています。 そこでなのですが、 「jpeg画像のみ」を選択するためには、 マクロでは、どのような記述をすればよいのでしょうか…。 先ほど以下のように記述した所、 シート上にある、マクロを登録している「ボタン」まで選択されてしまい、 「jpeg画像のみ」の選択が、できませんでした…。 ActiveSheet.DrawingObjects.Select Selection.ShapeRange.IncrementLeft 240 何か良い方法がありましたら、 アドバイスをお願い致します。m(_ _)m

専門家に質問してみよう