Question

我正在尝试将图片插入到我的销售概览中。我在网上寻找答案但是我无法找到任何商品的简单解决方案......

我有以下代码：

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

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

如何将图片置于单元格中心并更改设置以便在不选择形状的情况下使用单元格移动和调整大小？所以不使用＆＃34;选择＆＃34;由于图片数量不固定，每次都会有所不同......：

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)

您可以创建可用于“左”，“上”，“高”和“宽”的变量，并将它们包含在循环中。

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

1 个答案: