如何在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中表格制作设置图表的操作方法 制作图表 MicrosoftExcel的图表模板很多，在生产和销售中，经常用柱 形图来描述，这样，有利于看出并分析其变化趋势。制作图表的步 骤如下： 1、选定年份和生产总值两行数值，单击工具栏上的[图表向导]，或者选择菜单“插入-->图表”也行。在“图表向导”对话框中图表 类型选择“柱形图”，子图表类型选择“簇状柱形图”，单击[下一步]： 2、在图表源数据的数据区域中出现“=Sheet1!$A$3:$G$4”，“系列产生在”选择“行”，在“系列”中的分类X轴标志中填入“=Sheet1!$B$3:$G$3”，系列对话框中删除“年份”，单击[下一步]： 3、在图表选项中填入图表标题，X轴和Y轴的名称，单击[下一步]： 4、在图表位置的“作为其中的对象插入”中填入“Sheet1”， 单击[完成]即可生成图表： 为图表美容 图表生成以后，中间的图形太小，周围的文字又太大，看起来很不舒服，我们可以加以修饰，使其美观大方。具体做法如下： 1、单击鼠标右键，弹出对话框，选中[图表区格式]，弹出图表 区格式对话框，首先显示的是图案选项卡，选中[阴影(D)]。单击 [填充效果]按钮，在填充效果对话框中您可以选择您喜欢的背景效果，我们在过渡选项卡中选择“单色”、“浅绿色”，将颜色调到 合适的深度，再选择默认的底纹样式“水平”，单击[确定]。 2、以同样的方式修饰绘图区和数据系列区。
3、现在，图表中的文字有些大，绘图区又小。单击图表的纵轴，在字号栏中选择小一点的字体，或双击纵轴对其进行多项修饰如字体、字号、加粗、刻度等。然后以同样的方法修饰横轴。 4、对图表标题和图例进行修饰，修改字体、字号以及填充效果等，基本和以上方法相同。 5、下面，我们对横轴和纵轴的标题说明加以修饰，如果图表中 已经有标题说明，可以用以上的方法，如果没有的话，在绘图区单 击鼠标右键，从快捷菜单选择[图表选项]，在图表选项中填入图表 标题和横坐标、纵坐标的标题，单击[确定]即可。 6、最后，调整各部分的大小位置，使之协调美观。这一步用鼠 标即可办到，作好的图表如下所示。是不是效果不错? 图表与工作表的链接 在上述的图表制作过程，图表中的数据系列已自动和工作表中的数据产生链接。不仅如此，图表中的标题、数据标签、附加标题甚 至图片等其他信息，也可以与单元格建立链接，这样可以使图表更 为动态。 1、图表标题的链接 图表的标题、分类轴标题和数据区域轴标题等，在利用“图表向导”生成图表时一般不会自动链接到任何单元格，除非手工人为地 进行修改。要生成有链接的标题，首先要保证图表中含有你所需要 的数据基本点标题，如果没有，通过[图表向导]把标题添加到图表中。选中这个标题，并点击公式栏，输入一个等号，再点击包含这 个标题文本的单元格或输入此单元格的系列公式(例如： =Sheet1!$A$1)，回车，把公式加到图表标题中。标题与单元格A1 建立了链接。 2、数据标志的链接 Excel允许给图表中的每一个数据点建立一个标签，方法有两种：一种为手动操作，单击并选中所有的数据标志，然后单击选中某一 个数据标志，一旦一个数据标志被选中，你可以任意添加文本;另一
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.360docs.net/doc/3915574686.html,edRange.Row LastRow = FirstRow + https://www.360docs.net/doc/3915574686.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 说明，图片文件夹图片文件名与输入货号一致。
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中如何快速地批量插入固定大小的图片？步骤如下： 一．编辑图片 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中输入：
excel如何转变为图片
excel如何转变为图片 篇一：怎么将excel里的文件转化为图片格式 怎么将excel里的文件转化为图片格式 a.在excel里制作好表格，选择需转换表格的范围； b.点击“文件”菜单里的“页面设置”，选择调整为1页高，1页宽； c.按住shift键，选择编辑，就会出现复制图片功能； d.点击“复制图片”，选择“如打印效果”后确定； e.打开“开始—程序—附件—画图”程序，点击“编辑”，选择粘贴； f.最后另存为jpeg格式的图片文件。 篇二：excel如何把表格转换为图片小技巧 excel如何把表格转换为图片小技巧shift键在word下有这样的妙处，如果我们在按下shift键，同时点击“编辑”菜单，原来的复制和粘贴就会变成“复制图片”和“粘贴图片”。利用这一功能，我们也可以将这方法移接到excel中运用，把excel一个数据表以图片的形式进行复制，从而将其转换为图片。 方法如下： 首先选中需要复制成图片的单元格区域，然后按住shift键依次选择“编辑→复制图片”命令，接着弹出“复制图片”窗口，选择“图片”单选项后点击“确定”按钮，这时就将选定的表格区域复制成图片了。最后复制到目标只需直接选择“粘贴”命令即可(或者按shift键再选
择“编辑→粘贴图片”命令)。我们还可以将其在word中进行粘贴。另外，在复制图片时如果选择了“如打印效果”单选项，在粘贴的时候如果表格没有边框，复制后的图片也不会出现边框。 篇三：如何将excel或word文件转换成图片 如何将excel或word文件转换成图片(20XX/07/0215:06) 工作中经常会遇到需要将excel或word文件转换成图片的情况，一开始搞不懂，一次偶尔的机会碰到这样的文章，摘录下来，供朋友们参考： 一种方法是： ①excel表格转化成图片 a.在excel里制作好表格，选择需转换表格的范围； b.点击“文件”菜单里的“页面设置”，选择调整为1页高，1页宽； c.按住shift键，选择编辑，就会出现复制图片功能； d.点击“复制图片”，选择“如打印效果”后确定； e.打开“开始—程序—附件—画图”程序，点击“编辑”，选择粘贴； f.最后另存为jpeg格式的图片文件。 ②word表格转换为图片的方法 a.首先将所需表格单独建立一个word文档，存盘并关闭。 b.在word中新建一个空白文档，将需转换的文档拖入新建文档中，注意：文档不能打开。 c.这时候，新建的文档中，表格已经是图片格式了，将其全选然后复制。 d.打开附件中的绘图程序，粘贴表格并适当调整，然后以Jpeg或gIF
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表格如何批量导入图片 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文档EXCEL如何制作图表详细图文教程
EXCEL如何制作图表详细图文教程 Microsoft Excel 2000在企业办公、数据处理等方面具有强大的功能。但是，对于如何根据Excel工作表中的数据来创建图表及生成链接，许多人却知之甚少。下面我们以某工厂1990年至1995年的工业年生产总值为例，来说明柱形图表的生成与链接过程。 制作图表 Microsoft Excel 2000的图表模板很多，在生产和销售中，经常用柱形图来描述，这样，有利于看出并分析其变化趋势。制作图表的步骤如下： 1、选定年份和生产总值两行数值，单击[图表向导]，如图1。在图表向导对话框中图表类型选择柱形图，子图表类型选择簇状柱形图，单击[下一步]。 图1 2、在图表源数据的数据区域中出现“=Sheet1!＄A＄3:＄G＄4”，“系列产生在”选择“行” ，在系列中的分类X轴标志中填入“=Sheet1!＄B＄3:＄G ＄3”，系列对话框中删除“年份”，单击[下一步]，如图2。 图2 3、在图表选项中填入图表标题，X轴和Y轴的名称，单击[下一步]。 4、在图表位置的“作为其中的对象插入”中填入“Sheet1”，单击[完成]即可生成图表，如图3所示。
图3 为图表美容 图表生成以后，中间的图形太小，周围的文字又太大，看起来很不舒服，我们可以加以修饰，使其美观大方。具体做法如下： 1、单击鼠标右键，弹出对话框，选中[图表区格式]，弹出图表区格式对话框，首先显示的是图案选项卡，选中[阴影(D)]。单击[填充效果]按钮，在填充效果对话框中您可以选择您喜欢的背景效果，我们在过渡选项卡中选择“单色”、“浅绿色”，将颜色调到合适的深度，如图4，再选择默认的底纹样式“横向”，单击[确定]。 图4 2、以同样的方式修饰绘图区和数据系列区。 3、现在，图表中的文字有些大，绘图区又小。单击图表的纵轴，在字号栏中选择小一点的字体，或双击纵轴对其进行多项修饰如字体、字号、加粗、刻度等。然后以同样的方法修饰横轴。 4、对图表标题和图例进行修饰，修改字体、字号以及填充效果等，基本和
用宏批量调整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
用宏批量调整中图片版式大小方向
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表格中批量插入对应图片学生照片用身份证号命名后，核对是个麻烦事儿，有了这个表格就直观多了。 制作过程如下： 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等版本没有测试。
批量处理和单个处理word图片大小和比例的宏
设定单个图片大小的宏： Sub 宏5() Selection.InlineShapes(1).LockAspectRatio = msoFalse '解除纵横 比锁定 Dim h!, w! h = Selection.InlineShapes(1).Height w = Selection.InlineShapes(1).Width Selection.InlineShapes(1).Height = 627 '设置图片高度为627px Selection.InlineShapes(1).Width = 407 '设置图片宽度407px End Sub 设定单个图片比例的宏： Sub 宏3() Selection.InlineShapes(1).LockAspectRatio = msoFalse '解除纵横 比锁定 Dim h!, w! h = Selection.InlineShapes(1).Height w = Selection.InlineShapes(1).Width Selection.InlineShapes(1).Height = h * 1.25 '设置图片高度比例为125% Selection.InlineShapes(1).Width = w * 0.77 '设置图片宽度比例为77% End Sub
批量设定图片大小的宏： 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 = 400 '设置图片高度为400px ActiveDocument.InlineShapes(n).Width = 300 '设置图片宽度300px Next n For n = 1 To ActiveDocument.Shapes.Count 'Shapes类型图片Selection.InlineShapes(n).LockAspectRatio = msoFalse ActiveDocument.Shapes(n).Height = 400 '设置图片高度为400px ActiveDocument.Shapes(n).Width = 300 '设置图片宽度300px Next n End Sub 批量设定图片比例的宏 Sub 宏1() Dim n '图片个数 Dim picwidth
Excel表格制作常用技巧集合
Excel表格制作常用技巧集合 一、让不同类型数据用不同颜色显示 在工资表中，如果想让大于等于2000元的工资总额以“红色”显示，大于等于1500元的工资总额以“蓝色”显示，低于1000元的工资总额以“棕色”显示，其它以“黑色”显示，我们可以这样设置。 1.打开“工资表”工作簿，选中“工资总额”所在列，执行“格式→条件格式”命令，打开“条件格式”对话框。单击第二个方框右侧的下拉按钮，选中“大于或等于”选项，在后面的方框中输入数值“2000”。单击“格式”按钮，打开“单元格格式”对话框，将“字体”的“颜色”设置为“红色”。 2.按“添加”按钮，并仿照上面的操作设置好其它条件(大于等于1500，字体设置为“蓝色”；小于1000，字体设置为“棕色”)。 3.设置完成后，按下“确定”按钮。 看看工资表吧，工资总额的数据是不是按你的要求以不同颜色显示出来了。 二、建立分类下拉列表填充项 我们常常要将企业的名称输入到表格中，为了保持名称的一致性，利用“数据有效性”功能建了一个分类下拉列表填充项。 1.在Sheet2中，将企业名称按类别(如“工业企业”、“商业企业”、“个体企业”等)分别输入不同列中，建立一个企业名称数据库。 2.选中A列(“工业企业”名称所在列)，在“名称”栏内，输入“工业企业”字符后，按“回车”键进行确认。 仿照上面的操作，将B、C……列分别命名为“商业企业”、“个体企业”…… 3.切换到Sheet1中，选中需要输入“企业类别”的列(如C列)，执行“数据→有效性”命令，打开“数据有效性”对话框。在“设置”标签中，单击“允许”右侧的下拉按钮，选中“序列”选项，在下面的“来源”方框中，输入“工业企业”，“商业企业”，“个体企业”……序列(各元素之间用英文逗号隔开)，确定退出。 再选中需要输入企业名称的列(如D列)，再打开“数据有效性”对话框，选中“序列”选项后，在“来源”方框中输入公式：=INDIRECT(C1)，确定退出。 4.选中C列任意单元格(如C4)，单击右侧下拉按钮，选择相应的“企业类别”填入单元格中。然后选中该单元格对应的D列单元格(如D4)，单击下拉按钮，即可从相应类别的企业名称列表中选择需要的企业名称填入该单元格中。 提示：在以后打印报表时，如果不需要打印“企业类别”列，可以选中该列，右击鼠标，选“隐藏”选项，将该列隐藏起来即可。 三、建立“常用文档”新菜单 在菜单栏上新建一个“常用文档”菜单，将常用的工作簿文档添加到其中，方便随时调用。 1.在工具栏空白处右击鼠标，选“自定义”选项，打开“自定义”对话框。在“命令”标签中，选中“类别”下的“新菜单”项，再将“命令”下面的“新菜单”拖到菜单栏。按“更改所选内容”按钮，在弹出菜单的“命名”框中输入一个名称(如“常用文档”)。 2.再在“类别”下面任选一项(如“插入”选项)，在右边“命令”下面任选一项(如“超链接”选项)，将它拖到新菜单(常用文档)中，并仿照上面的操作对它进行命名(如“工资表”等)，建立第一个工作簿文档列表名称。 重复上面的操作，多添加几个文档列表名称。 3.选中“常用文档”菜单中某个菜单项(如“工资表”等)，右击鼠标，在弹出的快捷菜
