Excel插入图片到单元格中心并设置移动和大小 – 单元格正在改变，它们不是固定的

我正在尝试将图片插入到我的销售概述中。 我在网上寻找答案，但我找不到任何简单的解决scheme…

我有以下代码：

ActiveSheet.Shapes.AddPicture Filename:=picturefilename, LinkToFile:=msoFalse, _ SaveWithDocument:=msoCTrue, Left:=picturecell.Left, Top:=picturecell.Top, Width:=75, Height:=75 

事情是细胞不固定，这是一个长的循环，每次的位置将是不同的，此外细胞比图片更宽。

如何将图片居中放置在单元格中，并更改设置以便在不select形状的情况下移动和设置单元格的大小？ 因此，不使用“select”，因为图片数量不固定，每次都会有所不同：

 Selection.Placement = xlMoveAndSize 

要么

 Selection.ShapeRange.IncrementLeft (picturecell2.Width - Selection.ShapeRange.Width) / 2 

Answer 1

在顶部宣布这一点

 Dim Shp As Shape 

然后使用Shp对象。 例如

 Set Shp = ActiveSheet.Shapes.AddPicture(Filename:=picturefilename, _ LinkToFile:=msoFalse, _ SaveWithDocument:=msoCTrue, _ Left:=picturecell.Left, _ Top:=picturecell.Top, _ Width:=75, _ Height:=75) 

您可以创build可用于“左”，“顶”，“高度”和“宽度”的variables，并将其包括在循环中。