Question

excel用VBA插入图片不能指定单元格，代码如下：

Range("Q13").Select
ActiveSheet.Pictures.Insert("E:\个人文件\pic\button.jpg")

但是插入的图片一直都在左上角，为什么呢？

Answer 1

    PicPath = "E:\个人文件\pic\button.jpg"
    If Dir(PicPath) <> "" Then
      Set MyShape = .Shapes.AddPicture(PicPath, False, True, 6, 6, 6, 6)
      Set Picrng = Range("Q13")
        With MyShape
             .LockAspectRatio = msoFalse
             .Top = Picrng.Top + 1
             .Left = Picrng.Left + 1
             .Width = Picrng.Width - 1
             .Height = Picrng.Height - 1
             .TopLeftCell = ""
        End With
     Else
    Range("Q13") = "暂无照片"
  End If