如何在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/3b8243788.html,edRange.Row LastRow = FirstRow + https://www.360docs.net/doc/3b8243788.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 说明，图片文件夹图片文件名与输入货号一致。
(完整版)Word中的图片批量统一大小及同比例缩放
Word宏：Word中的图片批量统一大小及同比例缩放（图） 有些时候，我们用Word来做一些图文混排的文档，需要正规的样式，例如图片大小一致。下面的方法就是告诉我们如何来实现很多的图片统一大小。 实现代码： Sub setpicsize() '设置图片大小 Dim n '图片个数 On Error Resume Next'忽略错误 For n = 1To ActiveDocument.InlineShapes.Count 'InlineShapes类型图片ActiveDocument.InlineShapes(n).Height = 400'设置图片高度为 400px ActiveDocument.InlineShapes(n).Width = 300'设置图片宽度 300px Next n For n = 1To ActiveDocument.Shapes.Count 'Shapes类型图片 ActiveDocument.Shapes(n).Height = 400'设置图片高度为 400px ActiveDocument.Shapes(n).Width = 300'设置图片宽度 300px Next n End Sub [Ctrl+A 全部选择提示：你可先修改部分代码，再按运行] 使用方法和[Word宏:Word中英文标点符号互换-VBA源码实现（图）] 中介绍的一样，把代码复制到Visual Biscal编辑器中，再回到Word界面，运行“宏”命令。 操作步骤如下： 1.打开要统一图片大小的Word文档，点击“工具”-“宏”-“Visual Biscal编辑器。
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批量修改图片大小 借助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里的文件转化为图片格式 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中图片版式大小方向
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如何制作图表详细图文教程 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、对图表标题和图例进行修饰，修改字体、字号以及填充效果等，基本和
在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中输入：
用宏批量调整中图片版式大小方向
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
Word宏：Word中的图片批量统一大小及同比例缩放(图)
?Word宏：Word中的图片批量统一大 小及同比例缩放（图） 有些时候，我们用Word来做一些图文混排的文档，需要正规的样式，例如图片大小一致。下面的方法就是告诉我们如何来实现很多的图片统一大小。 实现代码： Sub setpicsize() '设置图片大小 Dim n '图片个数 On Error Resume Next'忽略错误 For n = 1To ActiveDocument.InlineShapes.Count 'InlineShapes类型图片 ActiveDocument.InlineShapes(n).Height = 400'设置图片高度 为400px ActiveDocument.InlineShapes(n).Width = 300'设置图片宽 度300px Next n For n = 1To ActiveDocument.Shapes.Count 'Shapes类型图片ActiveDocument.Shapes(n).Height = 400'设置图片高度为400px ActiveDocument.Shapes(n).Width = 300'设置图片宽度300px Next n End Sub 使用方法，把代码复制到Visual Biscal编辑器中，再回到Word界面，运行“宏”命令。 操作步骤如下： 1.打开要统一图片大小的Word文档，点击“工具”-“宏”-“Visual Biscal 编辑器。
2）插入normal工程“模块”。
3）在“模块”中粘贴上面的代码。
4）保存，返回你要统一图片大小的Word文档。运行“工具”-“宏”-"宏命令"。 看一下结果，是不是你想要的统一图片大小。
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
如何在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文本”粘贴选项，这一步很重要)
用宏批量调整word中图片版式、大小、方向
Sub 图片对齐() (1) Sub 图片大小() (1) Sub 浮于文字上方() ................................................................................................ 错误！未定义书签。Sub 浮于文字上方() . (4) Sub 连续() (4) Sub 版式转换() (4) Sub 图片方向() (5) Sub 图片对齐() Application.ScreenUpdating = False '关闭屏幕更新 Dim n On Error Resume Next For n = 1 To ActiveDocument.Shapes.Count ActiveDocument.Shapes(n).Select Selection.ShapeRange.RelativeHorizontalPosition = _ wdRelativeHorizontalPositionMargin Selection.ShapeRange.RelativeVerticalPosition = _ wdRelativeVerticalPositionMargin Selection.ShapeRange.Left = wdShapeRight Selection.ShapeRange.Top = wdShapeBottom Selection.ShapeRange.LockAnchor = False https://www.360docs.net/doc/3b8243788.html,youtInCell = True Selection.ShapeRange.WrapFormat.AllowOverlap = False Selection.ShapeRange.WrapFormat.Side = wdWrapBoth Next Application.ScreenUpdating = True '恢复屏幕更新 End Sub Sub 图片大小() On Error Resume Next Dim mywidth
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.选中“常用文档”菜单中某个菜单项(如“工资表”等)，右击鼠标，在弹出的快捷菜
word宏命令等比例放大缩小所有图片或指定更改图片大小
需要将一篇word文档中的所有图片全部缩小比例，怎么办？一张张改太麻烦了。可以用Word里宏命令的批量处理解决。需要注意的地方就是注意厘米与像素的换算关系。一般情况下1厘米=28px 。这个换算关系其实可以用计算器计算出来。计算公式为图片改变之后的像素除以改变之后图片的大小厘米。 固定长宽篇代码 Sub setpicsize() '设置图片大小 Dim n '图片个数 On Error Resume Next'忽略错误 For n = 1To ActiveDocument.InlineShapes.Count 'InlineShapes类型图 片 ActiveDocument.InlineShapes(n).Height = 400'设置图片高度为 400px ActiveDocument.InlineShapes(n).Width = 300'设置图片宽度 300px ActiveDocument.InlineShapes(n).Range.ParagraphFormat.Alignment= wdAlignParagraphCenter '设置图片居中 Next n For n = 1To ActiveDocument.Shapes.Count 'Shapes类型图片ActiveDocument.Shapes(n).Height = 400'设置图片高度为 400px ActiveDocument.Shapes(n).Width = 300'设置图片宽度 300px Next n End Sub
说明： 1.VB语言中对图片大小的设置是以原图的长宽等比在缩放，统一设置时默认优 先对齐所有图片的“宽度”。 2.ActiveDocument.InlineShapes(n).Range.ParagraphFormat.Alignment= wdAlignParagraphCenter '设置图片居中可以让图片居中，Left、Right 可以分别设置左对齐、右对齐。 3.全文如果有“手动换行符”↓（代码是^l），设置某一部分居中时会影响漆上 下部分的居中与否，因而，如果需要只对图片进行居中，则需先将全文中的↓替换成“段落标记符”（常规回车键，代码是^p）。 4.这里的Shapes（InlineShapes）不仅仅是指图片，也包含其它的，自选图形、 任意多边形、OLE 对象、ActiveX 控件、图片等。 5.InlineShapes类型图片与Shapes类型图片的区别有待研究。 按比例缩放篇代码 Sub setpicsize() '设置图片大小 Dim n Dim picwidth Dim picheight On Error Resume Next '忽略错误
excel表格如何制作高清图片
excel表格如何制作高清图片 篇一：Excel中如何让图片跟着表格走 唯美之夏 我们在做有图片的EXCEL中往往会遇到一些莫名奇怪的问题， 我就遇到这么一个问题，前面的都排好了，都弄的差不多了，突然领导交代，在某一行中在插入一行，再放张别的图进去，这下完蛋了，左边选中一行点击插入，我在第一行和第二行中间插入了一行，结果图片并没有跟着移动，这些麻烦了，如果下面还有很多图片，一张一张的对应那要移动到什么时候呢？ 妙招来了： 选中图片，点击右键中的大小和属性，点击属性，选择大小固定，位置随单元格变化，关闭， 重新插入一行试试看，是不是图片跟着单元格一起走了呢？ 篇二：Excel表格制作技巧大全(图文) Excel表格的必学秘技（有图） 也许你已经在Excel中完成过上百张财务报表，也许你已利用Excel函数实现过上千次的复杂运算，也许你认为Excel也不过如此，甚至了无新意。但我们平日里无数次重复的得心应手的使用方法只不过是Excel全部技巧的百分之一。本专题从Excel中的一些鲜为人知的技巧入手，领略一下关于Excel的别样风情。 目录：
1、建立分类下拉列表填充项 2、建立“常用文档”新菜单 3、让不同类型数据用不同颜色显示 4、制作“专业符号”工具栏 5、用“视面管理器”保存多个打印页面 6、让数据按需排序 7、把数据彻底隐藏起来 8、让中、英文输入法智能化地出现 9、让“自动更正”输入统一的文本 10、在Excel中自定义函数 11、表头下面衬张图片 12、用连字符“&”来合并文本 13、快速打印学生成绩条 14、Excel帮你选函数 15、同时查看不同工作表中多个单元格内的数据 16、为单元格快速画边框 17、控制特定单元格输入文本的长度 18、成组填充多张表格的固定单元格 19、改变文本的大小写 20、提取字符串中的特定字符 21、把基数词转换成序数词 22、用特殊符号补齐位数
