如何使用VBA批量在批注里插入图片

/tyじ緣茵ぴ · 发表于 2012-9-30 10:07

请各位高手帮忙！！
如何用VBA批量在批注里插入图片，最好能让图片按原图片比例现实，不希望图片变形失真，图片在电脑E盘上，名称是商品图，之前搜索过很多宏的代码，可以批量插入批注，但就是无法显示图片，不知道是哪里出错了，请各位高手赐教，步骤希望能详细些，无论在哪一列都适用，万分感谢！！！

baigangliao · 发表于 2012-9-30 10:26

提示: 作者被禁止或删除内容自动屏蔽

蓝桥玄霜 · 发表于 2012-9-30 12:07

Sub 批量插入同名照片到批注2()
Dim cell As Range, fd, t, FilePath$
Sheet1.Activate
[b2:b4].Select
Selection.ClearComments
If Selection(1) = "" Then MsgBox "不能选择空白区。", 64, "提示": Exit Sub
Set fd = Application.FileDialog(msoFileDialogFolderPicker) '允许用户选择一个文件夹
If fd.Show = -1 Then
t = fd.SelectedItems(1) '选择之后就记录这个文件夹名称
Else
Exit Sub '否则就退出程序
End If
For Each cell In Selection
FilPath = ThisWorkbook.Path & "" & cell.Text & ".jpg"
If Dir(FilPath) <> "" Then
With cell.AddComment
.Visible = True
.Text Text:=""
.Shape.Select True
Selection.ShapeRange.Fill.UserPicture t & "" & cell.Text & ".jpg"
.Shape.Width = 150
.Shape.Height = 150
.Visible = False
End With
Else
MsgBox "未找到同名的JPG图片！", 64, "提示"
End If
Next
End Sub

复制代码

/tyじ緣茵ぴ · 发表于 2012-10-8 15:55

{:soso_e181:} 谢谢，可以显示了。

ccwan · 发表于 2013-3-1 10:42

本帖最后由 ccwan 于 2013-3-1 10:43 编辑

发错了 {:soso_e113:}

joyark · 发表于 2013-3-12 17:38

本帖最后由 joyark 于 2013-3-12 17:42 编辑

自己常試使用

图片批注工具1.0.part7.rar (439.74 KB, 下载次数: 790)

图片批注工具1.0.part6.rar (683.59 KB, 下载次数: 540)

图片批注工具1.0.part5.rar (683.59 KB, 下载次数: 496)

图片批注工具1.0.part4.rar (683.59 KB, 下载次数: 456)

图片批注工具1.0.part3.rar (683.59 KB, 下载次数: 473)

图片批注工具1.0.part2.rar (683.59 KB, 下载次数: 448)

图片批注工具1.0.part1.rar (683.59 KB, 下载次数: 585)

轩辕依凡 · 发表于 2014-6-1 14:25

蓝桥玄霜发表于 2012-9-30 12:07

没有找到同名照片可不可以跳入下一个不退出程序？

闻启学 · 发表于 2014-6-5 11:31

轩辕依凡发表于 2014-6-1 14:25
没有找到同名照片可不可以跳入下一个不退出程序？

可以啊

改一下代码
For Each cell In Selection
      FilPath = ThisWorkbook.Path & "\" & cell.Text & ".jpg"
      If Dir(FilPath) <> "" Then
         With cell.AddComment
            .Visible = True
            .Text Text:=""
            .Shape.Select True
            Selection.ShapeRange.Fill.UserPicture t & "\" & cell.Text & ".jpg"
            .Shape.Width = 150
            .Shape.Height = 150
            .Visible = False
         End With

      End If

箱包批发 · 发表于 2014-7-3 12:43

批注图片怎么现在在表格的右上角或者右下角

gorun121 · 发表于 2015-6-5 09:54

太棒了，太好用了

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

[已解决] 如何使用VBA批量在批注里插入图片

评分

评分

图片批注工具

baigangliao baigangliao 当前离线性别保密 UID 1254158 阅读权限 0 注册时间 2010-11-9 在线时间小时最后登录 1970-1-1 积分 2437 财富分享技术精华头像被屏蔽 TA的精华主题 TA的得分主题	发表于 2012-9-30 10:26 \| 显示全部楼层 [广告] ★Excel Home云课堂 - 专业的职场技能充电站★ ★Excel三大利器★ ★ 笨办法学VBA全系列★ 提示: 作者被禁止或删除内容自动屏蔽

	回复举报