根据姓名批量插入照片

oklao5

根据花名册表中的姓名，相应地 把D盘文件夹中test中照片【有jpg和png格式】，批量插入到表中。

敬请大神 VBA代码怎么写，十分感谢！

limonet

新版函数=IMAGE(
最方便。

feilanga

...........

oklao5

老师，插入的照片缩放在单元格里且居中，或插入的照片随单元格大小而相应变动，代码怎么写呀？

oklao5

feilanga 发表于 2024-11-12 11:08
...........

老师好，插入的照片缩放在单元格中且居中（左、顶、宽、高怎么设置），或插入的照片随单元格变化而变化，代码怎么写呀？

oklao5

老师好，插入的照片缩放在单元格中且居中（即照片左、顶、宽、高怎么设置），代码怎么写？

usedrange

。。。。。。。。。。

oklao5

如果照片都是jpg格式，以下代码运行错误1004，请帮我修改一下，谢谢
Sub 批量插入图片()
Set fd = Application.FileDialog(msoFileDialogFolderPicker)
fd.Show
文件夹 = fd.SelectedItems(1)  'SelectedItems获取多个文件夹集合
For Each ss In Range("a1", Cells(Rows.Count, 1).End(xlUp))
地址 = 文件夹 & "\" & ss.Value & ".jpg"
左 = ss.Offset(0, 1).Left + 2
顶 = ss.Offset(0, 1).Top + 2
宽 = ss.Offset(0, 1).Width + 2
高 = ss.Offset(0, 1).Height + 2
ActiveSheet.Shapes.AddPicture 地址, 1, 1, 左, 顶, 宽, 高
Next
End Sub

yangfx16900

oklao5 发表于 2024-11-12 11:50
老师好，插入的照片缩放在单元格中且居中（左、顶、宽、高怎么设置），或插入的照片随单元格变化而变化， ...

全部选中图片，在格式属性中设置成“大小位置随单元格而变”

xbox1210

练习一下。