Note: The other languages of the website are Google-translated. Back to English

Excelで複数の画像を挿入して一度にサイズを変更するにはどうすればよいですか?

XNUMX枚の画像をExcelに挿入するのは簡単ですが、時間を節約するために一度に複数の画像を挿入する必要がある場合は、どうすればよいでしょうか。


複数の画像を挿入し、画像の挿入機能によってそれらをまとめてサイズ変更します

Excelの(挿入)画像機能を使用して複数の画像をまとめて挿入し、同時にサイズを変更できます。 次のようにしてください。

1。 ワークシートで、をクリックします インセット > 画像.

2。 [画像の挿入]ダイアログで、挿入する画像が含まれているフォルダを開き、必要に応じて複数の画像を選択して、[ インセット ボタン。 スクリーンショットを参照してください:
注意: ホールディング Ctrlキー キーを押すと、隣接していない複数の画像をXNUMXつずつクリックして選択できます。 ホールディング シフト キーを押すと、最初の画像と最後の画像をクリックして、隣接する複数の画像を選択できます。

これで、画像がまとめて挿入され、ワー​​クシートに積み重ねられます。

3。 これらの画像を選択したままにし、両方に新しい番号を入力して一括でサイズを変更します 及び 身長 のボックス サイズ グループを フォーマット タブ。 スクリーンショットを参照してください:

これで、挿入されたすべての画像が同時に同じサイズに変更されます。

4。 現在、各画像を個別に手動で適切な場所に移動する必要があります。

注意:何十枚もの写真が積み重なっている場合、場所に合わせて手動で移動するのは非常に時間がかかります。

Excelのセルの内容と一致する複数の画像をバッチ挿入

世界 インポート画像を一致させる Kutools for Excelの機能は、セルの内容に基づいて複数の画像をバッチインポートおよび挿入し、インポートした画像のサイズをセルサイズと同じまたは指定したサイズに簡単に変更できる素晴らしいツールです。


広告一致インポートされた写真01

Kutools for Excel - Excel 用の 300 以上の便利なツールが含まれています。 全機能無料トライアル 30-day、クレジットカード不要! 今すぐ入手

OneNoteを使用して、複数の画像を挿入し、それらのサイズを一括で変更します

スタッキング画像をXNUMXつずつ移動しないようにするために、このメソッドでは、OneNoteを使用して複数の画像を挿入する別のトリックが導入されています。 次のようにしてください。

1。 OneNoteを起動し、新しいページを作成します。 そして、 インセット > 画像.

2。 [画像の挿入]ダイアログで、挿入する画像が含まれているフォルダを開き、必要に応じて複数の画像を選択して、[ インセット ボタン。 スクリーンショットを参照してください:
注意: ホールディング Ctrlキー キーを押すと、隣接していない複数の画像をXNUMXつずつクリックして選択できます。 ホールディング シフト キーを押すと、最初の画像と最後の画像をクリックして、隣接する複数の画像を選択できます。

ドキュメントは複数の画像を挿入しますOneNote032

3。 押す Ctrlキー + A キーを押してOneNoteに挿入されているすべての画像を選択し、を押します Ctrlキー + C それらをコピーするためのキー。

4。 Excelでワークシートに移動し、を押します Ctrlキー + V ワークシートに画像を貼り付けるためのキー。 これで、左のスクリーンショットに示すように、すべての画像が垂直に貼り付けられます。

5. 写真のいずれかを選択し、を押します Ctrlキー + A それらすべてを選択するためのキー。 次に、両方に新しい番号を入力して、画像のサイズをまとめて変更します 及び 身長 のボックス サイズ グループを フォーマット タブ。 スクリーンショットを参照してください:

これで、指定したすべての画像がExcelに挿入され、同じサイズにまとめてサイズ変更されます。


VBAコードを使用してExcelに複数の画像を挿入します

次のVBAコードを使用すると、セルごとに複数の画像をExcelファイルに挿入できます。

1。 画像を挿入する宛先範囲の最初のセルを選択します。

2。 を押し続けます Alt + F11 キー、そしてそれは開きます アプリケーション向け Microsoft Visual Basic 窓。

3に設定します。 OK をクリックします。 インセット > モジュール、次のマクロをに貼り付けます モジュールウィンドウ.

Sub InsertPictures()
'Update 20140513
Dim PicList() As Variant
Dim PicFormat As String
Dim Rng As Range
Dim sShape As Shape
On Error Resume Next
PicList = Application.GetOpenFilename(PicFormat, MultiSelect:=True)
xColIndex = Application.ActiveCell.Column
If IsArray(PicList) Then
    xRowIndex = Application.ActiveCell.Row
    For lLoop = LBound(PicList) To UBound(PicList)
        Set Rng = Cells(xRowIndex, xColIndex)
        Set sShape = ActiveSheet.Shapes.AddPicture(PicList(lLoop), msoFalse, msoCTrue, Rng.Left, Rng.Top, Rng.Width, Rng.Height)
        xRowIndex = xRowIndex + 1
    Next
End If
End Sub

4。 次に、 F5 このコードを実行するためのキー。

5。 [開く]ダイアログで、挿入する画像が含まれているフォルダを開き、挿入する複数の画像を選択して、[ 開いた ボタン。 そして、選択したすべての画像が、セルサイズに基づいて選択範囲にインポートされました。 スクリーンショットを参照してください:


複数の画像を挿入し、Kutools forExcelで自動調整します

Kutools for Excelさん 写真をインポートする ユーティリティを使用すると、セルサイズまたは画像サイズに基づいて複数の画像をExcelにすばやく挿入できます。 必要に応じて、画像の高さと幅を指定することもできます。

Kutools for Excel - Excel 用の 300 以上の便利なツールが含まれています。 全機能無料トライアル 30-day、クレジットカード不要! 今すぐ入手

1に設定します。 OK をクリックします。 クツールズプラス > インポート・エクスポート > 写真をインポートする、スクリーンショットを参照してください:

2。 の中に 写真をインポートする ダイアログボックスで、次のようにしてください。
(1)画像の表示順序を 輸入注文 ドロップダウンリスト、あなたは選ぶことができます セルの後にセルを垂直に塗りつぶす or セルの後にセルを水平方向に塗りつぶす.
(2)をクリック 追加 ボタンをクリックして、画像ファイルまたはフォルダを選択し、画像を画像リストに追加します。 そして、選択したすべての写真がリストボックスに表示されます。
(3)をクリックします インポートサイズ ボタン;

3。 今すぐ 画像サイズのインポート ダイアログでは、必要に応じて画像サイズを選択できます。 スクリーンショットを参照してください:

4。 画像サイズを指定後、をクリックしてください OK このダイアログを閉じて、 写真をインポートする ダイアログ、クリック インポート ボタンをクリックして画像をインポートします。

5。 新しい[画像のインポート]ダイアログボックスで、画像を挿入する宛先範囲の最初のセルを選択し、[ OK ボタン。

現在、選択したすべての画像がアクティブセルから垂直または水平にセルに挿入されています。 右のスクリーンショットを参照してください:

世界 写真をインポートする Kutools for Excelの機能は、Excelでセルサイズ、指定されたサイズ、または画像自体のサイズに一致すると同時に画像のバッチを挿入するように設計されています。 無料トライアルを!


Kutools forExcelで名前と一致する複数の画像を挿入します

Kutools forExcelは劇的なサポートもしています インポート画像を一致させる 写真とセルの内容を照合し、一致した画像をExcelに一括で挿入する機能。

Kutools for Excel - Excel 用の 300 以上の便利なツールが含まれています。 全機能無料トライアル 30-day、クレジットカード不要! 今すぐ入手

1。 一致する画像を挿入する画像名セルを選択し、をクリックします クツールズプラス > インポート・エクスポート > インポート画像を一致させる。 スクリーンショットを参照してください:

2。 ポップアウトされた[画像のインポートの一致]ダイアログボックスで、次の手順を実行してください。
(1)画像の表示順序を 輸入注文 ドロップダウンリスト;
(2)をクリック 追加 ボタンをクリックして、画像を画像リストボックスに追加します。 参考までに、一致した写真のみがリストされます。
(3)次にクリックします インポートサイズ ボタン。

3. 今すぐ 画像サイズのインポート ダイアログで、必要に応じて画像サイズを選択し、[ Ok ボタン。 スクリーンショットを参照してください:

4。 今、あなたはに戻ります 写真をインポートする ダイアログ、クリック インポート ボタンをクリックして画像をインポートします。

5.ポップアウトする[画像のインポートの一致]ダイアログで、画像を挿入する宛先範囲の最初のセルを指定して、[ OK ボタン。 スクリーンショットを参照してください:

これまでのところ、すべての画像は相対名に基づいてセルに挿入されています。 右のスクリーンショットを参照してください:

世界 インポート画像を一致させる Kutools for Excelの機能は、Excelユーザーがセル値に基づいて画像をすばやくフィルタリングし、これらの画像をまとめて挿入するのに役立ちます。 さらに、これらの一致した画像は、指定したサイズまたはセルサイズに自動的にサイズ変更できます。 無料トライアルを!


デモ:複数の画像を挿入し、Excelで一度にサイズを変更します

Kutools for Excel Excel 用の 300 以上の便利なツールが含まれており、制限なく無料で試すことができます。 30 日。 今すぐ無料トライアル!      今すぐ購入!


関連記事


最高のオフィス生産性ツール

Kutools for Excelはほとんどの問題を解決し、生産性を80%向上させます

  • 再利用: すばやく挿入 複雑な数式、チャート および以前に使用したものすべて。 セルを暗号化する パスワード付き。 メーリングリストを作成する そしてメールを送る...
  • スーパーフォーミュラバー (複数行のテキストと数式を簡単に編集できます); 読書レイアウト (多数のセルを簡単に読み取って編集する); フィルター範囲に貼り付け...
  • セル/行/列をマージする データを失うことなく; 分割セルコンテンツ; 重複する行/列を組み合わせる...重複セルを防止します。 範囲を比較する...
  • [複製]または[一意]を選択します 行; 空白行を選択 (すべてのセルは空です); スーパーファインドとファジーファインド 多くのワークブックで; ランダム選択...
  • 正確なコピー 数式参照を変更せずに複数のセル。 参照の自動作成 複数のシートに; 箇条書きを挿入、チェックボックスなど...
  • テキストを抽出、テキストの追加、位置による削除、 スペースを削除する; ページング小計の作成と印刷。 セルの内容とコメントを変換する...
  • スーパーフィルター (フィルタースキームを保存して他のシートに適用します); 高度な並べ替え 月/週/日、頻度など。 特殊フィルター 太字、斜体...
  • ワークブックとワークシートを組み合わせる; キー列に基づいてテーブルをマージします。 データを複数のシートに分割; xls、xlsx、PDFをバッチ変換...
  • 300 以上の強力な機能. Office / Excel 2007-2021 および 365 をサポートします。すべての言語をサポートします。 企業や組織に簡単に導入できます。 フル機能の 30 日間無料トライアル。 60日間の返金保証。
kteタブ201905

Officeタブは、タブ付きのインターフェイスをOfficeにもたらし、作​​業をはるかに簡単にします

  • Word、Excel、PowerPointでタブ付きの編集と読み取りを有効にする、パブリッシャー、アクセス、Visioおよびプロジェクト。
  • 新しいウィンドウではなく、同じウィンドウの新しいタブで複数のドキュメントを開いて作成します。
  • 生産性を 50% 向上させ、毎日何百回もマウス クリックを減らすことができます!
officetab下部
コメントを並べ替える
コメント (47)
まだ評価はありません。 最初に評価してください!
このコメントは、サイトのモデレーターによって最小化されました
見出しのある説明:VBAコードを使用して複数の画像をExcelに挿入するのは、非常に迅速で効果的です。 これは、プラグインを購入してインストールするための優れた代替手段です。 これは私の最初のオンラインコメントです!! 称賛!
このコメントは、サイトのモデレーターによって最小化されました
こんにちは、InsertPicturesモジュールを使用でき、jpgまでは正常に動作します。 ただし、PNGでは機能しません。 あなたがアドバイスしていただけますか? よろしく、ローレンス
このコメントは、サイトのモデレーターによって最小化されました
最初のトピック「VBAコードを使用して複数の画像をExcelに挿入する」では、1つのセルに2つの画像を挿入する方法を説明します。 たとえば、最初の画像はセルA3とA4に挿入され、XNUMX番目の画像はセルAXNUMXとAXNUMXに挿入されます。
このコメントは、サイトのモデレーターによって最小化されました
Excelの優れたサポート.....あなたのgyusは本当に時間を節約するのに役立っています。 ありがとう
このコメントは、サイトのモデレーターによって最小化されました
素晴らしい投稿です! しかし、私は同じことをする他の方法を手に入れました..... ==================================== ============ Sub ipic()Dim i As Integer For i = 2 To 10 Cells(i、1).Select Dim picname As String picname = Cells(i、2)ActiveSheet.Pictures。 Insert( "F:\ Ram-PC \ Macro \ MyImage \"&picname& "。jpg")。Select With Selection .Left = ActiveCell.Left .Top = ActiveCell.Top .ShapeRange.LockAspectRatio = msoFalse .ShapeRange.Height = 34#.ShapeRange.Width = 80#End With Next Range( "a1")。EndSubを選択します
このコメントは、サイトのモデレーターによって最小化されました
Mac用のKuttoolsのバージョンはありますか?
このコメントは、サイトのモデレーターによって最小化されました
そのvbaコードを変更して、次のようにグリッドのようなパターンに4つの画像を挿入することは可能ですか:A1のpic1、A2のpic2、B3のpic1、B4のpic2? 戦車!
このコメントは、サイトのモデレーターによって最小化されました
私はそれを行う方法を見つけたことを気にしないでください:)
このコメントは、サイトのモデレーターによって最小化されました
こんにちは、変更されたコードを共有していただけますか?
このコメントは、サイトのモデレーターによって最小化されました
Sub InsertPictures()'Update 20140513 Dim PicList()As Variant Dim PicFormat As String Dim Rng As Range Dim sShape As Shape On Error Resume Next PicList = Application.GetOpenFilename(PicFormat、MultiSelect:= True)xColIndex = Application.ActiveCell.Column If IsArray(PicList)Then xRowIndex = Application.ActiveCell.Row For lLoop = LBound(PicList)To UBound(PicList)Set Rng = Cells(xRowIndex、xColIndex)Set sShape = ActiveSheet.Shapes.AddPicture(PicList(lLoop)、msoFalse、msoCTrue 、Rng.Left、Rng.Top、Rng.Width、Rng.Height)xRowIndex = xRowIndex + 1 Next End If End Sub
このコメントは、サイトのモデレーターによって最小化されました
マージされた列と行を挿入するようにコードを変更するのを手伝っていただけませんか。 Sub InsertPictures()'Update 20140513 Dim PicList()As Variant Dim PicFormat As String Dim Rng As Range Dim sShape As Shape On Error Resume Next PicList = Application.Get OpenFilename(Pi cFormat、MultiSelect:= True)xColIndex=Application.ActiveCell。 Column If IsArray(PicList)Then xRowIndex = Application.Act iveCell.Row For lLoop = LBound(PicList)To UBound(PicList)Set Rng = Cells(xRowIndex、xColIndex)Set sShape = ActiveSheet.Sha pes.AddPicture(PicList(lLoop) 、msoFalse、msoCTrue、Rng.Left、Rng.Top、Rng.Width、Rng.Height)xRowIndex = xRowIndex + 1 Next End If End Sub
このコメントは、サイトのモデレーターによって最小化されました
セルを選択し、必要に応じて幅と高さでサイズを変更します。11枚の写真がある場合は、20140513個以上のセルを選択します。 次にAlt+F1を押し、[挿入]をクリックし、[モジュール]をクリックして、次のコードをそのまま貼り付けます。Sub InsertPictures()'更新5Dim PicList()As Variant Dim PicFormat As String Dim Rng As Range Dim sShape As Shape On Error Resume Next PicList = Application.GetOpenFilename(PicFormat、MultiSelect:= True)xColIndex = Application.ActiveCell.Column If IsArray(PicList)Then xRowIndex = Application.ActiveCell.Row For lLoop = LBound(PicList)To UBound(PicList)Set Rng = Cells( xRowIndex、xColIndex)Set sShape = ActiveSheet.Shapes.AddPicture(PicList(lLoop)、msoFalse、msoCTrue、Rng.Left、Rng.Top、Rng.Width、Rng.Height)xRowIndex = xRowIndex + XNUMX Next End If End Sub AFTER THE上記のコードを押してFXNUMX..次に、コンピュータからファイルを選択します。 必要なものまで。 次に、ワークブックを保存しなかった場合は、保存するように求められます。 すでに保存している場合。 その後、あなたの仕事はこれが役立つことを願っています..アリ.. !!
このコメントは、サイトのモデレーターによって最小化されました
どうもありがとう、それは動作します
このコメントは、サイトのモデレーターによって最小化されました
こんにちはEXcelマスター、私は2枚のExcelシートを持っています。 40を超える写真と、その隣のセルにある写真の説明が含まれているもの。 選択後のもうXNUMX枚のシートには、おそらくXNUMXの説明が残っています。 選択に従って、このシートに写真を転送するにはどうすればよいですか。 ありがとうアル
このコメントは、サイトのモデレーターによって最小化されました
または、image-xlsを直接使用します。 このExcelアドインを使用すると、Excelセルに、またはコメントとして無制限の数の画像を挿入できます。 また、写真のサイズも変更されます。 写真を含むExcelシートを注文してフィルタリングすることができます!
このコメントは、サイトのモデレーターによって最小化されました
私はMacユーザーですが、コードを新しいモジュールにコピーして実行すると、何も起こりません。 VBAコードを実行するためにMacでやらなければならないことはありますか? ありがとう
このコメントは、サイトのモデレーターによって最小化されました
[引用]または直接image-xlsを使用します。 このExcelアドインを使用すると、Excelセルに、またはコメントとして無制限の数の画像を挿入できます。 また、写真のサイズも変更されます。 写真を含むExcelシートを注文してフィルタリングすることができます!アーミンによって[/ quote] [quote]見出しのある説明:VBAコードを使用して複数の画像をExcelに挿入するのは、非常に迅速で効果的です。 これは、プラグインを購入してインストールするための優れた代替手段です。 これは私の最初のオンラインコメントです!! 称賛!RahulGupta著[/ quote]これを試してみましたが、問題なく動作しているようですが、写真を含むExcelリストを並べ替えたりフィルタリングしたりすることはできません。 また、写真は比例してスケーリングされていません。 だから私はimage-xlsを購入しました-少し費用がかかりますが、必要なものはすべてあります
このコメントは、サイトのモデレーターによって最小化されました
こんにちは! 「SubInsertPictures()」がExcel 2003で機能しない理由は何ですか? Microsoft.Scripting.Runtimeへの参照をすでに追加しました。よろしくお願いします。Gilberto
このコメントは、サイトのモデレーターによって最小化されました
それは私にとって非常に役に立ちます。 とてもいい仕事です……ありがとう
このコメントは、サイトのモデレーターによって最小化されました
こんにちは、スプレッドシートのコードを試しましたが、完璧に機能しました。 私がフィルターをしようとするまで。 最後の画像が常にフィルター結果に表示されることを確認します。 誰か助けてくれますか?
このコメントは、サイトのモデレーターによって最小化されました
以下のVBAプログラムを使用すると、結合されたセルに画像を挿入できません。Sub InsertPictures()'Update 20140513 Dim PicList()As Variant Dim PicFormat As String Dim Rng As Range Dim sShape As Shape On Error Resume Next PicList = Application.Get OpenFilename(Pi cFormat 、MultiSelect:= True)xColIndex = Application.ActiveCell.Column If IsArray(PicList)Then xRowIndex = Application.Act iveCell.Row For lLoop = LBound(PicList)To UBound(PicList)Set Rng = Cells(xRowIndex、xColIndex)Set sShape = ActiveSheet.Sha pes.AddPicture(PicList(lLoop)、msoFalse、msoCTrue、Rng.Left、Rng.Top、Rng.Width、Rng.Height)xRowIndex = xRowIndex + 1 Next End If EndSubVBAを変更するようにアドバイスしてください。
このコメントは、サイトのモデレーターによって最小化されました
ねえ、これは素晴らしいです! 私はあなたのチュートリアルをしばらくフォローしています。 あなたが私を助けてくれることを望んでいたのは、これを列の下から行全体に画像を貼り付けることからどのように変更するかです。 そして、その上の行に「完全なファイル名(example_image.jpg)」を追加するにはどうすればよいですか。 行'A':"Filename.jpg"行'B':"画像サムネイル"ありがとう!!
このコメントは、サイトのモデレーターによって最小化されました
ねえ、私は自分のVBEコードを使用して写真を挿入しました。 そして今、私はそれを他の人と共有しようとしましたが、残念ながら彼らは写真を見ることができません.....誰かが私が欠けているものを教えてくれたらありがたいです。 ありがとう
このコメントは、サイトのモデレーターによって最小化されました
このコードALMOSTは私のニーズに合っています。 私は200枚の画像を持っていますが、各画像は独自のシートに配置する必要があります。 どうすればいいですか?
このコメントは、サイトのモデレーターによって最小化されました
次のコードを変更して、同じ列の連続する行の連続するセルではなく、複数の列と行の選択したセル範囲に画像が入力されるようにするにはどうすればよいですか? Sub InsertPictures()'Update 20140513 Dim PicList()As Variant Dim PicFormat As String Dim Rng As Range Dim sShape As Shape On Error Resume Next PicList = Application.Get OpenFilename(Pi cFormat、MultiSelect:= True)xColIndex=Application.ActiveCell。 Column If IsArray(PicList)Then xRowIndex = Application.Act iveCell.Row For lLoop = LBound(PicList)To UBound(PicList)Set Rng = Cells(xRowIndex、xColIndex)Set sShape = ActiveSheet.Sha pes.AddPicture(PicList(lLoop) 、msoFalse、msoCTrue、Rng.Left、Rng.Top、Rng.Width、Rng.Height)xRowIndex = xRowIndex + 1 Next End If End Sub
このコメントは、サイトのモデレーターによって最小化されました
Alguem conseguiu o codigo para a pergunta dele? estou precisandotambém!
ここにはまだコメントが投稿されていません
もっと読む
あなたのコメントを残す
ゲストとして投稿
×
この投稿を評価:
0   文字
推奨される場所

フォローする

著作権©の2009 - WWW。extendoffice.com。 | | 全著作権所有。 搭載 ExtendOffice。 | サイトマップ
MicrosoftおよびOfficeのロゴは、米国MicrosoftCorporationの米国およびその他の国における商標または登録商標です。
SectigoSSLで保護