在工作表中批量插入同一文件夹下图片到单元格中并对准

joyark

有人帮我将19楼的问题处理一下么？谢谢。

bmdsjxyw

好好研究一下这帖子

appledy

我运行了8楼的代码，为什么图片和文件名在一个单元格里？。
我想文件名在前面，图片在后面，怎么哪里改？

mgsdc

谢谢分享，先看一下，如果不会用再联系你····

lpzxhjp

香川群子 发表于 2010-9-7 16:37
Sub 单元格自动插入图片()
    Pf = "ai,"
    Pf = Pf & "bmp,bmz"

香川老师，你好！你8楼的代码，怎样实现当插入单元格的图片高度设定为60时，插入图片的行高也自动变为60，并且图片自动按原图片的高宽比缩放后插入到单元格。
我用了取最小高宽比的方法得到的图片却明显小了。

香川群子

lpzxhjp 发表于 2012-11-14 08:41
香川老师，你好！你8楼的代码，怎样实现当插入单元格的图片高度设定为60时，插入图片的行高也自动变为60， ...

【香川老师，你好！你下面帖子8楼的代码，怎样实现当插入单元格的图片高度设定为60时，插入图片的行高也自动变为60，并且图片自动按原图片的高宽比缩放后插入到单元格。】

最好上个简单的附件。
Excel工作表和1-2张图片。 模拟需要的效果。


或者，简单的代码如下：
ActiveCell.RowHeight = 60 '设置插入图片的单元格的行高为60

ActiveSheet.Pictures.Insert(PicPath & PicName).Select '插入图片
With Selection
    .ShapeRange.LockAspectRatio = msoTrue '设置图片比例不变
    .Top = ActiveCell.Top '设置图片顶点位置和单元格位置相同
    .Left = Rng.Left + (Rng.Width - .Width) / 2
    '设置图片左位置为单元格宽度-图片宽度的差的一半以便置中
End With
            

以上代码未经调试。

wenwen000424

作个记号，学习一下。

香川群子

appledy 发表于 2011-11-14 19:19
我运行了8楼的代码，为什么图片和文件名在一个单元格里？。
我想文件名在前面，图片在后面，怎么哪里改？

有具体问题请上附件。

ActiveCell = Filename '这一句是把文件名写入当前单元格

如果要把文件名写在前面，那么改成：
ActiveCell.Offset(-1) = Filename '文件名写在图片上面的单元格里

ActiveCell.Offset(, -1) = Filename '文件名写在图片左面的单元格里

真的好想你

香川群子老师，能否做到输入一个人的姓名或其他信息就直接从图片库中调入其照片到指定位置。（图片库中照片与其人的姓名或其他信息相对应）

banjinjiu

建议楼主把代码封装在excel再上传，谢谢了