コピペしたら、リンク貼り付けじゃなくなるみたいですね。
ExcelVBA
1Sub test1()
2 Dim rngTarget As Range
3 Dim sFName As String
4
5 sFName = "C:\system2\Desktop\商品A\11111_1401.emf"
6
7 With ActiveSheet.Pictures.Insert(sFName)
8 .CopyPicture
9 .Delete
10 .Parent.Paste
11 End With
12End Sub
とりあえず挿入してから、
位置・大きさを指定してもいいかも?
ExcelVBA
1Sub test2()
2 Dim sFName As String
3 Dim shpPicture As Shape
4 Dim rngTarget As Range
5 Const cMargin As Double = 2
6
7 sFName = Application.GetOpenFilename("画像,*.jpg", , "画像ファイルの選択")
8 If sFName = "False" Then Exit Sub
9 Set rngTarget = ActiveSheet.Range("K15").MergeArea
10
11 Set shpPicture = rngTarget.Worksheet.Shapes _
12 .AddPicture(Filename:=sFName, _
13 LinkToFile:=msoFalse, _
14 SaveWithDocument:=msoTrue, _
15 Left:=0, Top:=0, Width:=-1, Height:=-1)
16 With shpPicture
17 .LockAspectRatio = msoTrue
18 .Top = rngTarget.Top + cMargin
19 .Left = rngTarget.Left + cMargin
20 .Height = rngTarget.Height - cMargin * 2
21 End With
22End Sub
もちろん事前に計算しておくのもありですね。
(縦横の寸法を計算するのが面倒なので、
LockAspectRatio = msoTrue
として、後で、縦か横か基準を決める方がいいですかね。)
あと、
セルに合わせてセットすると、
罫線が隠れるので、微妙にずらすことも考える必要がありそうです。
参考URL>>
https://www.moug.net/tech/exvba/0120020.html
http://officetanaka.net/excel/vba/tips/tips174.htm
バッドをするには、ログインかつ
こちらの条件を満たす必要があります。