Excel-将图像添加到单元格

Question

我需要在一列单元格的右上角插入图像。 Domenic在此处给出的代码： Excel-Insert images from folder into cells 左上角的效果很好。 我需要进行哪些更改才能将图像移到右上角？ 图像具有不同的宽度尺寸。 我尝试更改以下行

.Left = rngCell.Left

到

.Left = rngCell.Left + rngCell.Width - .Width

但是图像未对齐。第一个位于右上角，其他的则位于其单元中的不同位置。

Answer 1

更改此部分：

With objPic
    .Left = rngCell.Left
    .Top = rngCell.Top
    .Height = rngCell.RowHeight
    .Placement = xlMoveAndSize
End With

收件人：

With objPic
    .Height = rngCell.RowHeight
    .Left = rngCell.Left + rngCell.Width - objPic.Width
    .Top = rngCell.Top
    .Placement = xlMoveAndSize
End With