排列三试机号今天: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条

发表评论

看不清?点击更换

微信公众号

微信公众号
  • 国税地税合并 将给纳税人带来哪些利好 2018-12-09
  • 中共中央直属机关党校 2018-12-09
  • 《泄密者》提档6.15 终极预告预知真相 2018-12-08
  • 云南富宁壮族珑端节开幕 2018-12-07
  • 【理上网来辉煌十九大】美国学者关注十九大报告:中国将形成新的共识继续推进改革 2018-12-06
  • Xi Jinping le peuple, créateur de lhistoire et véritable héros 2018-12-06
  • 草原旅行地中国国家地理网 2018-12-05
  • “一路书香”大型公益活动 2018-12-05
  • 《春天读诗5》:蒋方舟致敬周梦蝶《我选择》 2018-12-04
  • 新能源汽车产业升级将呈三大变化 2018-12-04
  • 通过医疗,住房,都是乘人之危,太缺德,中国历史上绝无仅有。 2018-12-03
  • 先学别人后自己创造创新,先进口后出口等都是发展的必然。只有这“先”而没有那“后”就发展不了。 2018-12-03
  • “妖”墨奇妙夜 贝利“乌鸦嘴” 2018-12-02
  • 抢抓新旧动能转换重大机遇 明晰高质量发展的日照路径(二) 2018-12-01
  • 今年西安新登记市场主体突破200000户 2018-11-30
  • 925| 533| 901| 954| 341| 305| 622| 667| 510| 253|