用代码向指定EXCEL2010插入图片的问题?有什么解决办法?
用这个过程向EXCEL单元格插入图片后为什么存在链接呢?图片所在的文件夹删除或者图片路径改变了就无法在EXCEL中正常显示图片?有什么办法弄成“插入图片”这种永久型的?
Sub Pict(x, y, z As String)
With Sheets("SHEET1").Pictures.Insert(Pict_Selt & z)
.ShapeRange.LockAspectRatio = msoFalse
.Placement = xlMoveAndSize
.ShapeRange.Left = Range(x).Left
.ShapeRange.Top = Range(x).Top
.ShapeRange.Height = Range(x & ":" & y).Height
.ShapeRange.Width = Range(x & ":" & y).Width
End With