[已解决]VBA 插入图片

scz467

我现在需要的功能是根据A列的名字，获取到指定目录下的图片（图片名称与A列的名字相同），然后把图片插入到K列

本人没接触过

最佳答案

月排行榜 / 总排行榜

hwc2ycy

2013-2-18 14:51

校长的视频里，有一集就是这个的。先插图形，再设置图形的背景填充。

跳转到最佳答案楼层

hwc2ycy

校长的视频里，有一集就是这个的。先插图形，再设置图形的背景填充。

490540970

Cells(hh, ll + 1).Select
         CurPath = ThisWorkbook.Path '当前路径
         Set MyFile = CreateObject("Scripting.FileSystemObject")
         If MyFile.FileExists(CurPath & "\" & xh & ".JPG") = True Then
            pic = CurPath & "\" & xh & ".JPG"
            ActiveSheet.Pictures.Insert(pic).Select
            Selection.ShapeRange.IncrementTop 3 '下移
            Selection.ShapeRange.LockAspectRatio = msoFalse    '是否锁定纵横比
            Selection.ShapeRange.Height = 92    '高度
            Selection.ShapeRange.Width = 69     '宽度
         Else
            MsgBox "该生相片不存在！"
         End If
这是类似程序的一个插入相片的代码,和你的功能要求相同,可以参考学习的

suye1010

http://www.excelpx.com/thread-294876-1-1.html

这个帖子你也可以参考一下.

scz467

hwc2ycy 发表于 2013-2-18 14:51
校长的视频里，有一集就是这个的。先插图形，再设置图形的背景填充。

有链接可以参考吗？？