需要修改代码以使图片在单元格中居中

Question

这就是我所拥有的。这是通过设置图片的实际大小进行修改的。我只需要将图片居中放置在单元格中

With Range(BCell)

    Set myPict = ActiveSheet.Pictures.Insert(PictureLoc)

    .RowHeight = 125

    .Top = .Top + .Height - .Height / 2
    .Left = .Left + .Width - .Width / 2

End With