咔片PPT · AI自动生成演示文稿，模板丰富、排版精美 讯飞智文 · 一键生成PPT和Word，高效应对学习与办公

内容导航：


一、excel如何添加图片批注


在Excel表格中经常会插入文字批注，那么今天来介绍如何插入图片批注

工具/原料

  • Excel2013版本以上

    • 方法/步骤

  • 在需要插入图片批注的单元格点击右键

    请点击输入图片描述

  • 点击插入批注

    请点击输入图片描述

  • 删除批注框中的内容

    请点击输入图片描述

  • 选中批注框点击右键“设置批注格式”

    请点击输入图片描述

  • 点击颜色与线条，点击颜色中的下拉选项，“填充效果”

    请点击输入图片描述

  • 点击图片，点击“选择图片”

    请点击输入图片描述

  • 电脑中选择要上传的图片批注，上传

    请点击输入图片描述

  • 图片批注插入好了

    请点击输入图片描述

    • 注意事项

  • 一定要记得选中单元格点击右键插入批注时，需要删除批注框中的内容



二、如何在excel里的批注里批量添加图片


在excel里的批注里是不可以批量添加图片的，只能一次添加一张，具体步骤如下：

需要准备的材料分别是：电脑、Excel表格。

1、首先打开需要编辑的Excel表格，右键单击批注的四边选择打开“设置批注格式”。

2、然后在弹出来的窗口中点击打开“颜色与线条”。

3、然后在弹出来的窗口中点击打开颜色中的“填充颜色”。

4、然后在弹出来的窗口中点击打开图片中的“选择图片”。

5、然后点击选择想要的图片，点击打开。

6、然后就可以添加图片了。



三、excel怎样批量在批注插入图片


Sub pztp()

On Error Resume Next

Dim c As Range, P$, i&, a$, b$, arr, w!

P = "F:唐狮图片唐狮图片"

For Each c In Range([c2], Cells(Rows.Count, 3).End(3))

With c

.ClearComments

.AddComment

.Comment.Shape.Fill.UserPicture P & .Value & ".jpg"

a = get_file_dim(P & .Value & ".jpg")

For i = 1 To Len(a)

If Mid(a, i, 1) Like "[0-9x]" Then

b = b & Mid(a, i, 1)

End If

Next

arr = Split(b, "x")

b = ""

w = 200 '设置图片宽度

.Comment.Shape.Width = w

.Comment.Shape.Height = Val(arr(1)) / Val(arr(0)) * w

End With

Next

End Sub

Function get_file_dim(ByVal filepath As String)

arr = [{161,162,163,164,31}]

Dim brr(), sz, i As Byte

ReDim brr(1 To UBound(arr))

Set ObiFolder = CreateObject("shell.Application").Namespace(Left(filepath, InStrRev(filepath, "")))

For i = 1 To UBound(arr)

sz = ObiFolder.getdetailsof(ObiFolder.Items.Item(Right(filepath, Len(filepath) - InStrRev(filepath, ""))), arr(i))

If sz Like "*[0-9] x [0-9]*" Then

get_file_dim = sz

Exit For

End If

Next i

End Function