当前位置：
文档之家› 工作表中批量插入同一文件夹下图片到单元格中并对准
工作表中批量插入同一文件夹下图片到单元格中并对准
工作表中批量插入同一文件夹下图片到单元格中并对准
8楼代码已经完全改变思路，效率更高更可靠。
本楼代码可以无视，仅作学习参考用。
Sub PicBatchIn()
K = InputBox("请输入插入图片换行数，默认10张", "插入图片换行数", 10) '指定插入满10张图片后换行。当然可以根据需要改成k=5或者k=20之类的。
If K = "" Then K = 1 '如果选择ESC退出输入对话框，则把k值设定为1，即在同一列中按行插入。
Dim r As Range: Set r = ActiveCell '指定当前单元格为开始插入图片的位置。
OpenFile = Application.GetOpenFilename("Picture Files(*.jpg),*.jpg", , "Get Picture from here!") '找到目标文件夹，并随便选取一张jpg图片。
'如果图片格式不是*.jpg，请修改代码，如同下面：
'OpenFile = Application.GetOpenFilename("Picture Files(*.bmp),*.bmp", , "Get Picture from here!") '找到目标文件夹，并随便选取一张bmp图片。
If OpenFile = False Then Exit Sub '如果选择为空或ESC，则结果为错误退出此vba过程。
Application.ScreenUpdating = False '暂停屏幕刷新
L = InStrRev(OpenFile, "\") '查找最后一个文件夹特定字符\
myDir = Left(OpenFile, L) '抽取所选文件夹字符，如"D:\Documents\"
P = Dir(myDir & "*.jpg") '用Dir命令寻找jpg图片。（或改为bmp图片）ActiveSheet.Pictures.Insert (myDir & P) '插入第一张图片
'下面部分代码，是为了找到现在工作表中自动赋值的图片序号
Dim Shp As Shape
For Each Shp In ActiveSheet.Shapes '遍历所有工作表中图形
ShpNm = https://www.doczj.com/doc/df9927627.html, '得到每个图形的名称
PicNo = V al(Mid(ShpNm, InStr(ShpNm, " "), Len(ShpNm))) '查找空格并取其后的数值为图片序号。
If PicNo > m Then m = PicNo '使N变量保持为较大值，直至遍历循环结束，即可找到最大值。
Next
Do While P <> "" '循环直至结束。
r.Cells(1 + n \ k, n Mod k + 1).Select '选择将要插入图片的单元格，并按照指定k参数换行
'即把n除以k以后的整数部分作为换行顺序值，而n对于k的余数部分作为列顺序值。
If U = 0 Then U = 1 Else ActiveSheet.Pictures.Insert (myDir & P) '除第一张以外，每次插入新图片
ActiveSheet.Shapes.Range("图片" & m + n).Select '选择刚才插入的图片，已有图片序号m+新插入数n。
'ActiveSheet.Shapes.Range("Picture " & m + n).Select '在英文版中的代码图片=Picture。
'以下是确定让图片顶部、左侧位置以及图片高、宽对准单元格
With Selection
.Top = r.Cells(1 + N \ K, N Mod K + 1).Top
.Left = r.Cells(1 + N \ K, N Mod K + 1).Left
.ShapeRange.LockAspectRatio = msoFalse '设置图片格式为高宽不按比例变化。
.Height = r.Cells(1 + N \ K, N Mod K + 1).Height
.Width = r.Cells(1 + N \ K, N Mod K + 1).Width
.Placement = xlMoveAndSize '设置图片格式为跟随单元格大小变化。
End With
n = n + 1 '图片序号+1
P = Dir '用Dir命令继续下一张图片，直至内容为空
Loop
Application.ScreenUpdating = True '打开屏幕刷新
r.Select '回到起始单元格。
End Sub
再次提醒，本代码不如8楼的代码好！！！
==========================================
在这里，n \ k 是int(n/k)的简写。
现在的代码，已经解决了同一工作表中，新插入图片序号不为1的问题。
另外，实际上，如果最初把换行列数的k值定为1的话，
宏运行的结果，就可以变成了在同一列里按行排序插入的结果了……
而如果定义的换行k值大于文件夹中图片数量，当然就变成了在同一行里按列插入的结果了。
If U = 0 Then U = 1 Else ActiveSheet.Pictures.Insert (myDir & P) '除第一张以外，每次插入图片对上面这句代码解释如下：
If U = 0 Then
U = 1 ‘处理第一张图片时，不需要再作图片插入，但要做好首件U标记。
Else
ActiveSheet.Pictures.Insert (myDir & P) '如果首件U标记已经不为0时则要插入图片
End If
使用vba批量导入同一文件夹下的图片，并按列排序放置，大小对准单元格。
Sub 单元格自动插入图片()
'选定起始单元格后，按一定行数(1-n)自动往返插入各种格式的图片，
'并在单元格中写入插入图片的名称。
Pf = "ai,"
Pf = Pf & "bmp,bmz"
Pf = Pf & "cdr,cgm,"
Pf = Pf & "dib,dwg,dxf,"
Pf = Pf & "emf,emz,eps,exf,exif,"
Pf = Pf & "fpx,"
Pf = Pf & "gfa,gif,"
Pf = Pf & "hdr,"
Pf = Pf & "ico,"
Pf = Pf & "jfif,jpe,jpeg,jpg,"
Pf = Pf & "pcd,pct,pcx,pcz,pict,png,psd,"
Pf = Pf & "raw,rle,"
Pf = Pf & "svg,"
Pf = Pf & "tga,tif,tiff,"
Pf = Pf & "ufo,"
Pf = Pf & "wdp,wmf,wmz,"
K = InputBox("插入行数，1=按列挿入", "插入行数", 1)
If K = "" Then Exit Sub
Dim Rng As Range: Set Rng = ActiveCell
OpenFile = Application.GetOpenFilename("Picture Files(*.*),*.*", , "打开目标文件夹后选择任一图片即可指定文件夹。或按取消则会将当前文件所在文件夹认作指定文件夹。") If OpenFile = False Then
myDir = ThisWorkbook.Path & "\"
Else
myDir = Left(OpenFile, InStrRev(OpenFile, "\"))
End If
Filename = Dir(myDir)
Application.ScreenUpdating = False
Do While Filename <> ""
If InStr(Pf, LCase(Right(Filename, Len(Filename) - InStrRev(Filename, ".")))) > 0 Then Rng.Cells(1 + n \ K, n Mod K + 1).Select
ActiveCell = Left(Filename, InStrRev(Filename, ".") - 1)
ActiveSheet.Pictures.Insert(myDir & Filename).Select
With Selection
.Placement = xlMoveAndSize
.ShapeRange.LockAspectRatio = msoFalse
.Top = ActiveCell.Top
.Left = ActiveCell.Left
.Height = ActiveCell.Height
.Width = ActiveCell.Width
End With
n = n + 1
End If
Filename = Dir
Loop
Application.ScreenUpdating = True
Rng.Select
End Sub
试验了一下，确实很好用，高手。。。。。但我还有个要求，比如说有两行，第一行是姓名，第二行能不能将按第一行的姓名插入照片（照片以姓名命名），对号入座。谢谢～！
Sub 选择范围后按姓名插入照片()
Dim Rng As Range
Set Rng = Selection
k = MsgBox("Y es=按姓名行下插入，No=按姓名列右挿入,Cancel=直接覆盖插入",
vbY esNoCancel)
If k = vbY es Then
r = 1: c = 0
ElseIf k = vbNo Then
r = 0: c = 1
Else
r = 0: c = 0
End If
Pf = "ai,"
Pf = Pf & "bmp,bmz"
Pf = Pf & "cdr,cgm,"
Pf = Pf & "dib,dwg,dxf,"
Pf = Pf & "emf,emz,eps,exf,exif,"
Pf = Pf & "fpx,"
Pf = Pf & "gfa,gif,"
Pf = Pf & "hdr,"
Pf = Pf & "ico,"
Pf = Pf & "jfif,jpe,jpeg,jpg,"
Pf = Pf & "pcd,pct,pcx,pcz,pict,png,psd,"
Pf = Pf & "raw,rle,"
Pf = Pf & "svg,"
Pf = Pf & "tga,tif,tiff,"
Pf = Pf & "ufo,"
Picformat = Pf & "wdp,wmf,wmz,"
OpenFile = Application.GetOpenFilename("Picture Files(*.*),*.*", , "打开目标文件夹后选择任一图片即可指定文件夹。或按取消则会将当前文件所在文件夹认作指定文件夹。") If OpenFile = False Then
myDir = ThisWorkbook.Path & "\"
Else
myDir = Left(OpenFile, InStrRev(OpenFile, "\"))
End If
Application.ScreenUpdating = False
Filename = Dir(myDir)
Do While Filename <> ""
If InStr(Picformat, LCase(Right(Filename, Len(Filename) - InStrRev(Filename, ".")))) > 0 Then
PicName = Left(Filename, InStrRev(Filename, ".") - 1)
Rng.Select
On Error Resume Next
Selection.Find(What:=PicName, After:=ActiveCell,LookAt:=xlWhole).Activate
If Err.Number <> 0 Then
Err.Clear
Else
ActiveSheet.Pictures.Insert(myDir & Filename).Select
With Selection
.Placement = xlMoveAndSize
.ShapeRange.LockAspectRatio = msoFalse
.Top = ActiveCell.Offset(r, c).Top
.Left = ActiveCell.Offset(r, c).Left
.Height = ActiveCell.Offset(r, c).Height
.Width = ActiveCell.Offset(r, c).Width
End With
End If
End If
Filename = Dir
Loop
Rng.Select
End Sub
"我还有个要求，比如说有两列(有上千行），第一列是姓名，第二列能不能将按第一列的姓名插入照片（照片以姓名命名），对号入座。谢谢～！"
香川群子老师在五楼编的VBA好像是针对行解决问题的！
按某列插入图片最好 ...
这个应该你自己学会去修改参数。
简化版如下：
红色部分参数自己根据需要修改
Sub AutoPicInsert()
Application.ScreenUpdating = False
'自己修改图片所在文件夹吧。（取消了选择对话框）
myDir = "D:\Backup\我的文档\复件\图片\"
'直接引用jpg格式。(取消了39种格式)
Filename = Dir(myDir & "*.jpg")
Do While Filename <> ""
PicName = Left(Filename, InStrRev(Filename, ".") - 1)
On Error Resume Next
Range("B4").EntireColumn.Find(What:=PicName, After:=Range("B4"), LookAt:=xlWhole, SearchOrder:=xlByColumns).Activate
'上面这句红色部分自己根据需要修改吧。现在是从B4开始按列搜索图片名称的意思。
If Err.Number <> 0 Then
Err.Clear
Else
ActiveCell.Offset(0, 4).Select
If ActiveCell <> "" Then GoTo ExtToNext Else ActiveCell = Filename
rt = ActiveCell.Top
rl = ActiveCell.Left
rh = ActiveCell.Height
rw = ActiveCell.Width
ActiveSheet.Pictures.Insert(myDir & Filename).Select
With Selection
.Placement = xlMoveAndSize
.ShapeRange.LockAspectRatio = msoFalse
ph = .Height
pw = .Width
tm = IIf(rh / ph < rw / pw, rh / ph, rw / pw) '取高幅比最小
.Height = .Height * tm
.Width = .Width * tm
.Top = rt + (rh - .Height) / 2
.Left = rl + (rw - .Width) / 2
End With
End If
ExtToNext:
Filename = Dir
Loop
Range("A1").Select
Application.ScreenUpdating = True
End Sub
您在以上的宏，我试了，有这么几点尚不能满足我的要求（其中红色部分的参数修改我基本琢磨清楚了）请帮助：
1.图片好像只能插入四行就不往下走了。
2.插入的图片，改变图片所在单元格的宽度时，图片会随着单元格的大小而变；但是改变单元格的高度时，图片却没有随之变化。希望达到图片随单元格的高度及宽度同时变化。
多次麻烦，实在抱歉！
回答1：
图片如果只能插入4行，就不走下去了，
我猜测可能的原因是：你在文件中的名称和实际文件夹中符合名称的图片，完全符合的只有4个。
回答2：
我目前的代码，考虑到图片的宽和高度最好和原来的比例保持一致。
所以，改变高度时不能完全跟随变化。
只要把代码改成下面这样就行了。
Sub AutoPicInsert()
Application.ScreenUpdating = False
myDir = "D:\Backup\我的文档\复件\图片\"
Filename = Dir(myDir & "*.jpg")
Do While Filename <> ""
PicName = Left(Filename, InStrRev(Filename, ".") - 1)
On Error Resume Next
Range("B4").EntireColumn.Find(What:=PicName, After:=Range("B4"), LookAt:=xlWhole, SearchOrder:=xlByColumns).Activate
If Err.Number <> 0 Then
Err.Clear
Else
ActiveCell.Offset(0, 4).Select
If ActiveCell <> "" Then GoTo ExtToNext Else ActiveCell = Filename
'上面这句的代码是，如果想要插入图片的单元格是空单元格，就插入图片，并写入图片名称。
'而如果已经写入了图片文件名称内容，vba则判断该图片文件已经被用过，不需要重复插入图片。
ActiveSheet.Pictures.Insert(myDir & Filename).Select
With Selection
.Placement = xlMoveAndSize
.ShapeRange.LockAspectRatio = msoFalse
.T op = ActiveCell.T op
.Left = ActiveCell.Left
.Height = ActiveCell.Height
.Width = ActiveCell.Width
End With
End If
ExtToNext:
Filename = Dir
Loop
Range("A1").Select
Application.ScreenUpdating = True
End Sub
有没有办法让插入图片行自动调整到指定行高，而未插入图片行保持原行高？
在代码中增加一句就可以啦
If Err.Number <> 0 Then
Err.Clear
Else
ActiveCell.Offset(0, 4).Select
If ActiveCell <> "" Then GoTo ExtToNext Else ActiveCell = Filename '此处插入一句代码，意思是需要插入图片的行高调整为指定值如=88.
ActiveCell.RowHeight = 87.75
'而未插入图片的行高，则保持原始状态不作改变了。
ActiveSheet.Pictures.Insert(myDir & Filename).Select
改进版，39种图片格式自动导入图片及名称（8楼代码，效率特高）
Sub 单元格自动插入图片()
Pf = "ai,"
Pf = Pf & "bmp,bmz"
Pf = Pf & "cdr,cgm,"
Pf = Pf & "dib,dwg,dxf,"
Pf = Pf & "emf,emz,eps,exf,exif,"
Pf = Pf & "fpx,"
Pf = Pf & "gfa,gif,"
Pf = Pf & "hdr,"
Pf = Pf & "ico,"
Pf = Pf & "jfif,jpe,jpeg,jpg,"
Pf = Pf & "pcd,pct,pcx,pcz,pict,png,psd,"
Pf = Pf & "raw,rle,"
Pf = Pf & "svg,"
Pf = Pf & "tga,tif,tiff,"
Pf = Pf & "ufo,"
Pf = Pf & "wdp,wmf,wmz,"
K = InputBox("插入行数，1=按列挿入", "插入行数", 1)
If K = "" Then Exit Sub
Dim Rng As Range: Set Rng = ActiveCell
OpenFile = Application.GetOpenFilename("Picture Files(*.*),*.*", , "Get Picture from here!")
If OpenFile = False Then
myDir = ThisWorkbook.Path & "\"
Else
myDir = Left(OpenFile, InStrRev(OpenFile, "\"))
End If
Application.ScreenUpdating = False
Filename = Dir(myDir)
Do While Filename <> ""
If InStr(Pf, LCase(Right(Filename, Len(Filename) - InStrRev(Filename, ".")))) > 0 Then Rng.Cells(1 + n \ K, n Mod K + 1).Select
ActiveCell = Filename 'Left(Filename, InStrRev(Filename, ".") - 1)
ActiveSheet.Pictures.Insert(myDir & Filename).Select
With Selection
.Placement = xlMoveAndSize
.ShapeRange.LockAspectRatio = msoFalse
.Top = ActiveCell.Top
.Left = ActiveCell.Left
.Height = ActiveCell.Height
.Width = ActiveCell.Width
End With
n = n + 1
End If
Filename = Dir
Loop
Application.ScreenUpdating = True
Rng.Select
End Sub
如何在EXCEL表格中批量插入对应图片
如何在EXCEL表格中批量插入对应图片学生照片用身份证号命名后，核对是个麻烦事儿，有了这个表格就直观多了。 制作过程如下： 1、粘贴学生信息、输入公式并向下填充 在D2单元格输入公式（复制下面的公式并粘贴到D2单元格中）： ="![](@d:\学生照片\"&C2&".jpg@)
" 公式含意：在该单元格中插入来自d盘:\学生照片文件夹中\C2单元格中数值（身份证号命名的）.jpg图片向下填充 2、在D盘根目录中新建一个名为：学生照片的文件夹，并把全校按身份证号码命名的学生图片复制其中。 这些图片最好批量转尺寸为120×150。太小看不清，太大查看起来不便。 3、打开剪贴板 4、选择公式区域（最好分几次进行，每次不超过200格），并复制到剪贴板（见下图窗口右边）。 （因在公式的状态下，很多操作是不能正常进行的，这一步的目的就是留数据除公式。）
5、点击剪贴板中刚复制的数据，把这些数据又粘贴回来（见下图鼠标箭头）。 6、把公式列中的@替换为"（半角单引号）
7、再选择公式区并将数据复制进剪贴板（不要把第一行学生图片这格选进去） 8、将复制到剪贴板的公式重新粘贴回来（见图中鼠标箭头）。 9、调整行高 行高设为：100－120，视图片大小而定。
10、完成表格进行核对 学生名和照片对应表就做好了，如有张冠李戴，及时更改。 学籍照片处理方法 见：全国中小学学籍平台学生照片处理方法图文详解（按住Ctrl 键用鼠标点击上面的红字打开对应网页） 照片命名成身份证号 见：照片批量命名成身份证号的方法图文详解 （按住Ctrl 键用鼠标点击上面的红字打开对应网页）
表格中画斜线、双斜线、三斜线、四斜线的方法
今天教大家在excel表格中画斜线、双斜线、三斜线、四斜线的方法，下面小编将详细的为大家介绍如何在excel表格中画斜线、双斜线、三斜线、四斜线的方法，具体内容如下： 一、Excel表格中画单斜线 步骤一、首先打卡Excel文档，将需要调整的表格具体稍微拉大一点，如图所示： 步骤二、然后选择单元格，单击鼠标右键，在弹出的下拉菜单中选择【设置单元格格式】，然后在弹出的额窗口中点击上面的【边框】按钮，单击【斜线】选项，然后确定即可。如图所示：
步骤三、在单元格中输入文字，例如我们输入“地区日期”，如图所示： 步骤四、然后我们根据自己输入的内容，利用手动的方法来调整格式，以下小编给大家介绍怎么调整： 1、利用键盘上的(ALT+回车)，然后加空格来调整 2、或者将日期调整为地区的上标，然后使用空格键来调整位置，将其调整到自己想要
的位置即可 如图所示： 二、Excel表格中画双斜线 步骤一、在菜单栏中单击【插入】选项卡，然后在该界面里面的选择【形状】，在弹出的界面中【线条】下面选择【直线】选项。如图所示： 步骤二、利用直线工具在选中的单元格中画出两条直线，如图所示：
步骤三、利用【插入文本框】方式来键入表头斜线中的文字信息。在菜单栏中选择单击【插入】选项卡，选择【文本框】，依次拉出多个文本框出来，然后在文本框中输入文字，接着选中【文本框】单击【格式】，在【形状填充】中选择【无填充颜色】，在【形状轮廓】中选择【无轮廓】。如图所示：
三、Excel表格中画三斜线或四斜线 这里我也不和大家多说了，和上面画双斜线的方法差不多，除了利用上面这个方法，也可以利用Word画表格之后复制到Excel中即可。 在word 插入表格绘制表头 1、选择要添加斜线的那个单元格 2、点击“页面布局”——“页码边框”，打开“边框和底纹” 3、选择“边框”，点击右下方的图标
excel在单元格中插入图片
excel在单元格中插入图片，图片大小自动与单元格一致 插入图片后，右键图片--属性--勾选“大小随单元格变化” 列：EXCEL表格，A列是产品图片，B列是货号，能否在B列输入货号（如123）的同时把放在E:\tmp目录下的相应货号的JPG图片调出来，且大小与A列单元格完全相符。 用vba，按下ALT+F11,菜单:插入-模块,复制下面代码至代码框.按F5即可 Sub addpicture() Dim FirstRow, LastRow As Integer, FileType As String FirstRow = https://www.doczj.com/doc/df9927627.html,edRange.Row LastRow = FirstRow + https://www.doczj.com/doc/df9927627.html,edRange.Rows.Count - 1 FileType = InputBox("输入你的图片的后缀名", "输入图片格式", "jpg") For i = FirstRow To LastRow Numb = Cells(i, 2).Value With ActiveSheet .Pictures.Insert("D:\tmp\" & Numb & "." & FileType).Select Set Target = .Cells(i, 1) End With With Selection .Top = Target.Top + 1 .Left = Target.Left + 1 .Width = Target.Width - 1 .Height = Target.Height - 1 End With Next i End Sub 说明，图片文件夹图片文件名与输入货号一致。
excel20XX表头两条斜线如何设置
excel20XX表头两条斜线如何设置 篇一：excel20XX表头加斜线与内容的方法技巧 exceL20XX表头加斜线并分别填充内容：如下图 方法1（单斜线，强制换行法）：选中框，然后打开“设置单元格格式”，如下 ， 然后选 ， 再点击确定，结果为 ， 然后在框内输入内容“人数城市”，如 ， 然后选择“ctrl+enter”，然后将“城市”依次向后移动到下一行即可。并将“人数”移动到改行末尾，效果为 。 方法2（单斜线，上下标法）：斜线设置同方法1.在输入框内输入内容“城市人数”（注意：与方法1的内容顺序相反），如 ， 然后选择“城市”，打开“设置单元格格式”，选择 ，
再选中“人数”，打开“设置单元格格式”，选择 ， 确定后效果为 ， 然后将“人数”后移到行尾即可。 方法3（单斜线/内容斜，文本框法）： 为了实效好看与方便，有些时候需要斜着排列，如 ， 其方法为：在原框内选择插入文本框，选择“横排文本框”，并输入“人”字，然后选择“格式”中“形状填充”，选择“无填充颜色”，如图 ， 然后选择“形状轮廓”中的“无轮廓”，如图 ， 然后选中文本框，按“ctrl+D”，，即出现 ， 然后将第二个“人”更改为“数”并移动位置即可，效果如图 。 然后复制“数”两次，并分别更改为“城”、“市”，移动位置即可，效果如图 。 但此时以上四个字是孤立的，很容易就删除掉或被改变，因此可选中
以上4个文本框，如图， 然后点击“格式”里的“组合”， 就可达到效果，拖动文本框的效果就如图 。 方法4（多斜线）：需要借助woRD的帮助。新建一个woRD， 点击， 将表格拉到大小各需要的表头接近一致即可， 然后点“布局”中的“绘制斜线表头”， ， 然后在弹出的框中设置，并分别输入相关的内容，最后点“确定”， 点击“确定”时的提出可不用管，出来的效果即为 ， （此时已成为一个整体，效果如）， 然后将这个框复制到excel中，， 然后再根据表格的情况分别挪动其中的内容与线条即可，效果为。篇二：如何在excel中画斜线图文教程excel20XX表头画斜线图文教程 如何在excel中画斜线excel20XXexcel20XX表头画斜线在制作报表的时候大家都有个很好的习惯，就是给表格首部处制作斜线表头，这样就可以清晰得看到各路表格中的含义。下面word联盟就来讲讲，在
Excel中引用工作表中的图片
Excel中引用工作表中的图片 2009-11-14 17:16 分析： 首先，我们可以用VLOOKUP或用INDEX+MATCH查在学籍档案工作表中返回该学生照片所在的位置，但如何引用照片呢？？我们可以用EXCEL的摄影功能把单元格的图片取出来。这里我们也许可以借助这个功能。但图片还要根据选取的学生姓名不停改变。用什么方法能做到单元格的区域或一个单元格达到随机应变的效果呢？这时我们应该想到“定义名称”。具体操作步履： 第一步： 根据选取的学生姓名，定位在学籍档案工作表中的该学生的照片单元格。 插入--名称-：PIC=INDIRECT("学籍档案!bx"&MATCH(查询!$D$8,学籍档案!$B:$B,0)) 公式说明： MATCH(查询!$D$8,学籍档案!$B:$B,0)：根据提供的学生姓名（查询!$D$8）在学籍工作表中（学籍档
案!$B:$B）查找该学生姓名所在的行数。 ("学籍档案!bx"&：照片是在学籍档案工作表中的BX列。 INDIRECT（。。）：由于用&连接的是一个字符串,而不是一个有效的引用,所以这里要INDIRECT函数转化一下 注:这个公式也可以用OFFSET+MATCH实现 第二步: 视图---工具栏---自定义--在自定义对话框的命令选项卡中的类别框中找到工具,在右边的列 表中找到小照相机图形,点鼠标左键不松，把该按钮拖动到工具栏中．然后选取工作表的任一 个单元格，点击一下工具栏中的小照相机图形，这时指针会变成一个小细黑十字．用拖动的方 法可以在工作表中拖画一个图形． 第三步： 选取拖画出的图形，在编辑栏中输入＝pic,再回车.一切就OK了 每隔7行引用：表2中的a1引用表1中的a1，表2中的a2引用表1中的a8，表2中的a3引用表1中的a15，用什么函数，怎么用，急，在线等，可追加分 问题补充： 我大致知道各位函数的意思了但还是看不太清能具体以a1为例么谢谢大家答得都很好虽然我后来用别的方法了还是谢谢 INDIRECT返回由文本字符串指定的引用,如=INDIRECT("B"&2)就返回当前工作表B2单元格的值, =INDIRECT("Sheet1!A"&ROW()*7-6),意思当你把公式输入到某工作表的第一行,返回SHEET1工作表A1,ROW()返回公式所在行的行号,第一行就是1乘以7减6,公式结果就是=INDIRECT("Sheet1!A"&1),如果输入第二行就是2乘以7减6,公式结果就是=INDIRECT("Sheet1!A"&8) INDEX返回指定的行与列交叉处的单元格引用。如INDEX(A:A,1)就是返回A1
宏命令将图片批量替换成统一大小
宏命令将图片批量替换成统一大小 步骤： 1.点击【文件】-【选项】，在弹出的窗口中选择【自定义功能区】，勾选开发工具选项后，点击【确定】，如下图： 2.会在菜单上方出现开发工具的相关功能菜单，选择【开发工具】，点击【宏】，如下图： 3.点击【宏】后，弹出提示框，在宏名处输入宏名“setpicsize”点击创建按钮，如下图：
4.在弹出的VBA窗口中将如下代码复制到其中，如下图： 统一替换图片大小的VBA代码如下（单引号后面的内容为备注）： '1.改变图片大于14.5cm的宽度 '注：高跟宽的数值单位为px,而word中的单位为cm（1px约等于0.0352cm） Sub setpicsize() Dim j '计数图片个数 For j = 1 To ActiveDocument.InlineShapes.Count '文件中图片总个数，图片类型为inlineshapes picheight = ActiveDocument.InlineShapes(j).Height '高度赋值 picwidth = ActiveDocument.InlineShapes(j).Width '宽度赋值 If (ActiveDocument.InlineShapes(j).Width > 375 And ActiveDocument.InlineShapes(j).Width < 415) Then '判断图片宽度范围，将宽度大于13.23cm的图片，小于14.68的图片统一缩放
ActiveDocument.InlineShapes(j).Range.ParagraphFormat.Alignment = wdAlignParagraphCenter '图片居中 ActiveDocument.InlineShapes(j).Width = 411 '设置宽度为411px,约14.5cm ActiveDocument.InlineShapes(j).Height = picheight * (411 / picwidth) '设置图片高度,根据设置的宽度值等比例缩放图片高度 ElseIf (ActiveDocument.InlineShapes(j).Width > 417) Then '判断图片宽度范围，将宽度大于14.7cm的图片统一缩放 ActiveDocument.InlineShapes(j).Range.ParagraphFormat.Alignment = wdAlignParagraphCenter '图片居中 ActiveDocument.InlineShapes(j).Width = 411 '设置宽度为411px,约14.5cm ActiveDocument.InlineShapes(j).Height = picheight * (411 / picwidth) '设置图片高度,根据设置的宽度值等比例缩放图片高度 End If Next j End Sub 注意： （1）修改图片尺寸时，代码运行前需要根据实际情况进行修改图片尺寸的大小范围限制代码，图中标注处所示 （2）修改图片尺寸时，需计算修改的图片的宽高值，因为图片的高跟宽的数值单位为px，而word中的单位为cm，根据每台电脑不同的分辨率，1px约等于0.0352cm （3）图片替换之前文档最好先保存副本，因为运行宏后的文档无法撤销操作，如果操作错误，只能通过关闭文档时，选择不保存后，重新打开 （4）代码可用英文状态下的单上引号进行备注，删掉不影响代码的运行 （5）如修改图片尺寸的代码无需修改，可直接在点击【宏】后，在弹出提示框中选择宏名“setpicsize”，点击运行按钮进行操作 （6）一次性修改的文档中图片过多时，文档会未响应一小段时间，请耐心等待即可5.点击运行按钮，运行统一替换图片尺寸代码
批量修改图片代码
word中批量修改图片大小 方法一： 这部分要说的是把word中的所有图片修改成固定的并且相同的长和宽！ 1、打开word，工具－宏－宏（或者直接按Alt+F8）进入宏的界面，如下面所示，输入一个宏名，宏名自己起，能记住就行！ 2、宏名起好了，单击“创建”进入Visual Basic 编辑器，输入如下代码并保存 代码如下: Sub setpicsize() '设置图片大小 Dim n ' 图片个数 On Error Resume Next ' 忽略错误 For n = 1 To ActiveDocument.InlineShapes.Count 'InlineShapes 类型图片ActiveDocument.InlineShapes(n).Height = 400 '设置图片高度为 400px ActiveDocument.InlineShapes(n).Width = 300 '设置图片宽度 300px Next n For n = 1 To ActiveDocument.Shapes.Count 'Shapes 类型图片 ActiveDocument.Shapes(n).Height = 400 '设置图片高度为 400px ActiveDocument.Shapes(n).Width = 300 '设置图片宽度 300px Next n End Sub 3、返回word，工具－宏－宏（或者直接按Alt+F8），再次进入宏的界面，选择刚才编辑好的宏，并单击“运行”按钮，就可以了！（图片多时，可能会花一些时间）
方法二： 1、在word中按alt+f11组合键,进入VBA模式 2、在左边的工程资源管理器中找到你的word文档,在其上右键/添加/模块 3、把下面代码复制,粘贴进去. 4、更改数值, 改一下宽度和高度数值(10)，点运行(类似播放按钮.)或f5,即可设置文档中全部图片 代码如下: Sub Macro() Mywidth=10 ‘10为图片宽度（厘米） Myheigth=10 ‘10为图片高度（厘米） For Each iShape In ActiveDocument.InlineShapes iShape.Height = 28.345 * Myheigth iShape.Width = 28.345 * Mywidth Next iShape End Sub word批量修改图片大小——按比例缩放篇 这部分要说的是把word中的所有图片按比例缩放！ 具体操作同上，只是代码部分稍做修改，代码如下： 代码如下: Sub setpicsize() '设置图片大小
excel表格中的斜线怎么删除
竭诚为您提供优质文档/双击可除excel表格中的斜线怎么删除 篇一：excel表格中画斜线、多斜线方法 excel表格中画斜线、双斜线、三斜线、四斜线等多种画斜线的方法 如何在excel表格中画斜线呢？excel中画斜线的方法非常多种，有单斜线、双斜线、三斜线、四斜线等多种，为此office教程学习网特制作以下教程，可供office爱好者参考,望广大office爱好者学以致用，excel表格中画斜线方法操作步骤如下所示： 如何在excel中画单斜线 第一步：首先，将首部单元格长和宽调整大一点； 第二步：单击“开始”-->格式-->设置单元格格式，你也可以直接选中首部单元格，然后右键，在弹出的下拉列表中选择“设置单元格格式”，然后进入“边框”，单击“斜线”按钮，然后确定； 第三步：现在返回到工作表中我们可以看到表头处出现了一条斜线。在里面输入文字，如这里我输入：“地区日期”； 第四步：我们怎么才能让“地区”到单元格斜线的上面，
让“日期”到斜线的下面来呢？这里我有三种方法可以实现： (1)利用软回车（alt+回车键）：在“地区”和“日期”之间用excel快捷键“alt+回车”（软回车），然后在“地区”前面使用“空格”慢慢的来调整位置即可； (2)使用“上标”和“下标”：选中“日期”然后右键选择“设置单元格格式”，在特殊效果下面将“下标”前面的钩选上，确定；再来选择“地区”将其设置为“上标”，设置好后，再来用“空格键”慢慢调整位置。 (3)插入文本框：选择“插件”，在“文本”选项卡中点击“文本框”按钮，然后在斜线的上边拉出个“文本框”输入地区，在斜线下部分中再拉出个“文本框”输入日期，然后选中“文本框”单击“格式”，在“形状填充”中选择“无填充颜色”，在“形状轮廓”中选择“无轮廓”即可； 怎么样，一个简单的单斜线表头就画好了，下面再来看看制作多斜线表格的方法吧！ 如何在excel中画双斜线 多条斜线表头的制作方法和单条斜线的做法完全不同，是需要用线绘制出来的。 第一步：单击“插入”选项卡，选择里面的“形状”，在“线条”下面选择“直线”； 第二步：利用“直线”工具，依次在单元格中画出两条斜线来，如下图；
在Excel中批量插入固定大小的图片
在Excel中如何快速地批量插入固定大小的图片？步骤如下： 一．编辑图片 1.新建一个文件夹，把要插入到Excel的全部图片放进去。 2.用PS，ACDSEE等工具，尽量把图片设置为正方形，或者统一方向的长方形（比如都是宽短高长）最好 是大小一致，比例相当。 3.把图片的文件名改为有意义的文件名，比如产品编号，人物名字，建筑物名称等。 二．批量获取文件名 这一步不是必须的，但当你面对几十个，甚至几百个，几千个图片的时候，这一步就很有用了，大大省去在Excel中输入图片文件名的时间。步骤： 1.用ACDSEE打开其中一个图片，然后在图片上双击，进入文件管理模式，如图： 2.点击“工具”-“数据库”-“导出”-“生成文件列表”。
3.这时会弹出一个文本文件“Folder-Contents”，可以看到图片文件名，大小，格式等等的信息都在里面了。 把列表前面的文字都删除（------ 及前面的文件，空格都删除），变成如下图：
4.点击“文件”-“另存为”，把文件保存到方便找到的目录（比如本例中E:\Temp\目录下）。 5.启动Excel，新建空白工作簿，然后在“文件”- “打开”- “浏览”找到Folder-Content存放的目录，选择打开文 件类型为“文本文件”（必须，不让看不到这个文本文件）： 6.选中Folder-Content.txt，打开，这时会弹出一个“文本导入向导”，直接点击“完成“：
7.这时会自动生成一个Excel文档，列A就是全部图片的文件名了，然后把这个文档另存为“型号.xls”:
三．批量插入固定大小的图片 1.打开需要插入图片的Excel文档，比如本例的产品信息表，把在“型号.xls”中的图片文件名全部复制，粘 贴到产品信息表的“型号”列： 2.从上图可以看出，图片文件名是从表格A2开始的，所以，在图片列D2中输入：
Word编程宏批量修改图片大小
word批量修改图片大小 借助word的宏功能可以很好完成这一任务,无论word里有多少图片,很容易就在一瞬间搞定.。文档里面有几百张图片，规格都不一样，堆在文档里面很难看。为美化文档，将图片规范化，都设置成425x320像素大小。手工修改每张图片很费时间也费鼠标，所以，你得好好看看以下如何做了。 打开word，按下Alt+F8，出现宏界面，为新建的宏取名为AdjustPicWidthAndHeight 点击编辑按钮，输入下面红色字体标出的内容 Sub AdjustPicWidthAndHeight() ' ' AdvertisePublishAs 宏 ' 将广告发布导出为 PDF 和 XPS 'Sub setpicsize() '设置图片大小
Dim n '图片个数 On Error Resume Next '忽略错误 For n = 1 To ActiveDocument.InlineShapes.Count 'InlineShapes类型图片ActiveDocument.InlineShapes(n).LockAspectRatio = msoFalse '不锁定图片的纵横比 ActiveDocument.InlineShapes(n).Height = 320 '设置图片高度为 320px ActiveDocument.InlineShapes(n).Width = 425 '设置图片宽度 425px Next n For n = 1 To ActiveDocument.Shapes.Count 'Shapes类型图片 ActiveDocument.InlineShapes(n).LockAspectRatio = msoFalse '不锁定图片的纵横比ActiveDocument.Shapes(n).Height = 320 '设置图片高度为 320px ActiveDocument.Shapes(n).Width = 425 '设置图片宽度 425px Next n End Sub word批量修改图片大小——固定长宽篇 这部分要说的是把word中的所有图片修改成固定的并且相同的长和宽！ 1、打开word，工具－宏－宏（或者直接按Alt+F8）进入宏的界面，如下面所示，输入一个宏名，宏名自己起，能记住就行！
在EXCEL中画斜线几种方法
在EXCEL中画斜线 手工画一张表，有横线有竖线，也有斜线。EXCEL中做一张表，横线竖 线都有，斜线在哪里？是EXCEL没办法做斜线吗？不是，画不出斜线是因为 没有掌握方法，按我的方法去画，什么样的斜线都画得出来，而且又快又 好。 第一种方法，我称之为外部法，由于这个方法涉及到WORD，因此得名。 第一步：在WORD中做一个斜线表头，先画出表格，然后选择表格及边框，直接拉出斜线。 第二步：当鼠标指针在这个斜线表头内变成黑色实心斜向的箭头后，复制这个表头第三步：在EXCEL中，右键菜单中选择选择性粘贴命令，在对话框中选择“MicroSoft Office Word文档对象”，这样，刚刚在WORD中建立的那个斜线表头就粘贴到EXCEL中微调之后就可以了。 第二种方法我称之为内部法，因为完全是在EXCEL内部完成的，因此得名。 第一步：调整作为表头的格，使它能容纳下文字。调出EXCEL的绘图工具栏，单击“矩形”，在工作表的任一位置画一个矩形框，不要太大，以能放下一个字为准。 第二步：在“矩形”上点鼠标右键，选择“添加文字”，该框就变成文本框了，在这个文本框中输入文字。 第三步：右键单击该文本框，选择“设置自选图形格式”，在对话框中的颜色与线条选项卡中选择“填充”和“线条”颜色为无填充颜色。 按这三步输入其他文字，每个文字是一个框，我这里输入的是年月日。 第四步：使用绘图工具栏中的“直线工具”画出斜线。 第五步：组合成斜线表头，按住Shift键，当鼠标指针下出现四向箭头时同时选中三个文本框和两条斜线。Shift键不要松开，单击右键选择“组合/组合”命令，这样刚刚选择的多个对象会合并成一个对象。 我们的工作完成了，这样做出的表头想分几栏就分几栏。推荐使用第二种方法，真的是又快又好。
EXCEL表格如何批量导入图片
EXCEL表格如何批量导入图片 1、准备好图片放入一个文件夹（图片名字需与表格的名称一致，为*.jpg） 2、右击图片属性，图片路径，红框处，复制出来： G:\图片\ 3、回到表格，拷贝红框的文字，复制-粘贴到*.txt文档，转为纯文字格式，txt 文档另存为11（名字任意）。
表格里的图片名称（图片名字需与表格的名称一致，为*.jpg），我习惯用货号命名图片，如下图：
4、做好导入图片公式的txt格式文档。 ①把“商品编码”删掉。
②表格要求导入的图片不多的话，可以直接用复制-粘贴，图片名称前后是一样的。如果是上百个，上千个图片需要导入，那就要借助word的力量。 word每行行首、行末添加相同的指定字符 行首：替换^p为^pA（A为你要插入的字符）行末：替换^p为A^p（A为你要插入的字符） 图片名称前的文字：
③把txt的货号复制到word文档，替换行首，行末 第一行的行首没有替换到，把最后一行的剪切上去即可，手动调整后（注意每一行的图片名称不能调换顺序）替换行末： 点击全部替换。
④替换好后发现引号是全角引号，必须要转为英文状态下的半角引号。 ⑤复制文档1容，粘贴到11.txt文档用宏批量调整word中图片版式大小方向
Sub 图片方向()..................................................... Sub 图片对齐() Application.ScreenUpdating = False '关闭屏幕更新 Dim n On Error Resume Next ActiveDocument.Shapes(n).Select orizontalPosition = _ wdRelativeHorizontalPositionMargin wdRelativeVerticalPositionMargin Next Application.ScreenUpdating = True '恢复屏幕更新 End Sub Sub 图片大小() On Error Resume Next Dim mywidth Dim myheight Application.ScreenUpdating = False '关闭屏幕更新 mywidth = Val(InputBox(Prompt:="单位为厘米(cm);如果输入为0，则图片保持原始纵横比,宽度根据输入的高度数值自动调整；", Title:="请输入图片宽度", Default:="0")) * 28.35 myheight = Val(InputBox(Prompt:="单位为厘米(cm);如果输入为0，则图片保持原始纵横比,高度根据输入的宽度数值自动调整；", Title:="请输入图片高度", Default:="0")) * 28.35 '------------------------------------------------------------------ '调整嵌入式图形 Dim pic As InlineShape For Each pic In ActiveDocument.InlineShapes If mywidth = "0" Then
excel如何用斜线划分内容
excel如何用斜线划分内容 各位读友大家好！你有你的木棉，我有我的文章，为了你的木棉，应读我的文章！若为比翼双飞鸟，定是人间有情人！若读此篇优秀文，必成天上比翼鸟！ 篇一：Excel2007表头加斜线与内容的方法技巧EXCEL2007表头加斜线并分别填充内容：如下图方法1（单斜线，强制换行法）：选中框，然后打开“设置单元格格式”，如下，然后选，再点击确定，结果为，然后在框内输入内容“人数城市”，如，然后选择“Ctrl+Enter”，然后将“城市”依次向后移动到下一行即可。并将“人数”移动到改行末尾，效果为。方法2（单斜线，上下标法）：斜线设置同方法1.在输入框内输入内容“城市人数”（注意：与方法1的内容顺序相反），如，然后选择“城市”，打开“设置单元格格式”，选择，再选中“人数”，打开“设置单元格格式”，选择，确定后效果为，然后将“人数”后
移到行尾即可。方法3（单斜线/内容斜，文本框法）：为了实效好看与方便，有些时候需要斜着排列，如，其方法为：在原框内选择插入文本框，选择“横排文本框”，并输入“人”字，然后选择“格式”中“形状填充”，选择“无填充颜色”，如图，然后选择“形状轮廓”中的“无轮廓”，如图，然后选中文本框，按“Ctrl+D”，，即出现，然后将第二个”人”更改为“数”并移动位置即可，效果如图。然后复制“数”两次，并分别更改为“城”、“市”，移动位置即可，效果如图。但此时以上四个字是孤立的，很容易就删除掉或被改变，因此可选中以上4个文本框，如图，然后点击“格式”里的“组合”，就可达到效果，拖动文本框的效果就如图。方法4（多斜线）：需要借助WORD的帮助。新建一个WORD，点击，将表格拉到大小各需要的表头接近一致即可，然后点“布局”中的“绘制斜线表头”，，然后在弹出的框中设置，并分别输入相关的内容，最后点“确
用宏批量调整中图片版式大小方向
Sub 图片对齐() .................................... 错误!未指定书签。 Sub 图片大小().................................... 错误!未指定书签。Sub 浮于文字上方()................................ 错误!未指定书签。Sub 浮于文字上方()................................ 错误!未指定书签。Sub 连续()........................................ 错误!未指定书签。Sub 版式转换().................................... 错误!未指定书签。Sub 图片方向().................................... 错误!未指定书签。Sub 图片对齐() Application.ScreenUpdating = False '关闭屏幕更新 Dim n On Error Resume Next ActiveDocument.Shapes(n).Select orizontalPosition = _ wdRelativeHorizontalPositionMargin wdRelativeVerticalPositionMargin Next Application.ScreenUpdating = True '恢复屏幕更新 End Sub Sub 图片大小() On Error Resume Next Dim mywidth Dim myheight Application.ScreenUpdating = False '关闭屏幕更新 mywidth = Val(InputBox(Prompt:="单位为厘米(cm);如果输入为0，则图片保持原始纵横比,宽度根据输入的高度数值自动调整；", Title:="请输入图片宽度", Default:="0")) * 28.35 myheight = Val(InputBox(Prompt:="单位为厘米(cm);如果输入为0，则图片保持原始纵横比,高度根据输入的宽度数值自动调整；", Title:="请输入图片高度", Default:="0")) * 28.35 '------------------------------------------------------------------ '调整嵌入式图形 Dim pic As InlineShape For Each pic In ActiveDocument.InlineShapes If mywidth = "0" Then
excel表格怎么画斜线
竭诚为您提供优质文档/双击可除excel表格怎么画斜线 篇一：怎样在excel的一个单元格里画多条斜线再输入汉字 怎样在excel的一个单元格里画多条斜线再输入汉字20xx-11-1115:28阅读 (2) 方法一： 单线操作： 1.单元格右键，弹出菜单选“设置单元格格式”，“边框”标签，找到合适的斜线，点上即可。 2.输入内容，鼠标定位在要换为下一行的字前面，按键盘上的alt+回车（强制换行），单元格左对齐，在上行字前加空格到合适位置即可。 多线操作： 1.选定单元格，设置足够的长度和高度。 2.单击工具栏中的“绘图”按钮，在“绘图”工具栏中选择“直线”工具，绘制两条或多条直线到单元格中。 3.点击“绘图”工具栏上的“文本框”，然后把文本框
的边框弄成无颜色即可，使用插入文本框的方式逐个添加表头项目。 方法二： 方法1 1、选中单元格，点常用工具栏中的边框工具加上外框； 2、点视图-工具栏-绘图，点一下绘图工具栏中的直线工具（点击后光标会变成细十字形）后再在单元格里用带十字的光标画第一条斜线，然后再点一次直线工具，再画第二条斜线；直线的长短或位置不合要求，可单击该线段，按住左键即可拖动线段移动位置，再把光标放到两端的园圈上按住左键拖动即可调整线段长度和方向； 3、选中单元格，点格式-单元格-对齐，水平对齐和垂直对齐都选为两端对齐； 4、比如在单元格里输入“学科级别年份”，把光标放到“学科”字后面，按alt+enteR，再把光标放到“级”字后面，按alt+enteR，再把光标放到“别”字后面，按alt+enteR； 5、在“学科”前面、“别”前面和“年份”后面加空格，把学科、级别和年份调整到适当的位置； 6、调整单元格的高和宽及斜线的位置，使表头更好看些。 方法2 1、选中单元格，点常用工具栏中的边框工具加上外框；
如何在EXCEL表格中批量插入对应图片-更新
如何在EXCEL表格中批量插入对应图片-最新更新
————————————————————————————————作者：————————————————————————————————日期：
如何在EXCEL表格中批量插入对应图片学生照片用身份证号命名后，核对是个麻烦事儿，有了这个表格就直观多了。 制作过程如下： 1、粘贴学生信息、输入公式并向下填充 在D2单元格输入公式（复制下面的公式并粘贴到D2单元格中）： ="
" 公式含意：在该单元格中插入来自d盘:\学生照片文件夹中\C2单元格中数值（身份证号命名的）.jpg图片向下填充 2、在D盘根目录中新建一个名为：学生照片的文件夹，并把全校按身份证号码命名的学生图片复制其中。 这些图片最好批量转尺寸为120×150。太小看不清，太大查看起来不便。 3、打开剪贴板 4、选择公式区域（最好分几次进行，每次不超过200格），并复制到剪贴板（见下图窗口右边）。 （因在公式的状态下，很多操作是不能正常进行的，这一步的目的就是留数据除公式。）
5、点击剪贴板中刚复制的数据，把这些数据又粘贴回来（见下图鼠标箭头）。 6、把公式列中的@替换为"（半角单引号）
7、再选择公式区并将数据复制进剪贴板 8、选择“Unicode文本”粘贴 ①.复制（学生照片列数据）→粘贴（到记事本） ②.复制（刚才粘贴到记事本中的数据）→（回到Excel工作表学生照片列）右键→选择性粘贴 ③.选“Unicode文本”粘贴回Excel工作表→确定 （如果数据不到记事本中过一下，“选择性粘贴”窗口中就不会出现“Unicode文本”粘贴选项，这一步很重要)
excel表格图片不显示
竭诚为您提供优质文档/双击可除excel表格图片不显示 篇一：如何在excel某一个单独的单元格中插入图片 在excel中插入图片相当容易，但是要对插入的图片进行精确的定位是非常麻烦的，不像在其他软件那样好控制！ 插入的图片，经常出现这样的毛病：假如您在某个单元格插入了图片，那么，调整行高列宽，大凡影响到该单元格，那么，所定位的图片位置随之改变，并严重影响excel的视觉效果！总之，麻烦之处就在于，当调整行高列宽之后，想让图片到哪它偏不到哪，想让图片按自己的意愿自动调整位置并适应单元格，往往事与愿违； 本文专门针对该问题，提供大家一种有效的解决办法！ 我们的目标是，让插入的图片，随单元格大小自动调整大小并显示在该显示的预期的位置！所应用到的功能是“对齐网格”； 该功能默认是不会显示在工具栏中的，需要添加，添加的方法可按如下方法来操作！执行“工具”→“自定义”；弹出如下图对话框； 上图的操作，按图索骥即可，不再过多阐述；
好了之后，下面我们在excel文档中插入两张自选图形，如下图，两张自选图形均占四个单元格的大小； 针对插入的图形，首先选择图形操作对象，然后点一下“对齐网格”按钮，让其具有该属性；下面，我们调整行高和列宽，以测试该功能是否属实！ 看下图，两张图片均自动调整大小及位置，以完全吻合的方式显示的相应位置！ 篇二：excel表格中插入图片 excel表格中插入图片，单元格如何设置来根据图片大小自动变化？ 相关说明：sub插入图片到当前单元() dimmRasRange setmR=selection activesheet.pictures.insert(activeworkbook.path.jpg ").selectwithselection .top=mR.top .left=mR.left .width=mR.width .height=mR.height endwith endsub
批量删除WORD文档中的图片 宏+替换
批量删除WORD文档中的图片 有时要一次性删除某个Word文档中所有图片．一张一张地寻找图片并按下DEL键删除真是麻烦死了，这时你有一般两种方法可以选择： 一、 可以让“查找和替换”功能帮你的忙，在Word中同时按下“Ctrl＋H”键打开“查找和替换”对话框，点击“替换”标签中的“更多”按钮，再选择“特殊格式→图形”项，这时会在“查找内容”中自动输入“^g”，最后直接按下“全部替换”按钮即可彻底删除所有图片。（想要知道高级的查找替换功能，可以搜索word的通配符、正则表达式等内容） 二、用宏程序删除WORD图片 有时在word中使用第一种方法不能奏效，可以使用宏代码的方式进行删除，如果一次无法删除完全，可以多运行几遍。代码如下： Sub Macro1() For Each ShapeRange In ActiveDocument.Shapes ShapeRange.Delete Next ShapeRange End Sub 附: Word通配符查找详解（Wildcards） 通配符使用规则如下： 任意单个字符 键入? 例如，s?t 可查找“sat”和“set”。 任意字符串 键入* 例如，s*d 可查找“sad”和“started”。 单词的开头 键入< 例如，<(inter) 查找“interesting”和“intercept”，但不查找“splintered”。 单词的结尾 键入> 例如，(in)>查找“in”和“within”，但不查找“interesting”。 指定字符之一 键入[ ] 例如，w[io]n 查找“win”和“won”。
指定范围内任意单个字符 键入[-] 例如，[r-t]ight 查找“right”和“sight”。必须用升序来表示该范围。 中括号内指定字符范围以外的任意单个字符 键入[!x-z] 例如，t[!a-m]ck 查找“tock”和“tuck”，但不查找“tack”和“tick”。 n 个重复的前一字符或表达式 键入{n} 例如，fe{2}d 查找“feed”，但不查找“fed”。 至少n 个前一字符或表达式 键入{n,} 例如，fe{1,}d 查找“fed”和“feed”。 n 到m 个前一字符或表达式 键入{n,m} 例如，10{1,3} 查找“10”、“100”和“1000”。 一个以上的前一字符或表达式 键入@ 例如，lo@t 查找“lot”和“loot”。 特殊意义的字符 键入\ 例如，f[\?]t 查找“f?t” ( ) 对查询结果没有影响，是一个替换时分组的概念 例子： 用\2 \1替换(John) (Smith)，得到结果Smith John 即\1代表John，\2代表Smith
电子表格批量插入图片
电子表格批量插入图片 准备工作： 1.整理好所插入的图片： 具体批量插入图片操作： 步骤一： 写入图片路径，做到单元格中图片名称和插入的位置相对应。具体进行如下操作： 1.在图片插入位置写入图片定位公式：
="
" （注意：需要在内容输入位置输入公式（不要在单元格内直接输入公式），公式输入结束后按回车结束公式输入操作。 注意公式的标点符号为英文格式。 将公式写入到图片插入位置单元格后会看到实际表现出来的内容并不是我们所写入的，而是这个=“”之内的内容。） 2.完成第一个位置定位之后，下拉单元格，通过下拉自动填充完成整列的图片定位公式的写入。 步骤一例子： =""步骤二： 步骤二例子： 选中所有公式，复制。ctrl+C+C 在复制状态下，删除b列复制的内容。（如果你不需要再原有位置显示图片，可以不删除，这里删除只是为了给要引用进来的图片腾地方） 删除后，在剪切板中点击之前复制出来的内容。使用选择性粘贴，并选择"unicode文本"方式。之后图片就会出现在每一个所对应的图片插入位置列中。 ps： 1、图片在批量插入后，对存放图片的物理文件夹中再增加图片时，excel里即使有相应的引用也不会自动更新，除非手动刷新，重插。 2、在插入图片前，最好先调整好表格的宽度和行高。太小的话，插入的图片会堆积在一起，数量大时，很难排版。 3、本操作是在excel2003中进行的，2010等版本没有测试。
