EXCEL vba插入自动调整图片
发布网友
发布时间：2022-04-26 20:45
共2个回答
热心网友
时间：2023-10-04 12:45
方法：
sub 图片导入
dim s as shape
dim rg as range
'删除已有的图片
for each s in activesheet.shapes
if s.type <> 8 then
s.delete
end if
'导入图片
for each rg in range("B2:B10")'这里放要插入图片的单元格范围 B2:B10可以改成你所需要的范围
activesheet.shapes.addshape(msoshaperectangle,rg.left,rg.top,rg.width,rg.height).select
selection.shaperange.fill.userpicture "E:\图片"& rg.offset(0, -1) & ".jpg"'这里指定的是图片的存储路径为E盘下的图片文件夹，然后图片名称与A列的数据一致，后缀名为JPG格式。这些你都可以自行更改。根据需要来定
next rg
end sub
热心网友
时间：2023-10-04 12:45
这句 Set Picrng = ActiveCell 本身就是插入的图片大小和位置随单元格而变
不留缝隙该这几句如下：
.Top = Picrng.Top
.Left = Picrng.Left
.Width = Picrng.Width
.Height = Picrng.Height追问第二个问题解决了，但是第一个，插入的图片不会随单元格放大缩小或者隐藏而变化的，只能手动去图片属性里面去调整图片位置选项里面的 图片大小和位置随单元格而变，请问能通过Selection.Placement = xlFreeFloating类似的修改吗？代码不知道怎么加
