排列三试机号今天:Excel照片提示功能 单元格批量插入批注图片提示

排列3app下载 www.jc4rb.com.cn Excel照片提示功能 单元格批量插入批注图片提示

很多同学在用Excel制作一些产品价格表或者人事部门的人员名单的时候,都会在姓名或名称后面的一个单元格中添加一张照片给予提示,这样可以很好的辨认该名称对应的照片。

当然,除此之外,今天,小汪老师也来教大家一种好方法,直接使用批注功能插入图片提示,好处是,不必占用单元格,也不用为调整图片的大小而麻烦。这样设置的话,我们以后只要将光标放到名称单元格上面,就会显示对应的照片提示,是不是很酷!
 

效果预览

将鼠标移动到某名称单元格上,就能在提示中出现该名称对应的图片。

Excel照片提示功能 单元格批量插入批注图片提示
 

照片提示功能

选中需要添加照片提示的单元格,然后右键「插入批注」,右键选中批注边框的边缘,在弹出的额下拉菜单中选择「设置批注格式」-「颜色与线条」-「颜色」-「填充效果」-「图片」-「选择图片」即可插图。

Excel照片提示功能 单元格批量插入批注图片提示
 

用VBA批量插入照片提示

右键Sheet,选择「查看代码」将下列代码复制进去,然后选中需要添加照片提示的所有单元格,点击「运行」按钮,运行代码。

提示:

1、将图片放到与本表格同一目录下的「图片目录」文件夹中。
2、选中要添加图片批注的单元格。

代码:

Sub 批量插入图片批注提示()
Dim a
a = MsgBox("提示:1、请将图片放到与本表格同一目录下的「图片目录」文件夹中。2、请选中要添加图片批注的单元格。", vbOKCancel, "Word联盟")
If a = 1 Then
On Error Resume Next
Dim MR As Range
Dim Pics As String
For Each MR In Selection
  If Not IsEmpty(MR) Then
    MR.Select
    MR.AddComment
    MR.Comment.Visible = False
    MR.Comment.Text Text:=""
    MR.Comment.Shape.Fill.UserPicture PictureFile:=ActiveWorkbook.Path & "\图片目录\" & MR.Value & ".jpg"
End If
Next
End If
End Sub

Excel照片提示功能 单元格批量插入批注图片提示

  • 关注微信关注微信

猜你喜欢

最新评论:0条

发表评论

看不清?点击更换

微信公众号

微信公众号
  • 五峰山跨江线路相关新闻 2019-02-19
  • 我老张工经历过中国计划经济时代,实践过计划经济,岂能不知计划经济?!现在的市场经济,我也有了实践感受。比较之,深感计划经济是适合社会主义的,而市场经济是不适合社 2019-02-19
  • 董卿白岩松朱广权 看看央视主持人大学就读啥院系 2019-02-18
  • 儿子变全能暖男 海清晒儿子手工包礼物爱意满满 2019-02-18
  • 回复@老老保老张工:真没兴趣理你这种老蚕!别粘着咱把你自己搞得像块牛皮癣似的! 2019-02-17
  • 比利时VS巴拿马首发公布 卡拉拉斯、维特塞尔中超双子星在列 2019-02-16
  • 社会主义是从私有制走向公有制,直至共产主义的到来。 2019-02-15
  • 双色球068期:头奖3注1000万 奖池9亿 2019-02-15
  • 谈判与加关税的不同在于,后者没有给小左唱赞歌的机会 2019-02-14
  • 人民网驻厦门记者报道集(无效) 2019-02-14
  • 鲜琦:感恩父亲节,永远难忘父亲这首歌(5) 2019-02-13
  • Саммит ШОС 2019-02-13
  • 5月份海南经济运行总体稳定向好 工业生产恢复性增长 2019-02-12
  • 世界杯开赛以来最大一单:外卖小哥送300瓶啤酒驰援球迷Party 2019-02-11
  • 首届典型违法广告形式漫画大奖赛开赛了 2019-02-11
  • 927| 641| 754| 588| 955| 52| 561| 831| 178| 470|