エクセルハイパーリンクで画像を表示

解決済

質問者：h041
質問日時：2009/11/30 16:54
回答数：4件

ハイパーリンクで画像を呼び出す際、クリックしてブラウザを立ち上げるのでなく、エクセルの画面上（セル内）にそのまま表示させる書式設定や関数などはありますか？ご存知でしたら教えて下さい。

＜詳細＞
画像入りの商品タグを自動で作成する表を作っています。
商品一覧表（シート(1)）からタグを作りたいものにチェックを入れると、別シート（シート(2)）にタグの体裁で情報が配置され、そのまま印刷できる…というものです（A4用紙1枚に縦型のタグが60枚程度）。
関数を使って文字情報を配置するところまでは何とかできたのですが、画像の配置のところでつまずいています。
取り急ぎ画像を直接ドラッグして配置し、1つ1つ並べ直していますが、商品数が多いのと（1万点ほど）情報の変更が頻繁にあるので、方法があれば画像も自動配置したいと思っています。

シート(1)
　　　　Ａ列　　　　　Ｂ列　　　　　Ｃ列（画像リンク）
１　商品番号｜棚番Ａ１｜ C:\Dcuments (略) 001.jpg
２　商品番号｜棚番Ａ２｜ C:\Dcuments (略) 002.jpg
３　商品番号｜棚番Ｂ１｜ C:\Dcuments (略) 003.jpg
　　　：

シート(2)
｜￣￣￣￣｜￣￣￣￣｜￣￣
｜商品番号｜商品番号｜
｜‥‥‥‥｜‥‥‥‥｜
｜商品画像｜商品画像｜←※
｜‥‥‥‥｜‥‥‥‥｜
｜棚番：Ａ１｜棚番：Ａ２｜
｜＿＿＿＿｜＿＿＿＿｜＿＿
｜￣￣￣￣｜￣￣￣￣｜￣￣

※=HYPERLINK(シート(1)!C1,"■"))
（別名(■)のところをどうにかすればいいのでしょうか…）

どうぞよろしくお願いいたします。

通報する

この質問への回答は締め切られました。

質問の本文を隠す

このQ&Aに関連する最新のQ&A

「商品番号」に関するQ&A：ネット詐欺に遭いました。厨房器具を注文し代金も支払ったのですが、商品が送られてきません。電話番号も

さらに表示

「画像エクセル」に関するQ&A：大学で出た課題が分かりません。画像の5番の問題になります。エクセルを使う授業なのですが、この問

「画像リンク」に関するQ&A： html初心者です。画像サイズについて。テーブルの中に、文字と、画像リンクを貼っているのですが画像

「ハイパーリンクエクセル」に関するQ&A：エクセルで、ハイパーリンクを一括更新したい

「C 画像」に関するQ&A：プログラム C言語画像処理について

「商品画像」に関するQ&A：画像のシャツの商品名を教えて下さい。

「作成タグ」に関するQ&A：タグ作成の依頼

「チェックタグ」に関するQ&A： HTMLタグチェック

回答 (4件)

ベストアンサー優先
最新から表示
回答順に表示

No.3ベストアンサー

回答者： end-u
回答日時：2009/11/30 19:26

関数ですか...

無いこともなく、[名前の定義]と組み合わせれば可能ですが、
事前に画像を読み込んでおかないといけないので『（1万点ほど）』だとおよそ実用的ではないです。
一応、http://oshiete1.goo.ne.jp/qa5092871.html こちらで紹介したサイト
http://www.officetanaka.net/excel/function/tips/ …
や
http://www.geocities.jp/chiquilin_site/data/0505 …
ここなど参考になるかもしれません。

実際にはセルに画像ファイルのフルパスを入力しておいて、関数で参照し、
マクロで読み込むという処理になってしまうでしょうね。

以下Q&A参考に、セル位置等応用できれば、なんとかなるかもしれません。
『マクロでセルに入れたファイル名の画像を隣のセルに読み込む』
http://oshiete1.goo.ne.jp/qa5454724.html
『VBAを使ったエクセルでの画像複数表示』
http://oshiete1.goo.ne.jp/qa4004938.html
『社員写真帳への写真の取り込みについて質問です』
http://hpcgi1.nifty.com/kenzo30/b_cbbs/cbbs.cgi? …

がんばってみてください。

- 1
- 件

通報する

この回答へのお礼

「名前の定義」を使った画像の配置のページ、とても興味深く読ませていただきました。今回の表には適さないということですが、関数でも画像の入れ替えや検索ができると分かって大変ためになりました。
4～6番目にご紹介いただいたページは、まさに私がやりたかったことでしたので、なんとか解読して実用できるようになりたいと思います。マクロのことはまだほとんど分かっていませんが、「セルに画像ファイルのフルパスを入力しておいて、関数で参照し、マクロで読み込む」というご説明で、なんとなく全体の構成がつかめたような気がします。これをキーワードに完成までがんばってみたいと思います。
関数だけでは無理かも…？と思っても次に何を勉強すれば良いのかもよく分からなかったので、目標が明確になって本当に助かりました。
この度はご回答いただき、ありがとうございました。

通報する

お礼日時：2009/12/04 18:58

No.4

回答者： tom04
回答日時：2009/11/30 21:30

こんばんは！

大きく外しているかもしれませんが・・・

↓の画像の右側がSheet2になり、2行目をクリックすると
Sheet1のC列のセルがアクティブになる方法です。

尚、Sheet1の行並びとSheet2の列並びが同じと言う条件です。

Sheet2のA2セルに
=HYPERLINK("#sheet1!C"&COLUMN(A1),"商品画像")

という数式を入れ、列方向へオートフィルでコピーします。

これで仮にSheet2のB2セルをクリックすると
Sheet1のC2セルにがアクティブになります。

以上、参考になれば幸いですが、
最初に書いたように大きく外している可能性もありますので
その場合は読み流してくださいね。m(__)m

- 0
- 件

通報する

この回答へのお礼

今回は、できればクリックせずに画像を表示させたい…と考えておりました。
ですが、とても分かりやすい説明画像まで作ってくださり、大変うれしかったです。ぜひ、別の場面で参考にさせていただきます。
ご回答いただき、ありがとうございました。

通報する

お礼日時：2009/12/04 19:00

No.2

回答者： hornest
回答日時：2009/11/30 17:09

・C列のダブルクリックをトリガにして、マクロを組みましょう。

　Worksheet_BeforeDoubleClick
・画像の挿入および体裁をマクロの自動記録に記録し内容を変えましょう。
　ActiveSheet.Pictures.Insert 等

それから、解らない所を質問してもらえればと思います。

- 0
- 件

通報する

この回答へのお礼

すぐにお礼の返信をするべきでしたが、少しお時間をいただいてマクロの基本構文などを公開しているサイトをいくつか見てきました。マクロに触れるのは初めてでしたので、最初はご回答の内容が全く分かりませんでしたが、今では少しイメージできるようになりました（できれば次の段階の質問をさせていただきたかったのですが…。まだ無理でした）。
この週末を利用して、もう少し理解を深めたいと思います。
勉強のきっかけを下さったことを感謝します。ありがとうございました。

通報する

お礼日時：2009/12/04 18:53

No.1

回答者： akiomyau
回答日時：2009/11/30 17:01

残念ながらそういった関数はありません。

- 0
- 件

通報する

この回答へのお礼

早速のご回答、ありがとうございました。
やはり関数だけでは無理なのですね…。
なんだかありそうな気がして以前から探していたのですが、これで諦めがつきました。ありがとうございました。

通報する

お礼日時：2009/12/04 18:51

このQ&Aに関連する人気のQ&A

「商品番号」に関するQ&A： Exel VBA　別ブックから該当データを検索し、必要なデータを取得する方法について

さらに表示

「画像エクセル」に関するQ&A：エクセルで画像を透過させて画像の上に入力した文字を表示させる方法

「商品画像」に関するQ&A：ゴムの接着、セメダインで着きません。靴底の補修で画像の商品を靴底の減っ

「ハイパーリンクエクセル」に関するQ&A： EXCEL2010のハイパーリンク先の一括変更

「チェックタグ」に関するQ&A： iTunesで以前再生できた曲が再生できない

お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう！

質問する（無料）

このQ&Aを見た人はこんなQ&Aも見ています

専門家回答数ランキング

専門家

※過去一週間分の回答数ランキングです。

質問する（無料）

他の専門家の回答をチェック

このQ&Aを見た人が検索しているワード

このQ&Aと関連する良く見られている質問

Qマクロでセルに入れたファイル名の画像を隣のセルに読み込む

こんにちは。宜しくお願いします。

マクロで「セルに入れたファイル名の画像を隣のセルに読み込む」作業を行いたいのですが・・・。うまくいきません。どなたかご助言いただけると助かります。

＜内容＞
セル内には上から1位・2位と順位通りになっており、その順位に入っているセルのファイル名と一致している画像を隣のセルに読み込みたいと思っています。またファイル名と画像が一致しない場合は「No　Image」として1枚の画像を貼り付けることもしたいです。

　　　A(順位)　　B(名)　　　　C(画像)
...続きを読む

Aベストアンサー

倍率の変更もですが、それより Top 位置の調整が必要です。

Sub try_2()
　　Const n As Long = 2 'margin
　　Dim r As Range
　　Dim i As Long
　　Dim x As Double
　　Dim s As String
　　
　　With ActiveSheet
　　　　For i = 2 To .Cells(.Rows.Count, 2).End(xlUp).Row Step 6
　　　　　　Set r = .Cells(i, 3).MergeArea
　　　　　　s = "D:\画像\" & .Cells(i, 2).Value & ".jpg"
　　　　　　If Dir(s) = "" Then
　　　　　　　　s = "D:\画像\noimage.jpg"
　　　　　　Else
...続きを読む

他の回答も見る

Qエクセルで写真等を

エクセルでオートシェイプに数式を入れてイコールでセル名を入れるとそのセルの文字等がオートシェイプ内に反映されますが，これと似た要領で，文字等をでなく写真等を行う方法はあるでしょうか？うまく言えなくて大変申し訳けありません。感覚的には，貼り付けた写真にアドレスを割り当てて，そのアドレスをセル等の操作で変更して写真を入れ替える…説明下手ですみません。どうぞ，宜しくお願い申し上げます。

Aベストアンサー

ありゃ、かぶってしまいました。
もったいないので(苦笑)投稿しますが、#1さまと同趣旨の内容です。
---------------------------------------
>写真にアドレスを割り当てて，
>そのアドレスをセル等の操作で変更して
>写真を入れ替える

参考動画のようなことでしょうか？

やってやれなくはありませんが、
数式や一般機能にある程度習熟していないと
実際の運用は難しいかもしれません。

むしろ、VBAを覚えてイベントドリブンマクロで
アプローチする方が近道かもしれません。
----------------...続きを読む

他の回答も見る

QVBAを使ったエクセルでの画像複数表示

VBA初心者です。エクセルで商品カタログを作るため、品番に紐付いた商品画像ファイルをエクセル上に読み込む方法は他の回答から分かったのですが（http://oshiete1.goo.ne.jp/qa2880877.html）、見る限り「1シート＝１商品」というものしか見つけられませんでした。同シート上に２つ以上の「品番⇒画像」という表示をするためのVBAはどのように組めばよろしいでしょうか？
VBAもよく勉強しないで恐縮ですが、どなたかご回答いただけますでしょうか？宜しくお願い致します。

Aベストアンサー

>現行の「A列入力⇒B列表示」の発展系で、「XXに入力⇒XXに表示」
>というように個別に指定することは可能なのでしょうか？
可能です。
>fn = .Cells(i, 1).Value
>Set r = .Cells(i, 2)
ここで使っているCellsプロパティは
Cells(行, 列)...で指定します。
この『列』である 1(A列) や 2(B列) を変更すれば良いです。
.Cells(i, "A").Value など文字列で指定する事もできます。

都度入力方式にしたいなら、変数を使って下記のようにします。
Sub try3()
　　Dim r　As Range　'表示セル用
　　Dim fd As String 'フォルダ用
　　Dim fn As String '画像ファイル名用
　　Dim x1 As String 'ファイル名列用
　　Dim x2 As String '出力先列用
　　Dim n　As Long　 '最下行用
　　Dim i　As Long　 'Loopカウンタ
　　
　　With Application
　　　　x1 = .InputBox("ファイル名の列入力" & vbLf & "ex) A", Type:=2)
　　　　If x1 = "False" Then Exit Sub
　　　　x2 = .InputBox("出力先の列入力" & vbLf & "ex) B", Type:=2)
　　　　If x2 = "False" Then Exit Sub
　　End With
　　If Len(x1) = 0 Or Len(x2) = 0 Then Exit Sub
　　fd = FDselect("画像フォルダ選択")
　　If Len(fd) = 0 Then Exit Sub
　　On Error GoTo errHndlr
　　With ActiveSheet
　　　　n = .Cells(.Rows.Count, x1).End(xlUp).Row
　　　　If n = 1 And Len(.Cells(1, x1).Value) = 0 Then Exit Sub
　　　　Application.ScreenUpdating = False
　　　　For i = 1 To n
　　　　　　fn = .Cells(i, x1).Value
　　　　　　If Len(fn) > 0 Then
　　　　　　　　Set r = .Cells(i, x2)
　　　　　　　　If Len(Dir(fd & fn)) > 0 Then
　　　　　　　　　　With .Pictures.Insert(fd & fn).ShapeRange
　　　　　　　　　　　　.LockAspectRatio = msoTrue
　　　　　　　　　　　　.Left = r.Left
　　　　　　　　　　　　.Top = r.Top
　　　　　　　　　　　　.Height = r.Height
　　　　　　　　　　End With
　　　　　　　　End If
　　　　　　End If
　　　　Next
　　End With
errHndlr:
　　Set r = Nothing
　　Application.ScreenUpdating = True
　　If Err.Number <> 0 Then MsgBox Err.Number & vbLf & Err.Description
End Sub

'FolderSelectFunction
Private Function FDselect(ByVal s As String) As String
　　Dim obj As Object
　　Dim ret As String

　　Set obj = CreateObject("Shell.Application") _
　　　　　　　.BrowseForFolder(0, s, 0)
　　If obj Is Nothing Then Exit Function
　　On Error Resume Next
　　ret = obj.self.Path & "\"
　　If Err.Number <> 0 Then
　　　　ret = obj.Items.Item.Path & "\"
　　　　Err.Clear
　　End If
　　On Error GoTo 0
　　Set obj = Nothing
　　FDselect = ret
End Function

ただ、最初に書いてますが
>>VBAもよく勉強しないで恐縮ですが、
>ではメンテナンスの時に困りますから、よく勉強してくださいね。

他の回答も見る

Qexcelで画像のハイパーリンクをセル値参照できませんか？

Ｅｘｃｅｌにて画像(Ｊｐｇ)をハイパーリンクにて貼付けしていますが、画像のファイル名をセル上の値と同じした時にハイパーリンク先を自動計算（演算）させる方法はどのようにすれば良いのでしょうか？

シート上のＡ１セルの値：００００１・・文字情報
ハイパーリンクしたい画像のファイルネーム：００００１．ＪＰＧ
シート上のＡ２セルの値：００００２・・文字情報
ハイパーリンクしたい画像のファイルネーム：００００２．ＪＰＧ

以下、Ａ２、Ａ３・・・・と続く

ハイパーリンク先の参照先：（Ａ１）．ＪＰＧの様なイメージです。
これが出来れば、ドラッグして全ての行を同じ演算式にして参照
できるのかな？と思っています。

Aベストアンサー

=HYPERLINK("D:\画像\"&A1&".jpg")

他の回答も見る

Qエクセルで画像を自動的に挿入

エクセルは一般人程度の知識しかありません。
わたしは、デジカメの画像をエクセルに貼り付けて印刷しています。
（A4で、サイズ変更をして）
今までは、画像を貼り付けて、サイズ変更して、１画像ずつ配置していました。
しかし画像数が多いと配置の作業が大変です。画像を選択するだけでサイズ変更して自動的に配置してくれる機能なんてないですかね？
よろしくお願いします。

Aベストアンサー

検索すればそこかしこに情報があると思います。
我田引水ですが、
http://okwave.jp/qa3864319.html
更に、上記記事中のリンク先では、マクロの作り方も含めて説明してくれていますので、ご覧下さい。

他の回答も見る

Qエクセルで次々と画像を表示させたい

例えば、Sheet1に、支店番号、支店名、住所、電話番号、地図（jpgファイル名）等の項目を作り、100件以上のレコードが入っている表があります。

Sheet2に、上記の1レコード（＝１支店）分のデータをA4用紙に見やすく配置したフォーム（？）を作り、VLOOKUP関数を使って、データを表示させるようにしました。（つまりA支店の支店番号を選ぶとA支店のデータが、B支店の支店番号を選ぶとB支店のデータが表示）

★この時、それぞれのレコードのjpgファイルの画像も表示させたいのですが、どのようにすればできる...続きを読む

Aベストアンサー

#1です。

ちなみにファイルのパスは例の通りでなくても大丈夫のハズです。
但し、
１）Excelファイルのあるフォルダのサブフォルダ名は「Image」
２）エラー時用のファイル名は「NoImage.jpg」
この２つを変える場合はコードの記載にある同様の部分を修正する必要があります。

　"\Image\"　→　"\好きなフォルダ名\"
　"\Image\NoImage.jpg"　→　"\好きなフォルダ名\好きなファイル名.jpg"

カスタマイズですが、

＊支店コードを入れるセルを変えたい場合
　"$A$1"　を好きなセルに変えます。
...続きを読む

他の回答も見る

Qエクセル　フォルダの画像を画像名で検索して貼り付け

商品リストを作っています。

エクセルシートのC列に商品名が入っています。（6桁の数字&アルファベット。たとえばA00123）
フォルダにその商品名をつけた画像がまとまっています。

B列に、その該当する画像を自動的に貼り付けたいのですがどうすればいいですか？
画像数は1000個くらいフォルダに入っています。毎週増えます。
エクセルに載せる数はそのうち半分くらいです。
画像がない場合もあるのでその場合は何かしらのエラーを表示させたいです。

マクロはド初心者です。切り貼りくらいしか出来ません。が...続きを読む

Aベストアンサー

添付画像はこちらで実行した結果です。
hermosa90254さんが貼り付けておられたＵＲＬに書かれていたプログラムを一部修正したものです。
ExcelでVBE画面（Alt + F11）に下記プログラムをそのままコピペして実行してみてください。
ただし「写真の保存場所」で書かれているマイドキュメントのパスはご自身のパソコンのエクスプローラでご確認下さい。
（念のためVBE画面での操作手順画像を次の回答で添付します）

Sub macro1()
Dim p As String
Dim h As Range

'写真の保存場所
p = "C:\Users\☆☆☆\Doc...続きを読む

他の回答も見る

Q任意フォルダから画像をすべてエクセルの指定マスに貼り付けをしたい

ネットでいろいろ検索し、試してみましたが自分の思うような仕上がりにならず困っています。

実施したい内容としては、マクロで
①エクセルシートのA2,B2,C2,D2,A4,B4,C4,D4 …A24,B24,C24,D24セルに画像を挿入
②マクロを開始するとフォルダを選ぶ画面が現れる
③フォルダを選択すると、①にフォルダ内の画像がすべて貼り付けられる
④画像は、セルの大きさに合わせて自動調整される
というものです。

1枚ずつを選んでセルに自動調整で貼り付けるということは真似事でできましたが、希望の内容をできるようにしようとすると、かなり難易度が高くお手上げ状態です。
このプログラムをどのように改修すれば可能になるかお教えください。

Sub 図11()

Dim strFilter As String
Dim Filenames As Variant
Dim PIC As Picture

' 「ファイルを開く」ダイアログでファイル名を取得
strFilter = "画像ファイル(*.jpg;*.jpeg;*.gif;*.bmp;*.png),*.jpg;*.jpeg;*.gif;*.bmp;*.png"
Filenames = Application.GetOpenFilename( _
FileFilter:=strFilter, _
Title:="図の挿入(複数選択可）", _
MultiSelect:=True)
If Not IsArray(Filenames) Then Exit Sub

' ファイル名をソート
Call BubbleSort_Str(Filenames, True, vbTextCompare)

' 貼り付け開始セルを選択
Range("B6").Select

' マクロ実行中の画面描写を停止
Application.ScreenUpdating = False
' 順番に画像を挿入
For i = LBound(Filenames) To UBound(Filenames)
Set PIC = ActiveSheet.Pictures.Insert(Filenames(i))

'-------------------------------------------------------------
' 画像の各種プロパティ変更
'-------------------------------------------------------------
With PIC
.Top = ActiveCell.Top ' 位置：アクティブセルの上側に重ねる
.Left = ActiveCell.Left ' 位置：アクティブセルの左側に重ねる
.Placement = xlMove ' 移動するがサイズ変更しない
.PrintObject = True ' 印刷する
End With
With PIC.ShapeRange
.LockAspectRatio = msoTrue ' 縦横比維持
' 画像の高さをアクティブセルにあわせる
' 結合セルの場合でも対応
.Height = ActiveCell.MergeArea.Height
End With

' 次の貼り付け先を選択（アクティブセルにする）[例：5個下のセル]
ActiveCell.Offset(5).Select

Set PIC = Nothing
Next i

' 終了
Application.ScreenUpdating = True

End Sub

よろしくおねがいします。
※マクロはほぼ初心者です。大体がネットからコピペをして使っている程度のレベルです。

Aベストアンサー

>①エクセルシートのA2,B2,C2,D2,A4,B4,C4,D4 …A24,B24,C24,D24セルに画像を挿入
>②マクロを開始するとフォルダを選ぶ画面が現れる
>③フォルダを選択すると、①にフォルダ内の画像がすべて貼り付けられる
>④画像は、セルの大きさに合わせて自動調整される

①は、A2で始まり、横に4進み、下に2進むという数列を設けています。
②は、ご存知のShell のBrowseForFolderを利用しましたが、他にもあるでしょう。
問題は③かな。一応、 ''安全のため（上限を設定)　という箇所を設けましたが、不要なら、コメント・アウトしてください。また、DoEvents も入れておきました。
④は、何も手を付けていません。
コメント・アウトした部分で不要なら削除してください。

'//
Sub 図11R()
　'No. 9024507
　Dim strFilter As String
　Dim Filenames() As Variant
　Dim fName As Variant, ext As String
　Dim PIC As Picture
　Dim k As Long, m As Long
　Dim i As Long, j As Long
　Dim cnt As Long
　Dim FirstRng As Range
　Dim r As Range
　Dim Sel_Folder As Object, Sel_Path As String
　cnt = 0 'カウントの初期値
　'貼り付け最初のセル
　Set FirstRng = Range("A2")
　
　 Set Sel_Folder = CreateObject("Shell.Application"). _
　　　 BrowseForFolder(0, "フォルダを選択してください", 5)

　　If Not Sel_Folder Is Nothing Then
　　　　Sel_Path = Sel_Folder.Self.Path
　　Else
　　　Exit Sub
　　End If
　
　' 「ファイルを開く」ダイアログでファイル名を取得
　ChDir Sel_Path
'　strFilter = "画像ファイル(*.jpg;*.jpeg;*.gif;*.bmp;*.png),*.jpg;*.jpeg;*.gif;*.bmp;*.png"
'　Filenames = Application.GetOpenFilename( _
'　FileFilter:=strFilter, _
'　Title:="図の挿入(複数選択可）", _
'　MultiSelect:=True)
　fName = Dir("*.*", vbNormal)
　Do While fName <> ""
　　If fName <> "." And fName <> ".." Then
　　　ext = Mid(fName, InStrRev(fName, ".") + 1)
　　　If InStr(1, "jpg,jpeg,gif,bmp,png", ext, 1) > 0 And Not fName Like "#*" Then
　　　　cnt = cnt + 1
　　　　DoEvents
　　　　ReDim Preserve Filenames(1 To cnt)
　　　　Filenames(cnt) = fName
　　　 ''安全のため（上限を設定)
　　　　If cnt > 100 Then Exit Do
　　　End If
　　End If
　　fName = Dir()
　Loop
　If cnt = 0 Then Exit Sub
　
　' ファイル名をソート
　Call BubbleSort_Str(Filenames, True, vbTextCompare)
　
　'' 貼り付け開始セルを選択
　'Range("B6").Select
　
　' マクロ実行中の画面描写を停止
　Application.ScreenUpdating = False
　' 順番に画像を挿入
　k = LBound(Filenames)
　m = UBound(Filenames)
　
　For j = 1 To Int(m / 4) + Abs(m Mod 4 > 0)
　　For i = 1 To 4
　　　Set PIC = ActiveSheet.Pictures.Insert(Filenames(k))
　　　Set r = FirstRng.Cells(1 + (j - 1) * 2, i)
　　　
　　　'-------------------------------------------------------------
　　　' 画像の各種プロパティ変更
　　　'-------------------------------------------------------------
　　　With PIC
　　　　.Top = r.Top ' 位置：アクティブセルの上側に重ねる
　　　　.Left = r.Left ' 位置：アクティブセルの左側に重ねる
　　　　.Placement = xlMove ' 移動するがサイズ変更しない
　　　　.PrintObject = True ' 印刷する
　　　End With
　　　With PIC.ShapeRange
　　　　.LockAspectRatio = msoTrue ' 縦横比維持
　　　　' 画像の高さをアクティブセルにあわせる
　　　　' 結合セルの場合でも対応
　　　　.Height = r.MergeArea.Height
　　　End With
　　　
　　　' 次の貼り付け先を選択（アクティブセルにする）[例：5個下のセル]
　　　' ActiveCell.Offset(5).Select
　　　
　　　Set PIC = Nothing
　　　k = k + 1
　　　If k >= m Then Exit For
　　Next i
　Next j
　Application.ScreenUpdating = True
　ChDir ThisWorkbook.Path
End Sub

他の回答も見る

QExcel2010でセルに画像を呼び出す

Excel2010にシート1とシート2があります。
記入・印刷用シートはシート2とします。

シート1のA1セルに50pixel×50pixelの画像(png)を置きます。

シート2のA1セルに何か数字や文字が書かれた時に、
[マクロを使わずに]
シート2のB1セルに、シート1のA1セルにある画像を表示させるにはどうしたらいいですか？

上記ができない場合、シート2のB1セルにドロップダウンリストを作成して、
シート1のA1セルの画像を呼び出すことは可能ですか？

------------------------
Windows7 64bit
Excel2010 64bit
------------------------

Aベストアンサー

VLOOKUPで画像を変えたい
http://menushowdelay.blog13.fc2.com/blog-entry-518.html
の一番上のリンクなどはよく紹介されていますね。

他の回答も見る

QExcelで数字を入れたら対応する図を呼び出したい

いつもお世話になっております。
Excelで複数の地区の管理をしています。
地区には通し番号が付いていますおり、報告書を作るときにその通し番号入力します。
その時にスキャナで取り込んで通し番号を付けてある地図を入っているフォルダから自動的に呼んでくるようにはできないでしょうか？
わかりにくい文章ですみません。
よろしくお願いします。

Aベストアンサー

マクロになりますがいいですか？
このサンプルはA1セルにファイル名（拡張子なし）を入力したらD3セルに指定した画像を貼り付けるものです。

試しに新しいブックを開き「シート名右クリック」→「コードの表示」で開く画面に以下のマクロを貼り付けてください。マクロ２行目～５行目はご自身の環境に合わせて修正が必要です。

Private Sub Worksheet_Change(ByVal Target As Range)
Const trgR As String = "A1" '地図通し番号を入力するセル
Const insR As String = "D3" '挿入画像の左上のセル
Const p...続きを読む

他の回答も見る

ページトップ