使用宏插入图片如何固定图片大小

蓝桥玄霜

manbuhaibian 发表于 2014-7-16 14:01
老师，您设计的这个代码，单击导入图片后，照片都堆在一起了。并没有与名称行一一对应。请问是什么原因。

是用我的附件吗？

yyll4

蓝桥玄霜 发表于 2012-10-30 19:30

好用111111111111111111

mhps159357

处理数据联系QQ595213060
新建一个电子表格，把图片和电子表格放一个文件夹里面，将B列调整好高度和宽度，再将代码复制进去运行，第一列显示出图片名字，第二列显示图片
Sub vv()
Dim st$
st = Dir(ThisWorkbook.Path & "\*.jpg")
Do While st <> ""
k = k + 1
Sheets("sheet1").Cells(k, 1) = st
Sheets("sheet1").Shapes.AddPicture ThisWorkbook.Path & "\" & st, True, True, Cells(k, 2).Left, Cells(k, 2).Top, Cells(k, 2).Width, Cells(k, 2).Height
st = Dir
Loop
End Sub