excel怎样批量在批注插入图片？ Excel2019怎么在批注中插入图片？
excel\u6279\u6ce8\u6279\u91cf\u5bfc\u5165\u56fe\u7247\u4e00\u3001\u624b\u52a8\u63d2\u5165\u56fe\u7247\u5230\u6279\u6ce8\u7684\u65b9\u6cd5\uff1a
\u2460 \u9009\u62e9\u63d2\u5165\u6279\u6ce8\u7684\u4e00\u4e2a\u5355\u5143\u683c\uff0c\u53f3\u51fb\u3010\u63d2\u5165\u6279\u6ce8\u3011
\u2461 \u9009\u4e2d\u6279\u6ce8\u7684\u8fb9\u6846\uff0c\u53f3\u51fb\u3010\u8bbe\u7f6e\u6279\u6ce8\u683c\u5f0f\u3011
\u2462 \u9009\u62e9\u3010\u989c\u8272\u4e0e\u7ebf\u6761\u3011\u9009\u9879\u5361\uff0c\u8fb9\u6846\u9009\u62e9\u65e0\u8fb9\u6846\uff08\u5426\u5219\u9ed8\u8ba4\u8fb9\u6846\u662f\u9ed1\u8272\uff0c\u5982\u679c\u662f\u4eba\u7684\u7167\u7247\u5c31\u4e0d\u59a5\uff09\uff0c\u989c\u8272\u9009\u62e9\u3010\u586b\u5145\u6548\u679c\u3011
\u2463\u5355\u51fb\u3010\u56fe\u7247\u3011\u9009\u9879\u5361\u2192\u9009\u62e9\u56fe\u7247\u2192\u3010\u6d4f\u89c8\u3011\u2192\u9009\u62e9\u8981\u63d2\u5165\u7684\u56fe\u7247\u2192\u52fe\u9009\u9501\u5b9a\u7eb5\u6a2a\u6bd4 \u2192\u3010\u786e\u5b9a\u3011
\u2464\u8c03\u6574\u6279\u6ce8\u6846\u7684\u5927\u5c0f\u4ee5\u9002\u5e94\u56fe\u7247\u3002
\u52a8\u6001\u6f14\u793a\uff1a
\u4e8c\u3001\u4e00\u952e\u6279\u91cf\u5bfc\u5165\u56fe\u7247\u5230\u6279\u6ce8\u7684\u65b9\u6cd5
\u624b\u52a8\u63d2\u5165\u56fe\u7247\u5230\u6279\u6ce8\u7684\u65b9\u6cd5\u53ea\u9002\u7528\u4e8e\u63d2\u5165\u91cf\u6bd4\u8f83\u5c11\u7684\u60c5\u51b5\uff0c\u56fe\u7247\u591a\u4e00\u70b9\u4f1a\u628a\u4eba\u7d2f\u6b7b\uff0c\u522b\u7740\u6025\uff0c\u5982\u679c\u60a8\u8fd8\u6ca1\u770b\u6211\u524d\u4e24\u5929\u53d1\u7684\u6559\u7a0b\uff0c\u73b0\u5728\u8d76\u7d27\u53bb\u770b\u770b\u53ef\u4ee5\u4e00\u952e\u6279\u91cf\u5bfc\u5165\u56fe\u7247\u5230\u6279\u6ce8\u7684\u65b9\u6cd5\u3002\uff08\u300aExcel\u63d2\u51653000\u540d\u5458\u5de5\u4e00\u4e00\u5bf9\u5e94\u7684\u7167\u7247\uff0c\u539f\u6765\u53ea\u89812\u5206\u949f\uff1f\u300b\u5173\u6ce8\u4eca\u65e5\u5934\u6761EXCEL\u5b66\u4e60\u5fae\u8bfe\u5802\u53ef\u67e5\u770b\uff09
\u7b54\uff1aExcel2019\u8868\u683c\u4e2d\u63d2\u5165\u56fe\u7247\u505a\u6279\u6ce8\uff1a
\u9996\u5148\uff0c\u6253\u5f00\u5236\u4f5c\u597d\u7684\u8868\u683c\uff0c\u6bd4\u5982\u6211\u4eec\u8981\u5728\u6635\u79f0\u8fd9\u4e00\u884c\u91cc\u9762\u63d2\u5165\u76f8\u5bf9\u5e94\u7684\u56fe\u7247\uff1b
\u9009\u62e9\u4e2b\u4e2b\u5355\u5143\u683c\uff0c\u53f3\u51fb\u9f20\u6807\u9009\u62e9 \u63d2\u5165\u6279\u6ce8\uff1b
\u628a\u6279\u6ce8\u6846\u91cc\u7684\u5b57\u6bcd\u5220\u6389\uff0c\u9f20\u6807\u70b9\u51fb\u9009\u62e9\u8fd9\u4e2a\u6846\u7684\u8fb9\u7f18\uff0c\u4f1a\u6709\u4e00\u4e2a\u8bbe\u7f6e\u6279\u6ce8\u683c\u5f0f\uff0c\u9009\u62e9\u989c\u8272\u4e0e\u7ebf\u6761\uff0c\u5728\u989c\u8272\u4e0b\u62c9\u9009\u62e9 \u586b\u5145\u6548\u679c\uff1b
\u7136\u540e\u4f1a\u8df3\u51fa\u53e6\u4e00\u4e2a\u6846\uff0c\u70b9\u51fb\u56fe\u7247\uff0c\u518d\u70b9\u51fb \u9009\u62e9\u56fe\u7247\uff0c\u4e0a\u4f20\u672c\u5730\u4fdd\u5b58\u597d\u7684\u56fe\u7247\uff1b
\u8bbe\u7f6e\u597d\u4e4b\u540e\uff0c\u6211\u4eec\u53ef\u4ee5\u770b\u5230\u5355\u5143\u683c\u7684\u53f3\u4e0a\u89d2\u6709\u4e2a\u7ea2\u8272\u7684\u5c0f\u4e09\u89d2\uff0c\u6211\u4eec\u9f20\u6807\u653e\u5728\u8fd9\u4e2a\u5355\u5143\u683c\u4e0a\uff0c\u6279\u6ce8\u91cc\u7684\u7167\u7247\u5c31\u4f1a\u81ea\u52a8\u663e\u793a\uff0c\u63a5\u4e0b\u6765\u7684\u5355\u5143\u683c\u4e5f\u662f\u4f9d\u6b21\u8fd9\u4e48\u8bbe\u7f6e\u5c31\u597d\u4e86\uff1b
6\u6700\u540e\u628a\u8bbe\u7f6e\u597d\u7684\u6587\u4ef6\u4fdd\u5b58\u5373\u53ef\u3002
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
Excel在批量插入图片插入这个备注的话，可以直接选择有一个插入这个选项，点击，然后选择你的路径，把你所有的图片放进去就可以了 。
批量的话，也不是不可以，
就是利用文件名，比如用数字，因为表是可以自动添加出来的，所以就可以了，
如果在公司给老板做，那么就一个一个的加吧，也不累，否则几分钟弄完了，做啥，玩手机？那……
Sub Macro1()
Dim 单元格
On Error Resume Next
For Each 单元格 In Selection
单元格.AddComment
单元格.Comment.Shape.Fill.UserPicture "D:\图片汇总\" & 单元格.Value & ".jpg"
单元格.Comment.Shape.Height = 200
单元格.Comment.Shape.Width = 200
Next 单元格
End Sub
图片名称要和单元格名称一致，选中要加入图片的名称单元格，然后运行程序，路径自己定义
一般都用Excel插件（方方格子）来批量添加图片批注。
绛旓細1銆侀鍏堟垜浠叏閫夎〃鏍硷紝璋冩暣琛ㄦ牸鐨勫垪瀹借楂樸傜劧鍚庣偣鍑汇愭彃鍏ャ-銆愬浘鐗囥戯紝灏嗗鍏ョ殑鍥剧墖鍏ㄩ儴閫夋嫨鎻掑叆杩涙潵銆傛帴鐫鍦ㄤ笂鏂圭殑鍥剧墖璁剧疆鏍忎腑璁剧疆鍥剧墖鐨勫ぇ灏忓搴︺傜劧鍚庡湪鏈鍚庝竴涓崟鍏冧腑棣栧厛鎻掑叆鍥剧墖銆2銆侀棶棰樹竴锛歟xcel鎵规敞涓浣曟彃鍏ュ浘鐗囨壒娉ㄤ腑鍔犲浘鐗囷細鎻掑叆鎵规敞-鐐瑰嚮鎵规敞杈规绾匡紝鍙抽敭锛岃缃壒娉ㄦ牸寮--绌胯壊涓庣嚎鏉--濉厖...
绛旓細1銆侀鍏堟墦寮闇瑕佺紪杈戠殑Excel琛ㄦ牸锛屽彸閿崟鍑鎵规敞鐨勫洓杈归夋嫨鎵撳紑鈥滆缃壒娉ㄦ牸寮忊濄2銆佺劧鍚庡湪寮瑰嚭鏉ョ殑绐楀彛涓偣鍑绘墦寮鈥滈鑹蹭笌绾挎潯鈥濄3銆佺劧鍚庡湪寮瑰嚭鏉ョ殑绐楀彛涓偣鍑绘墦寮棰滆壊涓殑鈥滃～鍏呴鑹测濄4銆佺劧鍚庡湪寮瑰嚭鏉ョ殑绐楀彛涓偣鍑绘墦寮鍥剧墖涓殑鈥滈夋嫨鍥剧墖鈥濄5銆佺劧鍚庣偣鍑婚夋嫨鎯宠鐨勫浘鐗囷紝鐐瑰嚮鎵撳紑銆6銆佺劧鍚庡氨鍙互娣诲姞...
绛旓細1銆佺偣鍑诲姛鑳藉尯鈥滃闃-鏂板缓鎵规敞鈥濋紶鏍囧彸閿崟鍑绘壒妗嗚竟妗嗚繘鍏モ滆缃壒娉ㄦ牸寮忊濓紝鍦ㄩ鑹蹭笌绾挎潯涓嬭缃鑹诧紝閫夋嫨鈥滃～鍏呮晥鏋溾濓紝杩涘叆鍚庤缃浘鐗囥2銆侀鍏堟墦寮excel琛ㄦ牸锛屽湪琛ㄦ牸閲岄潰鍏堢紪杈戝ソ鏂囨。锛岄変腑闇瑕鎻掑叆鍥剧墖鐨勮〃鏍笺傜劧鍚庣偣鍑昏彍鍗曟爮鐨勮鍜屽垪锛岄夋嫨琛岄珮銆傜劧鍚庡湪璺冲嚭鐨勮楂樻閲岋紝杩欎釜鏄斁鍥剧墖琛ㄦ牸鐨勯珮搴︼紝涓鑸竴...
绛旓細1銆侀変腑瑕佹彃鍏ユ壒娉ㄧ殑鍗曞厓鏍硷紝鍙抽敭锛岄夋嫨銆愭彃鍏ユ壒娉ㄣ戯細2銆佸湪鎵规敞杈规涓婄偣鍑诲彸閿锛屾敞鎰忥細涓瀹氭槸閫変腑鎵规敞鐨勮竟妗嗭紝鐒跺悗鐐瑰嚮榧犳爣鍙抽敭锛岄夋嫨銆愯缃壒娉ㄦ牸寮忋戯細3銆併愯缃壒娉ㄦ牸寮忋戔斺斻愰鑹蹭笌绾挎潯銆戔斺斻愬～鍏呫戔斺斻愬～鍏呮晥鏋溿戯細4銆併愬～鍏呮晥鏋溿戔斺斻愬浘鐗囥戔斺斻愰夋嫨鍥剧墖銆戯細5銆侀夋嫨銆愭祻瑙堛戯細6銆侀...
绛旓細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)...
绛旓細鍦EXCEL涓鎵惧埌鈥滄彃鍏モ濇寜閽 鍦ㄦ彃鍏ヤ腑鎵惧埌鈥滃浘鐗団濇寜閽 鍦ㄥ浘鐗囦笅鎷夎彍鍗曚腑 鎵惧埌浣犻渶瑕鎻掑叆鍥剧墖鐨勬潵婧愶紱姣斿鎻掑叆鏈湴鍥剧墖 鎵惧埌鐩爣鏂囦欢澶 鐒跺悗鎸変綇鈥淐TRL鈥+榧犳爣宸﹂敭锛岄夋嫨闇瑕佹坊鍔犵殑鍥剧墖锛屽彲瀹炵幇澶氫釜鍥剧墖閫夋嫨锛屽涓浘鐗囧悓浜鎵归噺鎻掑叆 甯屾湜浠ヤ笂瀵规偍鏈夋墍甯姪锛屾湜閲囩撼 ...
绛旓細1銆侀鍏堬紝鎴戜滑鎵撳紑鎴戜滑鐢佃剳涓婇潰鐨excel锛岀劧鍚庢垜浠彸鍑讳换鎰忎竴涓崟鍏冩牸锛屼箣鍚庢垜浠偣鍑鎻掑叆鎵规敞锛2銆佺劧鍚庢垜浠変腑鎵规敞鐨勮竟妗嗭紝鐒跺悗鍙冲嚮閫夋嫨璁剧疆鎵规敞鏍煎紡锛3銆佷箣鍚庢垜浠偣鍑荤嚎鏉″拰棰滆壊锛岀劧鍚庣偣鍑婚鑹茶竟涓婄殑涓嬫媺绠ご锛屽脊鍑虹殑鐣岄潰锛屾垜浠偣鍑诲～鍏呮晥鏋滐紱4銆佸脊鍑虹殑鐣岄潰锛屾垜浠偣鍑诲浘鐗囷紝鐒跺悗鐐瑰嚮閫夋嫨鍥剧墖锛5銆佸脊鍑虹殑鐣岄潰锛...
绛旓細1銆侀鍏堝湪琛ㄦ牸鐨勫崟鍏冩牸涓彃鍏ヤ竴寮犲浘鐗囷紝澶у皬绗﹀悎鍗曞厓鏍肩殑澶у皬銆2銆侀夋嫨璇ュ浘鐗囩殑鍗曞厓鏍肩┖鐧藉锛屽彸鍑婚紶鏍囷紝閫夋嫨鎻掑叆鎵规敞銆3銆佸皢鎵规敞妗嗗唴鏂囧瓧鍐呭鍒犻櫎锛屽皢榧犳爣绉诲姩鑷虫壒娉ㄦ鍙充晶杈圭晫涓婏紝鍙冲嚮榧犳爣锛岄夋嫨璁剧疆鎵规敞鏍煎紡銆4銆佸湪璁剧疆鎵规敞鏍煎紡瀵硅瘽妗嗕腑锛岄夋嫨棰滆壊涓庣嚎鏉★紝鍦ㄩ鑹查夋嫨涓婄偣寮涓嬫媺鑿滃崟锛岄夋嫨濉厖鏁堟灉銆5銆...
绛旓細鎵撳紑excel琛ㄦ牸锛屽鍥炬墍绀恒傞殢鎰忕偣鍑讳竴涓崟鍏冩牸锛岀偣鍑婚紶鏍囧彸閿紝鐐瑰嚮鈥鎻掑叆鎵规敞鈥濓紝濡傚浘鎵绀恒傘傛妸榧犳爣鏀惧埌鎵规敞杈圭紭锛屽鍥炬墍绀恒傜偣鍑婚紶鏍囧彸閿紝鍦ㄥ脊鍑虹獥鍙ｄ腑鐐瑰嚮鈥滆缃壒娉ㄦ牸寮忊濓紝濡傚浘鎵绀恒傚湪寮瑰嚭绐楀彛锛岀偣鍑烩滈鑹蹭笌绾挎潯鈥濓紝濡傚浘鎵绀恒傜偣鍑烩滈鑹测濆彸渚т笅鎷夎彍鍗曪紝濡傚浘鎵绀恒傜偣鍑讳笅鎷夎彍鍗曚腑鐨勨滃～鍏呮晥鏋溾滐紝濡傚浘...
