With PIC |商品画像|商品画像|←※ >写真を入れ替える 1)Excelファイルのあるフォルダのサブフォルダ名は「Image」 試しに新しいブックを開き「シート名右クリック」→「コードの表示」で開く画面に以下のマクロを貼り付けてください。マクロ2行目~5行目はご自身の環境に合わせて修正が必要です。 |____|____|__    '-------------------------------------------------------------     Range(insR).Select エクセルで画像や図を挿入する機会はかなり多いかと思います。 そこで、今回はエクセルで画像挿入を少しだけ楽できるようにする方法をのせておきます。 このvbaマクロの画像挿入は、リンクを結び付けるのではなく、実体ファイルを挿入する方法を紹介します。 (別名(■)のところをどうにかすればいいのでしょうか…) >Set r = .Cells(i, 2) ※=HYPERLINK(シート(1)!C1,"■"))  fName = Dir("*. Set myPic = ActiveSheet.Pictures.Insert("D:\画像\" & myCell.Value & ".JPG")     End If エクセルシートのC列に商品名が入っています。(6桁の数字&アルファベット。たとえばA00123) .Left = h.Offset(0, -2).Left  但し、それによって地図ファイル名を表示させるセルは必ずその右隣のセルにします。   Dim x As Double   Sheet1!A1の値に対応する写真があるセルの参照を作る 実施したい内容としては、マクロで   With Application .Cells(i, "A").Value など文字列で指定する事もできます。 Next        .BrowseForFolder(0, s, 0) こんな感じで n の数値を変更して調整してください。 '写真の保存場所 For Each h In Range("D2:D" & Range("C1048576").End(xlUp).Row)       s = "D:\画像\" & .Cells(i, 2).Value & ".jpg" ちなみにファイルのパスは例の通りでなくても大丈夫のハズです。 Dim myCell As Range ・画像をセルの結合した分の大きさに合わせたいのだが、セル1個分のサイズに表示してしまうためうまく調節できない。 私のリストは商品名がB列にあるのですがそれが問題なのでしょうか。 3 商品番号 | 棚番B1 | C:\Dcuments (略) 003.jpg             .Top = r.Top ' FileFilter:=strFilter, _  Loop And fName <> ".." Then   Dim n As Long  '最下行用 .Left = r.Left + (r.Width - .Width) / 2 ご回答いただき、ありがとうございました。, すぐにお礼の返信をするべきでしたが、少しお時間をいただいてマクロの基本構文などを公開しているサイトをいくつか見てきました。マクロに触れるのは初めてでしたので、最初はご回答の内容が全く分かりませんでしたが、今では少しイメージできるようになりました(できれば次の段階の質問をさせていただきたかったのですが…。まだ無理でした)。 Title:="図の挿入(複数選択可)", _ . 1.適当なシートに写真を挿入する。 <内容> Excelのハイパーリンク機能を利用して、ブックの「目次シート(シートリンク)」を作成するオススメ活用法を紹介します。設定したハイパーリンクを解除(削除)する方法や、関数で設定する方法もまと … >写真を入れ替える       End If 上記ができない場合、シート2のB1セルにドロップダウンリストを作成して、 ただし「写真の保存場所」で書かれているマイドキュメントのパスはご自身のパソコンのエクスプローラでご確認下さい。 よろしくお願いいたします。, 商品リストを作っています。       'r.Item(1).Value = s     .LockAspectRatio = msoTrue ' 縦横比維持 但し、 >fn = .Cells(i, 1).Value ハイパーリンクしたい画像のファイルネーム:00002.JPG  Application.ScreenUpdating = False    With PIC.ShapeRange Const trgR As String = "A1" '地図通し番号を入力するセル この2つを変える場合はコードの記載にある同様の部分を修正する必要があります。 '-------------------------------------------------------------    End With   挿入直後に黒い画面が表示される場合は、[ビデオツール]の[書式]タブの[再生]ボタンをクリックすると、動画の中央に再生ボタンが表示されます。 10  10位   test10   D:\画像\teet10.JPG >Set r = .Cells(i, 2)   Application.ScreenUpdating = True エクセルにハイパーリンクで貼り付けた画像を通常の埋め込み画像に変換したいのですが、方法が分かる方がいましたらご教授ください。エクセルは2013です。よろしくお願いしますハイパーリンクで貼り付けた画像ということは、 画像ファイ 商品一覧表(シート(1))からタグを作りたいものにチェックを入れると、別シート(シート(2))にタグの体裁で情報が配置され、そのまま印刷できる…というものです(A4用紙1枚に縦型のタグが60枚程度)。 しかし画像数が多いと配置の作業が大変です。画像を選択するだけでサイズ変更して自動的に配置してくれる機能なんてないですかね? Call BubbleSort_Str(Filenames, True, vbTextCompare)  Dim i As Long, j As Long Set myPic = Nothing 可能です。 ①は、A2で始まり、横に4進み、下に2進むという数列を設けています。       End With     n = .Cells(.Rows.Count, x1).End(xlUp).Row https://www.youtube.com/watch?v=7pE61MRtU8c, ありゃ、かぶってしまいました。 Sub macro1() Dim shp As Shape ここがキモです!ここでリンク埋め込みか実態埋め込みか、ファイル内に画像を保存するかを設定してます。 なんでわざわざ貼り付けた後に100%にしてるかって、そのままだと100% * 100%になってない時があるんですよ… 縦横比固定にチェックが入ってても73% * 69%みたいなわけわからん数値 …         .LockAspectRatio = msoTrue Set PIC = Nothing |‥‥‥‥|‥‥‥‥| windows7 ★この時、それぞれのレコードのjpgファイルの画像も表示させたいのですが、どのようにすればできるのでしょうか? ' 次の貼り付け先を選択(アクティブセルにする)[例:5個下のセル]   Outlookで画像やエクセルを本文中に貼り付ける方法を紹介しました。 ドラッグアンドドロップでは添付ファイルになってしまうこと、テキスト形式のメッセージでは本文中に画像を挿入できないことは覚えておきましょう。 この記事も読んでおこう!! .Width = Range("D2").Width ExcelでPDFを挿入し貼り付けるならデータを参照できますし、データを基にExcelで作業するためにも大変便利ですよね。 この記事では、Excelにデータを貼り付けて埋め込みする方法をご紹介します。 さらに、回転させて見やすくさせる方法もありますので、ご参照ください。 Dim h As Range   Dim s As String ④は、何も手を付けていません。 他に何かいい方法をご存知の方がいらっしゃいましたら、どうか教えて下さい!関数、Visual Basicの使用でも構いません。 >④画像は、セルの大きさに合わせて自動調整される 本来、画像のコントロールはExcelの標準機能ではできませんが、このように工夫すれば、VLOOKUP関数で扱うように画像を扱うことができます。 今回のポイントは、画像にも計算式が設定できること、画像に設定したセル参照を求める結果は数値ではなく画像になることを覚えておきましょう。             shp.BottomRightCell)) Is Nothing Then >というように個別に指定することは可能なのでしょうか? (他のときは選択する名前が出てくるのですが。Subの後に入っている名前です。このリンクのだとsubがなくて名前がないため、マクロ実行できません) セル内には上から1位・2位と順位通りになっており、その順位に入っているセルのファイル名と一致している画像を隣のセルに読み込みたいと思っています。またファイル名と画像が一致しない場合は「No Image」として1枚の画像を貼り付けることもしたいです。 _ フォルダにその商品名をつけた画像がまとまっています。 記入・印刷用シートはシート2とします。    Set PIC = ActiveSheet.Pictures.Insert(Filenames(k)) Dim myPic As Object . Cells(行, 列)...で指定します。    どうぞよろしくお願いいたします。, 「商品 番号」に関するQ&A: ネット詐欺に遭いました。 厨房器具を注文し代金も支払ったのですが、商品が送られてきません。電話番号も, 「画像 エクセル」に関するQ&A: 大学で出た課題が分かりません。 画像の5番の問題になります。 エクセルを使う授業なのですが、 この問, 「画像 リンク」に関するQ&A: html初心者です。画像サイズについて。 テーブルの中に、文字と、画像リンクを貼っているのですが画像, 「ハイパーリンク エクセル」に関するQ&A: エクセルで、ハイパーリンクを一括更新したい, 「名前の定義」を使った画像の配置のページ、とても興味深く読ませていただきました。今回の表には適さないということですが、関数でも画像の入れ替えや検索ができると分かって大変ためになりました。 実際の運用は難しいかもしれません。 End Sub アプローチする方が近道かもしれません。     Next   End With シート上のA2セルの値:00002・・文字情報       If Not Intersect(Range(insR), Range(shp.TopLeftCell, _  Dim r As Range 設定が完了したら、[OK]をクリックします。 ハイパーリンクが設定されます。 セルにハイパーリンクを …   Dim obj As Object '// >そのアドレスをセル等の操作で変更して セル内には上から1位・2位と順位通りになっており、その順位に入っているセルのファイル名と一致している画像を隣のセルに読み込みたいと思っています。またファイル名と画像が一致しない場合は「No Image」として1枚の画像を貼り付けることもしたいです。   FDselect = ret   Else ③フォルダを選択すると、①にフォルダ内の画像がすべて貼り付けられる         s = "D:\画像\noimage.jpg" ナカノアキラ. 参考動画のようなことでしょうか? マクロで「セルに入れたファイル名の画像を隣のセルに読み込む」作業を行いたいのですが・・・。うまくいきません。どなたかご助言いただけると助かります。 【Excel・エクセル】画像や図形をセルの枠にぴったり合わせるには; 最近読まれた記事 【Word・ワード】文字を丸で囲む方法!2文字以上もできる? 2020/05/19 「いま履歴書を書いてて、 … >そのアドレスをセル等の操作で変更して Const p...続きを読む, ※各種外部サービスのアカウントをお持ちの方はこちらから簡単に登録できます。 .Height = ActiveCell.MergeArea.Height  Dim FirstRng As Range --------------------------------------------- Dim buf As String または マクロはド初心者です。切り貼りくらいしか出来ません。が、今勉強中です。 大量の画像などにhyperlinkを発展ますが、ファイルの整理で場所を変えました。 通常のハイパーリンクなら置換置き換え出来ますが、画像に設定したものには反映しません。 ちなみにですが、エクセルをPDFで保存して使用しております。 数式や一般機能にある程度習熟していないと (A4で、サイズ変更をして) *画像を表示する位置を変えたい場合  Set FirstRng = Range("A2")     If n = 1 And Len(.Cells(1, x1).Value) = 0 Then Exit Sub インク描画コントロールまたは画像コントロールの外観、サイズ、およびその他の点を微調整するには、次のヒントを参照してください。 インク� エクセルに載せる数はそのうち半分くらいです。 [ポップ ヒント]:スライド上のリンクされたテキストにマウスをポイントすると表示されるテキスト。, [アドレス] ボックスに、Web アドレスを入力します。 (例: https://www.contoso.com), この新機能は PowerPoint 2016 for Mac バージョン 16.14.18061000 で利用できます。 使用している Office のバージョンを確認する方法, [ハイパーリンクの挿入] ダイアログ ボックスで [このドキュメント] をクリックします。, [ハイパーリンクの挿入] ダイアログ ボックスで [Web ページまたはファイル] をクリックします。, [選択] をクリックし、リンク先にするプレゼンテーションまたはファイルをクリックします。, 注: PowerPoint for macOS では、別のプレゼンテーションの特定のスライドにリンクすることはできません。, [ハイパーリンクの挿入] ダイアログ ボックスで [電子メール アドレス] をクリックします。, [電子メール アドレス] ボックスに、リンク先の電子メール アドレスを入力するか、[最近使用した電子メール アドレス] ボックスの一覧から選びます。, [ホーム] タブの [挿入] で [テキスト] をクリックし、[ハイパーリンク] をクリックします。, 注: Web ページの特定の場所にリンクさせるには、[Web ページ] タブをクリックし、[アンカー] の下に表示されている指示に従います。, PowerPoint プレゼンテーション内の特定のスライドや目的別スライド ショーを開くハイパーリンクとして、テキストまたはオブジェクトを追加できます。 Word 文書、Excel ブック、ファイル、または電子メール アドレスにリンクさせることもできます。, 挿入するハイパーリンク種類に応じて [ドキュメント] タブまたは [電子メール アドレス] タブをクリックします。, 最初のスライド、最後のスライド、次のスライド、スライド タイトルなど、プレゼンテーションのさまざまな場所にリンクを作成することができます。, [ドキュメント] タブをクリックし、[アンカー] の [ジャンプ先] をクリックします。, 目的別スライド ショーにジャンプするハイパーリンクがあれば、メインのプレゼンテーションから別の目的別スライド ショーに簡単に移動できます。 また、リンクをまとめた目次スライドを作成することもできます。 このような目次スライドを使用すると、目次スライドからプレゼンテーションのさまざまなセクションに移動できるので、場面に応じたセクションを選んでプレゼンテーションの相手に見せることができます。 以降の手順では、1 つまたは複数の目的別スライド ショーを作成した後、メインのプレゼンテーションから目的別スライド ショーにジャンプするハイパーリンクを追加する方法について説明します。, 注: あるプレゼンテーションからまったく別のプレゼンテーションにジャンプするハイパーリンクを作成する場合は、別の文書にジャンプするハイパーリンクを追加できます。 詳細については、「ハイパーリンクを作成、編集、または削除する」を参照してください。, ハイパーリンクが設定された目的別スライド ショーの作成に使用するプレゼンテーションを開きます。, [スライド ショー] タブの [スライド ショーの再生] で、[目的別スライド ショー] をクリックしてから、[目的別スライド ショーの編集] をクリックします。, [プレゼンテーション中のスライド] ボックスで、目的別スライド ショーに挿入するスライドをクリックしてから、[追加] をクリックします。, ヒント: 複数の連続するスライドを選ぶには、最初のスライドをクリックし、Shift キーを押したまま最後にするスライドをクリックします。 連続しない複数のスライドを選ぶには、COMMAND キーを押したまま、選ぶスライドをそれぞれクリックします。, スライドを表示する順序を変更するには、[目的別スライド ショーのスライド] でスライドをクリックし、 エクセルに載せる数はそのうち半分くらいです。 ' Filenames = Application.GetOpenFilename( _ ※マクロはほぼ初心者です。大体がネットからコピペをして使っている程度のレベルです。, ネットでいろいろ検索し、試してみましたが自分の思うような仕上がりにならず困っています。             .Height = r.Height  "\Image\" → "\好きなフォルダ名\" (半角)」+ファイルの拡張子" http://oshiete.goo.ne.jp/qa/2880877.html  ChDir Sel_Path . | ̄ ̄ ̄ ̄| ̄ ̄ ̄ ̄| ̄ ̄             .LockAspectRatio = msoTrue     For i = 1 To n   If Not Sel_Folder Is Nothing Then    If InStr(1, "jpg,jpeg,gif,bmp,png", ext, 1) > 0 And Not fName Like "#*" Then  'Range("B6").Select 検索して下記の方法を見つけたのですが、未だ成功していません。 Const insR As String = "D3" '挿入画像の左上のセル   この2つを変える場合はコードの記載にある同様の部分を修正する必要があります。           With .Pictures.Insert(fd & fn).ShapeRange >写真にアドレスを割り当てて, 都度入力方式にしたいなら、変数を使って下記のようにします。 ...続きを読む, 商品リストを作っています。 予定、計画、予算の管理 - Microsoft 365 では簡単に行うことができます, PowerPointスライド上で基本的な Web ハイパーリンクを最も早く作成する方法は、既存のウェブページのアドレスを入力して、Enter キーを押します。(http://www.contoso.comなど)。, Web ページにリンクしたり、新しい文書や既存の文書内の場所にリンクしたりすることができます。またはメール アドレスに対するメッセージの作成を開始できます。, [ヒント]: ユーザーがハイパーリンクをポイントしたときに表示するテキストを入力します (省略可能)。, [現在のフォルダー]、[ブラウズしたページ]、[最近使ったファイル]: リンク先を選びます。, [アドレス]: 上で場所をまだ選択していない場合は、リンク先の Web サイトの URL を挿入します。, 自分のコンピューター上のファイルにリンクしている場合、PowerPoint プレゼンテーションを別のコンピューターに移動するときは、リンクされたファイルも移動する必要があります。, [新しいドキュメントの作成]: プレゼンテーションから別のプレゼンテーションにリンクします。, [電子メール アドレス]: 表示されているメール アドレスをリンクし、ユーザーのメール プログラムを開きます。, 必要に応じて、ハイパーリンクの色を変更することができます。 リンクの表示テキストを変更する場合は、これを右クリックし、[リンクの編集] を選択します。, リボンの [ホーム] タブで、[フォントの色] ボタンの横にある矢印を選択し、色のメニューを開きます。, リンクを挿入した後に、リンクをテストできます (標準表示モード)。ハイパーリンクを右クリックして、[ハイパーリンクを開く] を選択します。, プレゼンテーションの目的別スライドショーにリンクしている場合を除き、[表示して戻る] ボックスは灰色表示されます。, Microsoft 365の利用者で [表示して戻る]のような機能を使用する場合は、PowerPoint の [ズーム] を使用して別のスライドにリンクする方法については、こちらを参照し、この記事の最後に記載されている "戻るを選択する" 機能については、こちらの記事の最後の辺りを参照してください。, Web ページにリンクしたり、プレゼンテーション内の別の場所にリンクしたりすることができます。または別のプレゼンテーションを開くか、メール アドレスへのメッセージの作成を開始できます。, 2. .Name = h 但し、 End With Cells(行, 列)...で指定します。     .PrintObject = True ' 印刷する よろしくおねがいします。 Excelのセルにハイパーリンク、長いURLでも「見た目スッキリ」な埋め込み方 .     ' 結合セルの場合でも対応 むしろ、VBAを覚えてイベントドリブンマクロで Web サイトにリンクする. 設定するハイパーリンクの種類に応じた条件を設定します。 4. このサンプルはA1セルにファイル名(拡張子なし)を入力したらD3セルに指定した画像を貼り付けるものです。  ChDir ThisWorkbook.Path Dim p As String   End If End Function これはあくまでサンプルですので、実際のシートにあわせてマクロを修正する必要があると思いますが、それはご自身でお願いします。, マクロになりますがいいですか? ①は、A2で始まり、横に4進み、下に2進むという数列を設けています。 2019.12.05. ------------------------ やってやれなくはありませんが、 別のシートで、実際に画像を貼付たものとその名前のデータベースを作り、それとリンクを貼る。という方法を知ったのですが、レコード件数がかなりあるので、この方法はちょっと使えません。 問題は③かな。一応、 ''安全のため(上限を設定) という箇所を設けましたが、不要なら、コメント・アウトし...続きを読む, Excel2010にシート1とシート2があります。 全977文字. Sub try_2() ハイパーリンクとは、テキストや画像に埋め込まれた「リンク」のことで、設定した参照先に遷移することができます。 Webサイトでは、他のページに飛んだり、PDFを開いたりするために多用されているものですが、エクセルでもハイパーリンクの設定が可能となっております。   For i = 1 To 4 ' 順番に画像を挿入 Dim h As Range             .Left = r.Left >②マクロを開始するとフォルダを選ぶ画面が現れる このプログラムをどのように改修すれば可能になるかお教えください。 シート上のA1セルの値:00001・・文字情報   If Err.Number <> 0 Then  ' マクロ実行中の画面描写を停止 errHndlr: 2)エラー時用のファイル名は「NoImage.jpg」     画像位置 : =INDEX(Sheet2!$A:$A,Sheet1!$A$1,)  Dim PIC As Picture With PIC.ShapeRange       ret = obj.self.Path & "\" End Sub, 添付画像はこちらで実行した結果です。 End Sub Const trgR As String = "A1" '地図通し番号を入力するセル     x2 = .InputBox("出力先の列入力" & vbLf & "ex) B", Type:=2)  "\Image\" → "\好きなフォルダ名\" <問題点> この『列』である 1(A列) や 2(B列) を変更すれば良いです。 ' Title:="図の挿入(複数選択可)", _     .Top = r.Top ' 位置:アクティブセルの上側に重ねる    ' 画像の各種プロパティ変更       If Dir(s) = "" Then     Next With ActiveSheet.Pictures.Insert(p & h)  ' ファイル名をソート Dim strFilter As String ただ、最初に書いてますが  Dim Sel_Folder As Object, Sel_Path As String  Do While fName <> ""   If Err.Number <> 0 Then MsgBox Err.Number & vbLf & Err.Description  m = UBound(Filenames) このサンプルはA1セルにファイル名(拡張子なし)を入力したらD3セルに指定した画像を貼り付けるものです。 関数を使って文字情報を配置するところまでは何とかできたのですが、画像の配置のところでつまずいています。 Sheet2に、上記の1レコード(=1支店)分のデータをA4用紙に見やすく配置したフォーム(?)を作り、VLOOKUP関数を使って、データを表示させるようにしました。(つまりA支店の支店番号を選ぶとA支店のデータが、B支店の支店番号を選ぶとB支店のデータが表示) プランニング・ファクトリー サイコ.     ' ファイル名をソート   Dim x1 As String 'ファイル名列用 画像数は1000個くらいフォルダに入っています。毎週増えます。 Application.ScreenUpdating = True 「エクセル」と「動画」は別世界の存在といった既成概念を、この際一掃しましょう。 エクセルを数値集計以外に使ったらダメだ、というのは古い考えです。開発効率の良いエクセルを集計作業の世界から敷居越えして「分析」や「情報共有」       End If >③フォルダを選択すると、①にフォルダ内の画像がすべて貼り付けられる   If fName <> "." *表示する画像のサイズを変えたい場合(今は横320x縦240です) 画像をセルに合わせて拡大させたくない場合; 3. フォルダにその商品名をつけた画像がまとまっています。 この『列』である 1(A列) や 2(B列) を変更すれば良いです。  Dim k As Long, m As Long シート1のA1セルの画像を呼び出すことは可能ですか? Acrobat Readerのヘルプによると、特定ページを開いた状態で、ハイパーリンクを開くには、#page=[ページ数]をハイパーリンクを設定したファイルの後に付ければよいと記載されています。 3.[名前]を定義して、 お客様の許可なしに外部サービスに投稿することはございませんのでご安心ください。, ネット詐欺に遭いました。 厨房器具を注文し代金も支払ったのですが、商品が送られてきません。電話番号も, 大学で出た課題が分かりません。 画像の5番の問題になります。 エクセルを使う授業なのですが、 この問, html初心者です。画像サイズについて。 テーブルの中に、文字と、画像リンクを貼っているのですが画像, http://www.officetanaka.net/excel/function/tips/ …, http://www.geocities.jp/chiquilin_site/data/0505 …, http://hpcgi1.nifty.com/kenzo30/b_cbbs/cbbs.cgi?   ※参考動画では      Filenames(cnt) = fName   Dim r As Range MultiSelect:=True) ExcelでVBE画面(Alt + F11)に下記プログラムをそのままコピペして実行してみてください。 End With Dim PIC As Picture ここで使っているCellsプロパティは マクロはド初心者です。切り貼りくらいしか出来ません。が...続きを読む, 添付画像はこちらで実行した結果です。 エクセルにpdfを挿入する方法を、3つのパターンに分けてご紹介します。状況に応じて使い分けると、作業をより効率的に行うことができます。画像をたっぷり使って、わかりやすく解説します。  全部で3箇所ある "$C$1" と "C1" を好きなセルに変えます。       If Len(fn) > 0 Then   On Error GoTo errHndlr     .Left = r.Left ' 位置:アクティブセルの左側に重ねる End Sub ' MultiSelect:=True) 色々とネット等を見てはいるのですが・・・うまくいきませんでした。 ハイパーリンクしたい画像のファイルネーム:00001.JPG 何か不足している情報がありましたら教えてください。 >>VBAもよく勉強しないで恐縮ですが、 >fn = .Cells(i, 1).Value  "\Image\NoImage.jpg" → "\好きなフォルダ名\好きなファイル名.jpg"  Call BubbleSort_Str(Filenames, True, vbTextCompare)   Dim r As Range ハイパーリンクを設定するセル範囲、画像、または図形を選択します。 2. p = "C:\Users\☆☆☆\Doc...続きを読む, ネットでいろいろ検索し、試してみましたが自分の思うような仕上がりにならず困っています。 シート2のB1セルに、シート1のA1セルにある画像を表示させるにはどうしたらいいですか? |棚番:A1|棚番:A2| 5.4で貼り付けた図の参照先を =画像位置 とする。    Set PIC = Nothing    2)エラー時用のファイル名は「NoImage.jpg」  Dim fName As Variant, ext As String hermosa90254さんが貼り付けておられたURLに書かれていたプログラムを一部修正したものです。    ' 次の貼り付け先を選択(アクティブセルにする)[例:5個下のセル] やってやれなくはありませんが、   Set obj = CreateObject("Shell.Application") _         Set r = .Cells(i, x2) 都度入力方式にしたいなら、変数を使って下記のようにします。 画像を選択すると、画像の四隅に白い が表示されていますので、マウスをのせ ると斜め両方向の矢印が表示されドラッグすると拡大、縮小します。 挿入した写真にハイパーリンクを掛け元写真を表示するようにします。 その方法は、 ExcelでVBE画面(Alt + F11)に下記プログラムをそのままコピペして実行してみてください。    'No. ・B2の「test01」から順に読み込んでもらいたいのにB1の「名」を読み込んでしまうためエラーが生じる。 実際の運用は難しいかもしれません。 その時にスキャナで取り込んで通し番号を付けてある地図を入っているフォルダから自動的に呼んでくるようにはできないでしょうか?  "$A$1" を好きなセルに変えます。  cnt = 0 'カウントの初期値     ret = obj.Items.Item.Path & "\" strFilter = "画像ファイル(*.jpg;*.jpeg;*.gif;*.bmp;*.png),*.jpg;*.jpeg;*.gif;*.bmp;*.png" ハイパーリンクのように他に飛んで表示させるのではなく、エクセルのその場所に表示させたいのです。(1支店分をA4用紙で印刷したいので) わかりにくい文章ですみません。 ------------------------, VLOOKUPで画像を変えたい  For j = 1 To Int(m / 4) + Abs(m Mod 4 > 0) .Placement = xlMove ' 移動するがサイズ変更しない  '貼り付け最初のセル     For i = 2 To .Cells(.Rows.Count, 2).End(xlUp).Row Step 6 hermosa90254さんが貼り付けておられたURLに書かれていたプログラムを一部修正したものです。 ----------------...続きを読む, VBA初心者です。エクセルで商品カタログを作るため、品番に紐付いた商品画像ファイルをエクセル上に読み込む方法は他の回答から分かったのですが(http://oshiete1.goo.ne.jp/qa2880877.html)、見る限り「1シート=1商品」というものしか見つけられませんでした。同シート上に2つ以上の「品番⇒画像」という表示をするためのVBAはどのように組めばよろしいでしょうか? Excelで複数の地区の管理をしています。         .Top = r.Top + n / 2 ' マクロ実行中の画面描写を停止 Sub try3()    Exit Sub よろしくお願いします。, 検索すればそこかしこに情報があると思います。           End With エクセルにハイパーリンクで貼り付けた画像を通常の埋め込み画像に変換したいのですが、方法が分かる方がいましたらご教授ください。エクセルは2013です。よろしくお願いしますハイパーリンクで貼り付けた画像ということは、 画像ファ 参考までにアプローチ例の概略を。