[求助]合并单元中插入适应单元大小的图片

LangQueS · 发表于 2008-7-2 01:22

背景情况：附件模块中的代码，是在当前单元插入以当前内容为名称的适应单元大小的图片（图片保存在当前文件夹）

求助内容：上述代码不能适应合并单元格，请修改代码以适应合并单元格使用。谢谢。

7Ex5IYtm.rar (15.63 KB, 下载次数: 767)

taller · 发表于 2008-7-2 01:38

Sub 插入图片到当前单元()    '插入当前单元内容为名称的图片
    Dim MR As Range
    Set MR = Selection
    ActiveSheet.Pictures.Insert(ActiveWorkbook.Path & "\" & MR(1) & ".jpg").Select
    With Selection
        .Top = MR.Top
        .Left = MR.Left
        .Width = MR.Width
        .Height = MR.Height
    End With
End Sub

LangQueS · 发表于 2008-7-2 01:42

我试试看。

非常感谢taller版主，辛苦了！

LangQueS · 发表于 2008-7-2 01:45

可以了，taller版主的代码太好了！

zw1996 · 发表于 2009-6-17 00:15

我试试看。

pxzxzj · 发表于 2009-7-17 09:26

我试了一下，这种代码的话，照片贴上去以后，如果调整单元格的大小，照片大小不会随着变化。能不能更改进一步，单元格大小调整，照片大小也随着调整。

itxianfeng · 发表于 2009-10-4 14:15

感觉图片方面的代码太少了
taller 版主的代码简练又实用，插入的图片还能自动随着单元格的大小而变化

itxianfeng · 发表于 2009-10-4 14:31

原帖由 LangQueS 于 2008-7-2 01:45 发表
可以了，taller版主的代码太好了！

LangQueS版主。我怎么运行以后，出现1004错误
能否你的附件上传过来

LangQueS · 发表于 2009-10-4 19:13

原帖由 itxianfeng 于 2009-10-4 14:31 发表

LangQueS版主。我怎么运行以后，出现1004错误
能否你的附件上传过来

批量插入图片 http://club.excelhome.net/redire ... 050&ptid=334135

itxianfeng · 发表于 2009-10-4 20:38

谢谢版主的回帖，可惜我家里的EXCEL软件出现问题，需要重新安装，打不开附件，明天回单位看看吧。

		自动登录	找回密码
密码			免费注册