![](http://oshiete.xgoo.jp/images/v2/pc/qa/question_title.png?a65a0e2)
No.1ベストアンサー
- 回答日時:
マクロになりますがいいですか?
このサンプルはA1セルにファイル名(拡張子なし)を入力したらD3セルに指定した画像を貼り付けるものです。
試しに新しいブックを開き「シート名右クリック」→「コードの表示」で開く画面に以下のマクロを貼り付けてください。マクロ2行目~5行目はご自身の環境に合わせて修正が必要です。
Private Sub Worksheet_Change(ByVal Target As Range)
Const trgR As String = "A1" '地図通し番号を入力するセル
Const insR As String = "D3" '挿入画像の左上のセル
Const path As String = "Z:\" 'ファイルの格納フォルダ
Const pic As String = ".jpg" '「.(半角)」+ファイルの拡張子"
Dim shp As Shape
Dim buf As String
If Target.Address(0, 0) = trgR Then
For Each shp In ActiveSheet.Shapes '既に表示されている画像を削除する処理
If Not Intersect(Range(insR), Range(shp.TopLeftCell, _
shp.BottomRightCell)) Is Nothing Then
shp.Delete
End If
Next
Range(insR).Select
buf = Dir(path & Target.Value & pic)
If buf <> "" Then '入力したファイル名があるかチェック
ActiveSheet.Pictures.Insert (path & Target.Value & pic)
Else
MsgBox "指定したファイルがありません"
End If
End If
Target.Offset(1, 0).Select
End Sub
これはあくまでサンプルですので、実際のシートにあわせてマクロを修正する必要があると思いますが、それはご自身でお願いします。
No.3
- 回答日時:
#01です。
反応がありませんね。マクロはお気に召しませんでしたか?マクロを使用しない方法もありますよ。
http://okwave.jp/qa3235698.html
で参考になりそうなURLを2つ紹介していますので、ご覧ください
でも「複数の地区」の数がが多くなると、少し手間かもしれません。
No.2
- 回答日時:
マクロで無いとできないと思います。
多分VBAの経験がなさそうで、質問者には無理でしょう。本来難しいことを手をつけすぎです。幸い既に回答を出していただいているので、そのまま使う手もありますが、丸投げして回答者にやってもらうというパターンで、この質問コーナーの主旨に照らして好ましく無いと思います。
ーー
勉強するなら
ツールーマクロー新しいマクロの記録状態にして、
挿入
図
ファイルから
図のファイル名指定
の操作をやり
そのコードを見ればおおよそのやり方(コード)は判ります。
後は番号指定と図のファイル名指定の関連をプログラムでつける方法と、イベントといいますが、番号を入れたときに上記VBAが実行される仕組みの理解と仕組みが必要ですが、易しい概念ではありません。
ボタンをクリックしたとき
セルの値(番号が)が変わった際
などが考えられます。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- 数学 これは『通し番号』といいますか? 例として、 ・A地区 ・B地区 ・C地区 からの、苦情受付番号をつ 1 2022/06/30 13:55
- Excel(エクセル) マクロVBAのフォルダ階層別で検索の方法 4 2022/04/03 23:23
- その他(データベース) Excel VBA 転記について 1 2022/04/20 16:55
- その他(コンピューター・テクノロジー) デジタル化推進でうちの会社では、ペーパーレス化が進んでいます。 そこで、質問です。 会社では、検査課 3 2023/06/11 00:17
- gooのスマホ スマホF-51Bに緊急時情報画面でロックが掛かって解除できません。 3 2023/06/18 23:05
- Visual Basic(VBA) VBAでPDFのアクティブページ番号取得 1 2023/05/25 12:41
- Excel(エクセル) Excelの数式についての質問 1 2022/10/31 15:50
- その他(Microsoft Office) EXCELの1行を1枚の用紙にそれぞれ印刷したい。 3 2022/10/10 11:35
- Excel(エクセル) EXCELでの複雑な複数条件について 4 2022/05/09 16:19
- Excel(エクセル) 関数EXACT(文字列,文字列)とexcelVBA 3 2022/04/14 15:07
このQ&Aを見た人はこんなQ&Aも見ています
-
好きな人を振り向かせるためにしたこと
大好きな人と会話のきっかけを少しでも作りたい、意識してもらいたい…! 振り向かせるためにどんなことをしたことがありますか?
-
初めて自分の家と他人の家が違う、と意識した時
子供の頃、友達の家に行くと「なんか自分の家と匂いが違うな?」って思いませんでしたか?
-
今の日本に期待することはなんですか?
目まぐるしく、日本も世界も状況が変わる中、あなたが今の日本に期待することはなんですか?
-
AIツールの活用方法を教えて
みなさんは普段どのような場面でAIツール(ChatGPTなど)を活用していますか?
-
14歳の自分に衝撃の事実を告げてください
タイムマシンで14歳の自分のところに現れた未来のあなた。 衝撃的な事実を告げて自分に驚かせるとしたら何を告げますか?
-
Excel セルに入力した画像名からフォルダの画像を自動表示させたい
Excel(エクセル)
-
条件に一致したときに画像を表示したいのですが・・。
Excel(エクセル)
-
エクセル フォルダの画像を画像名で検索して貼り付け
Excel(エクセル)
-
-
4
エクセルで数字を入力したら指定の画像を出す方法
Excel(エクセル)
-
5
エクセル関数で画像を呼び出す方法ありますか?
Windows Vista・XP
-
6
エクセルで条件をつけて図形を表示する方法を教えてください。例えば、セルA1に入力された数値が100以
Excel(エクセル)
-
7
【マクロ】でセルと同名の画像を表示させる
その他(Microsoft Office)
-
8
エクセルのマクロで特定フォルダ内のJPGファイルを検索して開きたいので
Excel(エクセル)
-
9
エクセル、画像ファイル名の書かれたセル(複数個所)に画像を一括で表示させる方法
Excel(エクセル)
-
10
Excelの画像をセルとして参照する
Excel(エクセル)
-
11
任意フォルダから画像をすべてエクセルの指定マスに貼り付けをしたい
Visual Basic(VBA)
-
12
セルの内容の条件に応じて図形の表示をしたりしなかったりする
Excel(エクセル)
-
13
エクセルで図形を連動させたい
Excel(エクセル)
-
14
エクセルのセルに指定画像(.jpg)を自動で貼り付けたいです。
Excel(エクセル)
-
15
EXCELで別シートのセル内に画像の貼り付けをしたいのですが・・・
Excel(エクセル)
-
16
エクセルVBAでセルに入力したパスでブックを開く
Excel(エクセル)
-
17
エクセルで次々と画像を表示させたい
Excel(エクセル)
-
18
マクロを使って画像を貼り付け
Excel(エクセル)
-
19
VBAで選択した画像を貼り付けたい
Excel(エクセル)
-
20
【VBA】写真の縦横比を変えずに貼り付ける
Visual Basic(VBA)
関連するカテゴリからQ&Aを探す
おすすめ情報
- ・漫画をレンタルでお得に読める!
- ・一番好きなみそ汁の具材は?
- ・泣きながら食べたご飯の思い出
- ・「これはヤバかったな」という遅刻エピソード
- ・初めて自分の家と他人の家が違う、と意識した時
- ・いちばん失敗した人決定戦
- ・思い出すきっかけは 音楽?におい?景色?
- ・あなたなりのストレス発散方法を教えてください!
- ・もし10億円当たったら何に使いますか?
- ・何回やってもうまくいかないことは?
- ・今年はじめたいことは?
- ・あなたの人生で一番ピンチに陥った瞬間は?
- ・初めて見た映画を教えてください!
- ・今の日本に期待することはなんですか?
- ・集中するためにやっていること
- ・テレビやラジオに出たことがある人、いますか?
- ・【お題】斜め上を行くスキー場にありがちなこと
- ・人生でいちばんスベッた瞬間
- ・コーピングについて教えてください
- ・あなたの「プチ贅沢」はなんですか?
- ・コンビニでおにぎりを買うときのスタメンはどの具?
- ・おすすめの美術館・博物館、教えてください!
- ・【お題】大変な警告
- ・洋服何着持ってますか?
- ・みんなの【マイ・ベスト積読2024】を教えてください。
- ・「これいらなくない?」という慣習、教えてください
- ・今から楽しみな予定はありますか?
- ・AIツールの活用方法を教えて
- ・最強の防寒、あったか術を教えてください!
- ・歳とったな〜〜と思ったことは?
- ・モテ期を経験した方いらっしゃいますか?
- ・好きな人を振り向かせるためにしたこと
- ・スマホに会話を聞かれているな!?と思ったことありますか?
- ・それもChatGPT!?と驚いた使用方法を教えてください
- ・見学に行くとしたら【天国】と【地獄】どっち?
- ・これまでで一番「情けなかったとき」はいつですか?
- ・この人頭いいなと思ったエピソード
- ・あなたの「必」の書き順を教えてください
- ・14歳の自分に衝撃の事実を告げてください
- ・人生最悪の忘れ物
- ・あなたの習慣について教えてください!!
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
Excel VBAでのWorksheet_Change...
-
マクロ1があります。 A1のセル...
-
エクセルで複数のシートのクリ...
-
長い時間かかるマクロが実行中...
-
エクセルファイルを開いた回数...
-
エクセルで特定の行だけ行削除...
-
Excelでセル内の文字をファイル...
-
エクセルのマクロ実行後にカー...
-
Excelのシート上のShapeにイベ...
-
エクセル マクロ 一定時間おき...
-
【エクセル】フリーワード検索...
-
EXCELのダイアログシートって、...
-
エクセル シート内の一番下のセ...
-
excel定数の違いについて。xlAu...
-
エクセルで○をつけるマクロ設定
-
【エクセル】「実行時エラー’10...
-
excelのマクロが上手く動作しま...
-
【エクセルVBAについて】セ...
-
エクセル:セル内の文字列の最...
-
シートではなくBOOK間で重複し...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
Excel VBAでのWorksheet_Change...
-
エクセルで複数のシートのクリ...
-
マクロ1があります。 A1のセル...
-
Excelで数字を入れたら対応する...
-
エクセル シート内の一番下のセ...
-
エクセルで特定の行だけ行削除...
-
【エクセル】フリーワード検索...
-
EXCELのダイアログシートって、...
-
長い時間かかるマクロが実行中...
-
エクセルファイルを開いた回数...
-
Excelのシート上のShapeにイベ...
-
【エクセル】「実行時エラー’10...
-
エクセル:セル内の文字列の最...
-
エクセルVBAで内容変更のたびに...
-
Excelでセル内の文字をファイル...
-
エクセル マクロ 一定時間おき...
-
セルの一部分だけを太字にする方法
-
前月分を次月シートに繰越でき...
-
シートではなくBOOK間で重複し...
-
Excelにて、同じ画像を複数のセ...
おすすめ情報