マクロを使用してExcelに画像を挿入する方法
このFAQでは、写真を表示するために、このマクロをスプレッドシートに適用する手順について説明します。
マクロを使用してExcelに画像を挿入する
マクロを使用して画像を挿入するには、次の前提条件から始める必要があります。画像名は、Bから始まるB列にあります。 あなたはそれぞれの絵を異なる場所に貼り付けたいのです。 列Bで識別されたピクチャを貼り付ける場所は、列CのC2から始まります。では、次のコードを入力してください。
サブピクチャー（）文字列として薄暗いpicname
整数ペーストとして
Dim lThisRow As Long
lThisRow = 2
間にする（Cells（lThisRow、2） ""）
'範囲（ "A6"）を選択します'画像が挿入される場所です。
pasteAt =セル数（lThisRow、3）
セル（pasteAt、1）。「これは、画像が挿入される場所です。」を選択します。
'暗黙のpicnameを文字列として
'picname = Range（ "B6"）'これは写真の名前です
picname = Cells（lThisRow、2） 'これは写真の名前です
ActiveSheet.Pictures.Insert（ "C：\ Users \ vbayat \ My Documents \ vidabayat \ re-market \"＆picname＆ ".jpg"）を選択します。
'' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '
'これは写真のサイズを変更します
'' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '
選択あり
'.Left = Range（ "A6"）。左
'.Top = Range（ "A6"）。トップ
.Left = Cells（pasteAt、1）.Left
=セル（pasteAt、1）。
.ShapeRange.LockAspectRatio = msoFalse
.ShapeRange.Height = 100＃
.ShapeRange.Width = 80＃
.ShapeRange.Rotation = 0＃
で終わる
lThisRow = lThisRow + 1
ループ
範囲（ "A10"）を選択します
Application.ScreenUpdating = True
潜水艦
ErrNoPhoto：
MsgBox "写真が見つかりません" '画像が見つからない場合はメッセージボックスを表示します
潜水艦
範囲（ "B20"）を選択します
終了サブ
画像：©マイクロソフト。