- ベストアンサー
※ ChatGPTを利用し、要約された質問です（原文：コメント挿入マクロ挿入位置ずれの件）
エクセルセル内の品番に対し別ファイルに保存してある同じ品番の画像をセルに挿入するマクロの方法
このQ&Aのポイント
- エクセル2007でウインドウズ7を利用しています。セル内の品番に対し別ファイルに保存してある同じ品番の画像をセルに挿入するマクロを作成したのですが、品番を記載したセルからずれた位置に画像が挿入されてしまいます。
- 現在は全画像を選択して移動する方法で対応していますが、画像が数百枚あるため時間がかかってしまいます。品番が記載されたセルに画像を挿入する方法を教えていただけませんか。
- 以下のマクロを使用しています。 Sub 画像挿入() Dim 対象セル As Range For Each 対象セル In Selection If Dir("C:\画像\" & 対象セル.Value & ".jpg") <> "" Then '該当するファイルがあれば ActiveSheet.Pictures.Insert("C:\画像\" & 対象セル.Value & ".jpg").Select Selection.ShapeRange.LockAspectRatio = msoFalse Selection.ShapeRange.Height = 対象セル.Height Selection.ShapeRange.Width = 対象セル.Width Selection.ShapeRange.IncrementLeft 対象セル.Left Selection.ShapeRange.IncrementTop 対象セル.Top End If Next 対象セル End Sub
- sap2060
- お礼率100% (1/1)
- Visual Basic
- 回答数1
- ありがとう数2
- みんなの回答 （1）
- 専門家の回答
質問者が選んだベストアンサー
>Selection.ShapeRange.IncrementLeft 対象セル.Left >Selection.ShapeRange.IncrementTop 対象セル.Top IncrementLeft,Topは移動距離のことでは？ で、セルと同じ,Left,Topプロパティを使って以下のようにしてみてください。 Selection.ShapeRange.Left = 対象セル.Left Selection.ShapeRange.Top = 対象セル.Top 以上ｄす。
お礼
myRange 様 御礼が遅くなり申し訳ございません。ご指摘のとおり変更すると思うようにセルに挿入できました。 ありがとうございます。作業時間が大幅に削減できました。 もっと学習して早く自分でマクロが組めるよう努力します。