竭诚为您提供优质文档/双击可除word表格批量插入图片 篇一：word20xx中批量快速插入图片技巧 word20xx中批量快速插入图片技巧 我们知道，对于某些特定的字符，可以通过“自动更正”的方法实现快速替换，其实图片也是可以自动更正的，这在需要经常调用某些图片时相当实用，这样就不需要每次逐个手工插入了。这里以word20xx为例进行说明，让你在输入“1”、“2”这些数字时，能够自动替换为相关的图片（例如频繁出现的公司logo图片等）。 首先将相关的图片插入到word文档的窗口中，然后按下“ctrl+c”组合键将它们复制到剪贴板中备用。这一步至关重要，否则下面的操作将无法正常完成。 接着单击office按钮打开“word选项”对话框，然后切换到“校对”选项卡，在这里你会发现一个“自动更正选项”的按钮，单击后即可打开如图所示的对话框，在“替换”后面的文本框中输入图片名称“1”。此时我们会发现原来右下角的“添加”按钮已经可以正常使用，接下来直接单击“添加”按钮，添加图片就可以了。
需要提醒的是，如果前面的步骤没有进行的话，那么即使在“替换”下面的文本框中输入了相关的字符，也会看到“添加”按钮仍然呈现不可用的灰色状态。 按照类似的步骤，你可以继续添加常用的图片到其他自动更正的项目，以后插入相关图片时就方便多了（虽然“替换为”文本框中没有任何反应，而且确认后“替换为”一列也只是显示为“*”号，但这只是显示的问题）。 以后，当我们在word文档中输入1、2这样的数字时，按下回车键后，相关的图片就会自动出现在word文档中，大大提高了工作效率。 20xx-07-27来源：it168 篇二：word与excel连接邮件合并批量插入照片 word与excel数据连接邮件合并批量照片自动插入方法 一、建立“照片名”的excel数据文件 1.建立文件夹：在d盘根目录下建立名为：yjhebing的文件夹,在这个文件夹里面在建立一个名为：zhaopianku的文件夹，所有照片放在zhaopianku的文件夹(word表格批量插入图片)里面 图-1：zhaopianku文件夹 2.开始——运行——输入cmd,按回车键，打开dos命令框。输入d:按回车建 再输入：cdyjhebing按回车键，再输入:cdzhaopianku
如何在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 键用鼠标点击上面的红字打开对应网页）
宏命令将图片批量替换成统一大小
宏命令将图片批量替换成统一大小 步骤： 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中输入：
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文档用宏批量调整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
批量插入图片批注
用VBA代码来快速实现Excel批注图片批量添加，步骤如下： 1.准备图片 将需要添加为批注的图片全部复制到某个文件夹中，并以“名称.jpg”来命名。 2.在单元格中输入名称，名称必需和图片名称相对应。 3.在VBA编辑器中添加下面的代码： Sub 添加图片批注() On Error Resume Next Dim Cell As Range Dim Pics As String Dim ErrCell As String Selection.ClearComments For Each Cell In Selection Pics = "C:\Users\admin\Desktop\新建文件夹(3)\" & Cell.Value & ".jpg" If Dir(Pics) = "" Then ErrCell = ErrCell & "" & Cell.Address(0, 0) Else With Cell.AddComment https://www.360docs.net/doc/7710887235.html,erPicture PictureFile:=Pics .Shape.Height = 100 .Shape.Width = 100 End With End If Next MsgBox "以下单元格没有图片哦！" & vbCrLf & ErrCell End Sub 其中“h:\pic\”为图片所在文件夹，“.Shape.Height = 100”指定批注图片的高度，“.Shape.Width = 100”指定批注的宽度，请根据实际情况进行更改。 4.选择所有包含名称的单元格，运行上述代码，即可为所有选中的单元格添加相应的图片批注。 注意在选择产品名称所在单元格时，仅仅选择所需单元格，而不能选择其他单元格，特别是在这些单元格不连续时，否则会出错。 5.如果要重新添加图片批注，必需先删除所有批注后再次运行VBA代码。方法是选择所有包含产品名称的单元格，鼠标右击，在弹出的快捷菜单中选择“删除批注”即可。
如何在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文档中的图片 宏+替换
批量删除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
用宏批量调整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/7710887235.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
word表格中批量导入照片
利用Word邮件合并批量打印带照片的证书 根据我们以前所学，利用word的邮件合并功能可以批量打印出相关信息，但批量打印带照片的证书，邮件合并能完成这个要求呢？经过一番摸索、查寻，终于找到办法可以解决了，具体过程如下： 准备工作：准备一份考生信息数据库，可以是Word创建的数据源，也可以像Excel工作簿、Access数据库、Query文件、Foxpro文件，都可以作为邮件合并的数据源。只要有这些文件存在，邮件合并时就不需要再创建新的数据源，直接打开这些数据源使用即可。需要注意的是：在使用Excel工作簿时，必须保证数据文件是数据库格式，即第一行必须是字段名，数据行中间不能有空行等。这样可以使不同的数据共享，避免重复劳动，提高办公效率。我最常用的是Excel 簿，里面包含了编号、准考证号、考生姓名及其他相关信息的字段，要批量打印照片的话，还需要加一个照片的路径和文件名的字段（如果照片的文件名正好是考生的准考证号或姓名的话，可免），假设照片放在e:\photo文件夹里，每位考生的照片文件名和准考证号相对应（如果用姓名的话可能会碰到同名同姓的问题）。数据准备工作的正确与否，关系到以后打印出来的证件正确与否，所以必须要仔细校对正确。 接下来的工作就是要设计邮件合并的模板了，步骤如下： 1．启动word程序，从菜单栏中选择“工具――邮件合并――显示栏邮件合并工具栏”，这时你会发现在工具栏中多了一栏邮件合并工具栏 2．然后画好表格填好项目，进行排版、设置纸张，再把光标置于要插入相应项目的位置，点击“邮件合并”工具栏的“插入合并域”下拉菜单（下拉菜单中的相应选项与Excel数据表格中的标题行是一一对应的），然后单击下拉菜单中的相应选项，直至插入所有只包含文字的域。 3．下面是实现批量打印照片的关键一步，就是照片域的实现：
Excel表格批量导入
软件名称：飞豆Excel表格批量导入快递单打印软件 软件版本：5.66 软件大小： 6.88 MB 建议分类：应用－扫描打印 软件作者：飞豆软件 作者邮件：768258@https://www.360docs.net/doc/7710887235.html, 网站名称：飞豆软件 作者网址：https://www.360docs.net/doc/7710887235.html,/ 下载地址：https://www.360docs.net/doc/7710887235.html,/down/Feidou_ExpressPrinter.rar 软件语言：简体 插件捆绑：无 授权形式：免费 应用平台：Win7/XP/Vista/2000/2003 软件截图：https://www.360docs.net/doc/7710887235.html,/images_doc/v120_home_01.jpg 软件介绍： 分销商数量众多，帮代发货的快递单怎么打？ 团购网，磨菇街，折800，卷皮网等等，订单批量导出来了怎么打印快递单？还在手抄上百份快递单？而且错误常常有，效率在哪里？ 飞豆轻松帮你解决，Excel表格导入批量打印完全自动化，精确高效，原来一天的工作量，飞豆让您翘起二郎腿点几下鼠标就完成任务。 几乎涵盖全国所有快递公司，截止2015年3月2日，快递单模板数量达到390个飞豆快递单打印软件会自动识别收件地址中的城市信息，同时可将它设置“大头笔” Excel编辑好商品名称、数量、带收货款金额及买家ID等等导入后一键自动打印。 勾选常用快递按钮，优先调取经常打印的快递公司。 自动存储发件人资料，下次打印时无需再次输入发件方信息。 自动记忆打印模板，无需繁琐的模板设计。 可以修改打印边距，精确打印位置。 智能一键捕捉淘宝、天猫、拍拍买家地址信息。 自动存储打印记录，方便日后管理。 复制收件人信息，自动识别收件人、地址、电话、单位名称。 “批量修改字体功能”，可以打印出与公司店铺风格相符快递面单。 数据库自动备份功能，每次软件关闭时会自动在D盘创建备份。 字段管理设置，可以设置常用的项目（代收货款、货物保价、其它备注等等）。新增了“快递员提醒”“签收提醒”字段。可以在快递单上打印“快递小哥，您辛苦了”之类的话语。 在线升级服务，正版用户免费升级软件最新版本。 杀毒软件误报：软件绝对不存在任何病毒，请放心使用，本软件被360软件大全收录，而且是目前评分最高的快递单打印软件。
Excel批量插入学籍照片的宏代码
Excel批量插入学籍照片的宏代码Sub InsertPic() On Error Resume Next Sheets(1).Select Sheets(1).Delete Sheets("照片").Select Sheets("照片").Copy Before:=Sheets("照片") Cells.Select Range("A2").Activate Selection.Copy Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Sheets("照片(2)").Select Sheets("照片(2)").Name = 1 Sheets("1").Select sPath = "d:\pic\" Application.ScreenUpdating = False With ThisWorkbook.Sheets("1") 'i = 3
For i = 3 To Int(Range("b2") / 6) * 2 + 3 Step 2 For x = 1 To 6 If .Cells(i, x) <> "" Then sfileName = sPath & .Cells(i, x) Cells(i, x).Select ActiveSheet.Pictures.Insert(sfileName).Select Selection.ShapeRange.ScaleHeight 1.5, msoFalse, msoScaleFromTopLeft Selection.ShapeRange.IncrementLeft 1.2 Selection.ShapeRange.IncrementTop 1.2 If Err <> 0 Then 'MsgBox .Cells(i, x) & "不存在" sfileName = sPath & "没有照片.jpg" Cells(i, x).Select
Excel 批量插入图片 VBA代码
Excel 批量插入图片VBA代码(2011-06-24 08:56:26)转载标签：excel批量插入图片代码杂谈 在要插入图片的文件夹里新建一个Excel文件，打开这个Excel文件，在要插入图片的单元格里填上图片文件名（不要扩展名），选中要插入图片的单元格，修改单元格的大小以显示所需要的图片大小，运行宏代码。 1、Alt+F11调取VBA编辑窗口，查看代码，将以下代码全部复制进去； 2、关闭VBA窗口，Excel-视图-宏-查看宏； 3、Book1.xls!Sheet1.insertPic，选中所要插入图片的单元格，执行； 4、图片自动插入对应的单元格中。（图片尺寸均可通过单元格大小进行调解，边框可设置）代码如下： Sub insertPic() ' 宏由https://www.360docs.net/doc/7710887235.html, 万加美酒编写，时间: 2009-6-1 ' Dir函数批量获取指定目录下所有文件名和内容 On Error Resume Next Application.ScreenUpdating = False '关闭屏幕更新 Dim MR As Range For Each MR In Selection If Not IsEmpty(MR) And Dir(ActiveWorkbook.Path & "\" & MR.V alue & ".jpg") <> "" Then MR.Select ML = MR.Left MT = MR.Top MW = MR.Width MH = MR.Height ActiveSheet.Shapes.AddShape(msoShapeRectangle, ML, MT, MW, MH).Select https://www.360docs.net/doc/7710887235.html,erPicture _ ActiveWorkbook.Path & "\" & MR.V alue & ".jpg" '当前文件所在目录下以当前单元内容为名称的.jpg图片 End If Next Set MR = Nothing Application.ScreenUpdating = True '开启屏幕更新 End Sub 我想"按一下按钮，插入图片" 我的vba code 如下: Sub Picture_Click_06202010() x = Cells (8, 4).V alue ChDir "C:\Users\myname\Desktop\picture\"
