word中插入图片显示图片名称,修改图片大小的宏

合集下载

word中插入图片显示图片名称,修改图片大小的宏

word中插入图片显示图片名称,修改图片大小的宏

word中插入图片显示图片名称,修改图片大小的宏插入图片的同时显示图片名称Sub InsertPic()Dim myfileAsFileDialogSet myfile = Application.FileDialog(msoFileDialogFilePicker) With myfile.InitialFileName = "F:\"If .Show = -1 ThenFor Each fnIn .SelectedItemsSet mypic = Selection.InlineShapes.AddPicture(FileName:=fn, SaveWithDocument:=True)'按比例调整相片尺寸WidthNum = mypic.Widthc = 10 '在此处修改相片宽,单位厘米mypic.Width = c * 28.35mypic.Height = (c * 28.35 / WidthNum) * mypic.HeightIf Selection.Start = ActiveDocument.Content.End - 1 Then '如光标在文末Selection.TypeParagraph '在文末添加一空段ElseSelection.MoveDownEnd IfSelection.Text = Basename(fn) '函数取得文件名Selection.EndKeyIf Selection.Start = ActiveDocument.Content.End - 1 Then '如光标在文末Selection.TypeParagraph '在文末添加一空段ElseSelection.MoveDownEnd IfNext fnElseEnd IfEnd WithSet myfile = NothingEnd SubFunction Basename(FullPath) '取得文件名Dim x, yDim tmpstringtmpstring = FullPathx = Len(FullPath)For y = x To 1 Step -1If Mid(FullPath, y, 1) = "\" Or _Mid(FullPath, y, 1) = ":" Or _Mid(FullPath, y, 1) = "/" Thentmpstring = Mid(FullPath, y + 1)Exit ForEnd IfNextBasename = Left(tmpstring, Len(tmpstring) - 4)End Functionword批量修改图片大小——固定长宽篇这部分要说的是把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 '设置图片高度为400pxActiveDocument.InlineShapes(n).Width = 300 '设置图片宽度300pxNext nFor n = 1 To ActiveDocument.Shapes.Count 'Shapes类型图片ActiveDocument.Shapes(n).Height = 400 '设置图片高度为400pxActiveDocument.Shapes(n).Width = 300 '设置图片宽度300px Next nEnd Sub3、返回word,工具-宏-宏(或者直接按Alt+F8),再次进入宏的界面,选择刚才编辑好的宏,并单击“运行”按钮,就可以了!(图片多时,可能会花一些时间)word批量修改图片大小——按比例缩放篇这部分要说的是把word中的所有图片按比例缩放!具体操作同上,只是代码部分稍做修改,代码如下:Sub setpicsize() '设置图片大小Dim n '图片个数Dim picwidthDim picheightOn Error Resume Next '忽略错误For n = 1 To ActiveDocument.InlineShapes.Count 'InlineShapes类型图片picheight = ActiveDocument.InlineShapes(n).Heightpicwidth = ActiveDocument.InlineShapes(n).WidthActiveDocument.InlineShapes(n).Height = picheight * 1.1 '设置高度为1.1倍ActiveDocument.InlineShapes(n).Width = picwidth * 1.1 '设置宽度为1.1倍Next nFor n = 1 To ActiveDocument.Shapes.Count 'Shapes类型图片picheight = ActiveDocument.Shapes(n).Heightpicwidth = ActiveDocument.Shapes(n).WidthActiveDocument.Shapes(n).Height = picheight * 1.1 '设置高度为1.1倍ActiveDocument.Shapes(n).Width = picwidth * 1.1 '设置宽度为1.1倍Next nEnd Sub。

word批量修改图片大小++宏编程实现

word批量修改图片大小++宏编程实现

word批量修改图片大小宏编程实现word 批量修改图片大小——固定长宽篇这部分要说的是把 word 中的所有图片修改成固定的并且相同的长和宽~1、打开 word,工具,宏,宏(或者直接按 Alt+F8)进入宏的界面,如下面所示,输入一个宏名,能记住就行~宏名自己起,2、宏名起好了,单击“创建”进入 Visual Basic 编辑器,输入如下代码并保存:Sub setpicsize() '设置图片大小Dim n '图片个数Resume Next '忽On Error略错误For n = 1 To ActiveDocument.InlineShapes.Count 'InlineShapes 类型图片ActiveDocument.InlineShapes(n).Height = 400 '设置图片高度为 400pxActiveDocument.InlineShapes(n).Width = 300 '设置图片宽度 300px Next nFor n = 1 To ActiveDocument.Shapes.Count 'Shapes 类型图片ActiveDocument.Shapes(n).Height = 400 '设置图片高度为 400px ActiveDocument.Shapes(n).Width = 300 '设置图片宽度 300px Next n End Sub(以上这段代码以像素为单位修改图片)或:Sub setpicsize()Dim iSha As InlineShapeFor Each iSha In ActiveDocument.InlineShapesIf iSha.Type = wdInlineShapePicture TheniSha.LockAspectRatio = msoFalse '不锁定纵横比iSha.Width = CentimetersToPoints(5) '宽5CMiSha.Height = CentimetersToPoints(5) '高5CMEnd IfNextEnd Sub(以上这段代码以厘米cm为单位修改图片,不锁定纵横比)或:Sub 图片统一大小()On Error Resume NextDim mywidthDim myheightApplication.ScreenUpdating = False '关闭屏幕更新mywidth = Val(InputBox(Prompt:="单位为厘米(cm);如果输入为0,则图片保持原始纵横比,宽度根据输入的高度数值自动调整;", Title:="请输入图片宽度", Default:="0")) * 28.35myheight = Val(InputBox(Prompt:="单位为厘米(cm);如果输入为0,则图片保持原始纵横比,高度根据输入的宽度数值自动调整;", Title:="请输入图片高度", Default:="0")) * 28.35'------------------------------------------------------------------ '调整嵌入式图形Dim pic As InlineShapeFor Each pic In ActiveDocument.InlineShapes If mywidth = "0" Then pic.Height = myheightpic.ScaleWidth = pic.ScaleHeight ElseIf myheight = "0" Thenpic.Width = mywidthpic.ScaleHeight = pic.ScaleWidth Elsepic.Width = mywidthpic.Height = myheightEnd IfNext'调整浮动式图形Dim tu As ShapeFor Each tu In ActiveDocument.Shapes If mywidth = "0" Thentu.Height = myheightElseIf myheight = "0" Thentu.Width = mywidthElsetu.LockAspectRatio = msoFalsetu.Width = mywidthtu.Height = myheightEnd IfNextApplication.ScreenUpdating = True '恢复屏幕更新End Sub(有图形界面的宏,直接按提示输入数据就可以了(锁定纵横比))3、返回 word,工具,宏,宏(或者直接按 Alt+F8),再次进入宏的界面,选择刚才编辑好的宏,并单击“运行”按钮,就可以了~(图片多时,可能会花一些时间)word 批量修改图片大小——按比例缩放篇具体操作同上,只是代码部分稍做修改,代码这部分要说的是把 word 中的所有图片按比例缩放~如下:Sub setpicsize() '设置图片大小Dim n '图片个数Dim picwidthDim picheightOn Error Resume Next '忽略错误For n = 1 To ActiveDocument.InlineShapes.Count 'InlineShapes 类型图片 picheight = ActiveDocument.InlineShapes(n).Height picwidth =ActiveDocument.InlineShapes(n).WidthActiveDocument.InlineShapes(n).Height = picheight * 1.1 '设置高度为1.1 倍 ActiveDocument.InlineShapes(n).Width = picwidth * 1.1 '设置宽度为1.1 倍 Next nFor n = 1 To ActiveDocument.Shapes.Count 'Shapes 类型图片picheight = ActiveDocument.Shapes(n).Height picwidth = ActiveDocument.Shapes(n).Width ActiveDocument.Shapes(n).Height = picheight * 1.1 '设置高度为1.1 倍ActiveDocument.Shapes(n).Width = picwidth * 1.1 '设置宽度为1.1 倍Next nEnd Sub表格居中:Sub CenterTable()Application.Browser.Target = wdBrowseCommentFor i = 1 To ActiveDocument.Tables.CountActiveDocument.Tables(i).Rows.Alignment = wdAlignRowCenterActiveDocument.Tables(i).Range.Paragraphs.Alignment = wdAlignParagraphCenterActiveDocument.Tables(i).Rows.Height = 40Next iEnd Sub表格文字居中如果只是表格内容居中,请删除[ActiveDocument.Tables(i).Range.Paragraphs.Alignment = wdAlignParagraphCenter]行即:Sub CenterTable()Application.Browser.Target = wdBrowseCommentFor i = 1 To ActiveDocument.Tables.CountActiveDocument.Tables(i).Rows.Alignment = wdAlignRowCenter ActiveDocument.Tables(i).Rows.Height = 40Next iEnd Sub备注:数值可以自己调整。

Word中将图片变成统一大小的操作技巧

Word中将图片变成统一大小的操作技巧

Word中将图片变成统一大小的操作技巧
在word排版中,如果内容有多个图片,您想把所有图片变成统一大小,图片少你可以手拖拉,但是如果是几十张上百张,累死人。

今天,店铺就教大家在Word中将图片变成统一大小的操作技巧。

Word中将图片变成统一大小的操作步骤
准备图片,我就以5张图片为例吧。

打开word,导入图片。

插入-图片,选择图片插入,进入目录后,Ctrl+A即可选择全部。

按Alt+F8,进入宏编辑窗口。

首先输入宏名称,然后点击新建即可。

在代码窗口中输入如下代码:
Dim iSha As InlineShapeFor Each iSha In ActiveDocument.InlineShapes If iSha.Type = wdInlineShapePicture Then iSha.LockAspectRatio = msoFalse '不锁定纵横比iSha.Width = CentimetersToPoints(9#) '宽5CM iSha.Height = CentimetersT oPoints(9.2) '高5CM End If Next 点击运行,如下图:
运行后,关闭宏编辑窗口,放心,关闭窗口后,宏还在,可以不保存。

结果如下:。

Word中如何调整的大小和位置

Word中如何调整的大小和位置

Word中如何调整的大小和位置Word中如何调整图片大小和位置在使用Microsoft Word编写文档时,经常需要在文档中插入图片以丰富内容。

而为了使得文档更加整洁美观,经常需要对插入的图片进行大小和位置的调整。

本文将详细介绍在Word中如何进行这些调整操作。

一、调整图片大小调整图片大小是常见的操作,可以根据需要将图片放大、缩小或保持原尺寸。

下面将介绍两种方法来调整图片的大小。

方法一:使用鼠标调整大小1. 首先,在Word文档中插入一张图片。

2. 确保图片被选中,此时会出现图片周围的边框和调整手柄。

3. 将鼠标移动到调整手柄上,鼠标会变为双向箭头的形状。

4. 按住鼠标左键,同时拖动调整手柄,即可改变图片的大小。

5. 释放鼠标左键后,图片的大小将会调整完成。

方法二:使用菜单调整大小1. 首先,在Word文档中插入一张图片。

2. 选中图片,点击菜单栏上的“格式”选项卡。

3. 在“格式”选项卡中的“大小”组中,可以看到“调整大小”按钮,点击它。

4. 在弹出的对话框中,可以设置图片的具体尺寸大小。

可以选择按比例调整大小或自定义尺寸。

5. 点击“确定”按钮,图片的大小将会按照设定的尺寸进行调整。

二、调整图片位置除了调整图片的大小外,有时还需要调整图片的位置,使得图片能够与文本更好地配合。

下面将介绍两种方法来调整图片的位置。

方法一:使用鼠标拖动位置1. 在Word文档中插入一张图片。

2. 选中图片,此时鼠标会变为四箭头的形状。

3. 按住鼠标左键,同时拖动图片到指定位置,即可改变图片的位置。

4. 释放鼠标左键后,图片将会停留在新的位置。

方法二:使用布局选项1. 在Word文档中插入一张图片。

2. 选中图片,点击菜单栏上的“格式”选项卡。

3. 在“格式”选项卡中的“排列”组中,可以看到多种布局选项,如“紧密排列文字”,“嵌入型”等。

4. 根据需要选择合适的布局选项,图片将会根据所选布局进行调整位置。

综上所述,本文分别介绍了在Word中调整图片大小和位置的两种方法。

Word编程宏批量修改图片大小

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 '设置图片宽度 425pxNext nFor n = 1 To ActiveDocument.Shapes.Count 'Shapes类型图片ActiveDocument.InlineShapes(n).LockAspectRatio = msoFalse '不锁定图片的纵横比ActiveDocument.Shapes(n).Height = 320 '设置图片高度为 320pxActiveDocument.Shapes(n).Width = 425 '设置图片宽度 425pxNext nEnd Subword批量修改图片大小——固定长宽篇这部分要说的是把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 '设置图片宽度 300pxNext nFor n = 1 To ActiveDocument.Shapes.Count 'Shapes类型图片ActiveDocument.Shapes(n).Height = 400 '设置图片高度为 400px ActiveDocument.Shapes(n).Width = 300 '设置图片宽度 300pxNext nEnd Sub3、返回word,工具-宏-宏(或者直接按Alt+F8),再次进入宏的界面,选择刚才编辑好的宏,并单击“运行”按钮,就可以了!(图片多时,可能会花一些时间)word批量修改图片大小——按比例缩放篇这部分要说的是把word中的所有图片按比例缩放!具体操作同上,只是代码部分稍做修改,代码如下:Sub setpicsize() '设置图片大小Dim n'图片个数Dim picwidthDim picheightOn Error Resume Next '忽略错误For n = 1 To ActiveDocument.InlineShapes.Count 'InlineShapes类型图片picheight = ActiveDocument.InlineShapes(n).Heightpicwidth = ActiveDocument.InlineShapes(n).WidthActiveDocument.InlineShapes(n).Height = picheight * 0.8 '设置高度为1.1倍ActiveDocument.InlineShapes(n).Width = picwidth * 0.8 '设置宽度为1.1倍Next nFor n = 1 To ActiveDocument.Shapes.Count 'Shapes类型图片picheight = ActiveDocument.Shapes(n).Heightpicwidth = ActiveDocument.Shapes(n).WidthActiveDocument.Shapes(n).Height = picheight *0.8 '设置高度为1.1倍ActiveDocument.Shapes(n).Width = picwidth * 0.8 '设置宽度为1.1倍Next nEnd Sub。

【Word技巧】-如何用宏程序批量处理图片大小

【Word技巧】-如何用宏程序批量处理图片大小

Word技巧
如何用宏程序批量处理图片大小
1、统一图片大小+解除图片纵横比限制
Sub 图片统一大小() '设置图片大小
Dim n '图片个数
On Error Resume Next '忽略错误
For n = 1 To ActiveDocument.InlineShapes.Count 'InlineShapes类型图片ActiveDocument.InlineShapes(n).LockAspectRatio = msoFalse '解除纵横比锁定
ActiveDocument.InlineShapes(n).Height = 5 * 28.35 '设置图片高度为5cm(1cm 等于28.35px)
ActiveDocument.InlineShapes(n).Width = 5 * 28.35 ' 设置图片宽度5cm
Next n
End Sub
注:使用前要考虑各种特殊情况,如剪报中的logo也是会受到影响。

2、统一图片大小(不解除纵横比,可以仅限定宽或高)
Sub 统一图片大小()
Dim iShape As InlineShape
For Each iShape In ActiveDocument.InlineShapes
iShape.LockAspectRatio = msoTrue
iShape.Height = CentimetersToPoints(5)
iShape.Width = CentimetersToPoints(5)
Next
End Sub
以上代码直接ALT+F11 添加到宏程序中运行即可,标红部分可以自行修改。

word中如何将大量图片批处理统一的尺寸大小

word中如何将大量图片批处理统一的尺寸大小

选择工具——宏——宏(Alt+F8调出宏编辑窗口),输入宏名——(非数字)——创建;在Sub 宏名()与End Sub之间编写如下代码:(之后单击运行即可)Dim n '图片个数On Error Resume Next '忽略错误For n = 1 To ActiveDocument.InlineShapes.Count 'InlineShapes类型图片ActiveDocument.InlineShapes(n).Height = 99 '设置图片高度为99pxActiveDocument.InlineShapes(n).Width = 71 '设置图片宽度71pxNext nFor n = 1 To ActiveDocument.Shapes.Count 'Shapes类型图片ActiveDocument.Shapes(n).Height = 99 '设置图片高度为99pxActiveDocument.Shapes(n).Width = 71 '设置图片宽度71pxNext n我们可以尝试使用VBA完成Word文档中图片统一设置宽高:Sub 统一图片尺寸()'仅适用于嵌入式图片Dim oInlineShape As InlineShapeFor Each oInlineShape In ActiveDocument.InlineShapesWith oInlineShape.LockAspectRatio = msoFalse '不锁定纵横比.Height = MillimetersToPoints(23) '以毫米为单位设置高度.Width = MillimetersToPoints(31) '以毫米为单位设置宽度End WithNextEnd Sub如果是浮动式图形,可以使用以下方法简单实现:1、单击【绘图】工具栏右则的(工具栏选项)按钮,依次单击【添加或删除按钮】/【绘图】/【选中多个对象】命令,【选中多个对象】命令将被添加到【绘图】工具栏的最后位置。

如何统一调整WORD文档中的图片尺寸

如何统一调整WORD文档中的图片尺寸

如何统一调整WORD文档中的图片尺寸新建宏1、打开WORD,Alt+F8调出宏编辑窗口2、在宏名中填入名称,如名称为“调整图片大小”,然后点“创建“按钮,创建新宏,将以下内容复制填入:Word中调整图片大小的宏其中:Sub setpicsize() '设置图片大小Dim n '图片个数On Error Resume Next '忽略错误For n = 1 To ActiveDocument.InlineShapes.Count 'InlineShapes类型图片ActiveDocument.InlineShapes(n).Height = 160 '设置图片高度为400px ActiveDocument.InlineShapes(n).Width = 120 '设置图片宽度300px Next n For n = 1 To ActiveDocument.Shapes.Count 'Shapes类型图片ActiveDocument.Shapes(n).Height = 160 '设置图片高度为400px ActiveDocument.Shapes(n).Width = 120 '设置图片宽度300px Next n End SubSub 调整图片大小() '' 调整图片大小宏'Dim j '计数图片个数For j = 1 To ActiveDocument.InlineShapes.Count '文件中图片总个数,图片类型为inlineshapesActiveDocument.InlineShapes(j).Height = 328 '设置高度(28.4像素/厘米)ActiveDocument.InlineShapes(j).Width = 457 '设置宽度(28.4像素/厘米)Next j End Sub图1然后关闭。

Word中插入图片和调整图像大小的方法

Word中插入图片和调整图像大小的方法

Word中插入图片和调整图像大小的方法一、Word中插入图片的方法在Word文档中插入图片是常见的操作,可以通过以下几种方法实现:1. 点击“插入”选项卡,在“图片”组中点击“图片”按钮,然后选择要插入的图片文件,点击“插入”按钮即可将图片插入到文档中。

2. 直接将图片文件从资源管理器中拖拽到Word文档中,即可将图片插入到文档中。

3. 使用剪贴板粘贴图片,可以通过截屏、复制其他文档中的图片等方式将图片复制到剪贴板中,然后在Word文档中使用“粘贴”选项将图片插入到文档中。

二、Word中调整图像大小的方法在插入图片后,有时候需要对图像进行调整以适应文档的布局和设计要求。

下面介绍几种常见的图像调整方法:1. 等比例调整大小:选中图片,在“格式”选项卡的“大小”组中,手动输入所需的宽度和高度,勾选“锁定纵横比”选项,点击“确定”按钮,即可将图像等比例缩放到所设定的尺寸。

2. 拉伸调整大小:选中图片,在“格式”选项卡的“大小”组中,手动输入所需的宽度和高度,取消勾选“锁定纵横比”选项,点击“确定”按钮,即可将图像拉伸到所设定的尺寸。

3. 拖拽调整大小:可以直接在Word文档中选中图片边框上的调整手柄,然后按住鼠标左键,根据需要拖拽图片边框来调整大小。

4. 使用布局选项:在Word中,还可以使用图像的布局选项来调整图像的大小。

选中图片,点击“格式”选项卡中的“图片布局”按钮,选择合适的布局类型,如“四周型”、“紧密型”等,Word会自动根据布局类型调整图像的大小。

5. 借助调整工具栏:在Word的顶部菜单栏上,可以找到“图片工具栏”,该工具栏提供了多种调整图像大小的选项,如拉伸、压缩、裁剪等,可以通过点击相应的按钮来进行调整。

总结:插入图片和调整图像大小是Word编辑文档中常见的操作。

本文介绍了在Word中插入图片的三种方法,以及调整图像大小的五种常用方法。

通过掌握这些方法,用户可以灵活地在Word中插入和调整图片,从而使文档更加丰富多样。

word批量修改图片大小格式方框

word批量修改图片大小格式方框

1、打开word,工具-宏-宏(或者直接按Alt+F8)进入宏的界面,如下面所示,输入一个宏名,宏名自己起,能记住就行!宏名起好了,单击“创建”进入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 '设置图片宽度 300pxNext nFor n = 1 To ActiveDocument.Shapes.Count 'Shapes类型图片ActiveDocument.Shapes(n).Height = 400 '设置图片高度为 400pxActiveDocument.Shapes(n).Width = 300 '设置图片宽度 300pxNext nEnd Sub这样就可以了!2.按alt+F11。

然后在project右键插入模块,然后粘贴Sub Macro()Mywidth = 4.13Myheigth = 5.69For Each iShape In ActiveDocument.InlineShapes iShape.Height = 28.345 * MyheigthiShape.Width = 28.345 * MywidthNext iShapeEnd Sub再按F5,就行了。

【Mywidth = 4.13Myheigth = 5.69这里的数字你自己改大小】设定的高度是5.48cmSub Macro()Mywidth = 4.13Myheigth = 5.48For Each iShape In ActiveDocument.InlineShapes iShape.Height = 28.345 * MyheigthiShape.Width = 28.345 * MywidthNext iShapeEnd Sub批量改word文件中图大小word批量修改图片大小——固定长宽篇这部分要说的是把word中的所有图片修改成固定的并且相同的长和宽!打开word,工具-宏-宏(或者直接按Alt+F8)进入宏的界面,如下面所示,输入一个宏名,宏名自己起,能记住就行!宏名起好了,单击“创建”进入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 '设置图片宽度 300pxNext nFor n = 1 To ActiveDocument.Shapes.Count 'Shapes类型图片ActiveDocument.Shapes(n).Height = 400 '设置图片高度为 400px ActiveDocument.Shapes(n).Width = 300 '设置图片宽度 300pxNext nEnd Sub注:px 是像素 1厘米为25px,可以自行按照自己的实际情况修改代码中像素大小3、返回word,工具-宏-宏(或者直接按Alt+F8),再次进入宏的界面,选择刚才编辑好的宏,并单击“运行”按钮,就可以了!(图片多时,可能会花一些时间)word批量修改图片大小——按比例缩放篇这部分要说的是把word中的所有图片按比例缩放!具体操作同上,只是代码部分稍做修改,代码如下:Sub setpicsize() '设置图片大小Dim n '图片个数Dim picwidthDim picheightOn Error Resume Next '忽略错误For n = 1 To ActiveDocument.InlineShapes.Count 'InlineShapes类型图片picheight = ActiveDocument.InlineShapes(n).Heightpicwidth = ActiveDocument.InlineShapes(n).WidthActiveDocument.InlineShapes(n).Height = picheight * 1.1 '设置高度为1.1倍ActiveDocument.InlineShapes(n).Width = picwidth * 1.1 '设置宽度为1.1倍Next nFor n = 1 To ActiveDocument.Shapes.Count 'Shapes类型图片picheight = ActiveDocument.Shapes(n).Heightpicwidth = ActiveDocument.Shapes(n).WidthActiveDocument.Shapes(n).Height = picheight * 1.1 '设置高度为1.1倍ActiveDocument.Shapes(n).Width = picwidth * 1.1 '设置宽度为1.1倍Next nEnd SubWORD中如何:1、批量插入图片;2、批量修改图片大小;3、使图片在WORD中的位置相同。

word宏自动插图片并带上名字

word宏自动插图片并带上名字

插入图片自动放在表格中并获取图片的名字(宏VBA代码)如下格式:风景-01风景-02 风景-03………实现上述格式的宏代码程序如下:Sub 每行插入表格n个图()On Error Resume NextApplication.ScreenUpdating = FalseDim D As FileDialog, a, P As InlineShape, t As TableIf rmation(wdWithInTable) = True Then MsgBox "请将光标置于表格之外!": Exit SubWith Application.FileDialog(msoFileDialogFilePicker).Title = "请选择..."If .Show = -1 Thenn = InputBox("请输入表格的列数:", "列数", 3)M = .SelectedItems.CountDebug.Print "共有" & M & "个图片"; Mh = IIf(M / n = Int(M / n), 2 * M / n, 2 * (Int(M / n) + 1))Set t = ActiveDocument.Tables.Add(Selection.Range, h, n)t.Borders.Enable = Truet.Borders.OutsideLineStyle = wdLineStyleSingle '设置表格的外边框的类型For Each a In .SelectedItemsB = Split(a, "\")(UBound(Split(a, "\")))C = Split(B, ".")(0)Set P = Selection.InlineShapes.AddPicture(FileName:=a, SaveWithDocument:=True)With P '设置图片的大小w = .Width.Width = Int(410 / n).Height = .Width * .Height / wEnd With '设置图片大小结束i = i + 1Selection.MoveLeft wdCharacter, 1Selection.MoveDown wdLine, 1Selection.TypeText CSelection.Cells(1).SelectSelection.ParagraphFormat.Alignment = wdAlignParagraphCenter '决定了首行居中Selection.HomeKeySelection.MoveDown wdLine, -1Selection.MoveRight wdCharacter, 2Debug.Print i, nIf i = Val(n) ThenSelection.MoveRight wdCharacter, 1Selection.Cells(1).SelectSelection.EndKeySelection.MoveDown wdLine, 1i = 0End IfNextEnd IfEnd WithApplication.ScreenUpdating = True End Sub如下格式:风景-16风景-01实现上述格式的宏代码程序如下:Sub 简单无表格式1列插图()Dim myfile As FileDialogSet myfile = Application.FileDialog(msoFileDialogFilePicker)With myfile.InitialFileName = "F:\"If .Show = -1 ThenFor Each fn In .SelectedItemsSet mypic = Selection.InlineShapes.AddPicture(FileName:=fn, SaveWithDocument:=True)'按比例调整相片尺寸WidthNum = mypic.Widthc = 10 '在此处修改相片宽,单位厘米mypic.Width = c * 28.35mypic.Height = (c * 28.35 / WidthNum) * mypic.HeightIf Selection.Start = ActiveDocument.Content.End - 1 Then '如光标在文末Selection.TypeParagraph '在文末添加一空段ElseSelection.MoveDownEnd IfSelection.Text = Basename(fn) '函数取得文件名Selection.EndKeyIf Selection.Start = ActiveDocument.Content.End - 1 Then '如光标在文末Selection.TypeParagraph '在文末添加一空段ElseSelection.MoveDownEnd IfNext fnElseEnd IfEnd WithSet myfile = NothingEnd SubFunction Basename(FullPath) '取得文件名Dim x, yDim tmpstringtmpstring = FullPathx = Len(FullPath)For y = x To 1 Step -1If Mid(FullPath, y, 1) = "\" Or _Mid(FullPath, y, 1) = ":" Or _Mid(FullPath, y, 1) = "/" Thentmpstring = Mid(FullPath, y + 1)Exit ForEnd IfNextBasename = Left(tmpstring, Len(tmpstring) - 4) End Function。

word中批量修改图片大小的两个方法.doc

word中批量修改图片大小的两个方法.doc

word中批量修改图片大小的两个方法对于把ppt的内容拷贝到word中:对ppt的一页进行复制,然后粘贴到word中如果要的是ppt运行过程中的内容,在qq运行的情况下,按Ctrl+Alt+A 截屏,按勾,然后可以直接粘贴到word中(生成的图片已经在剪贴板中了)1.图片只需要符合文档大小即可方法:插入图片,word自动处理图片大小。

看一下下方的文件名按Ctrl+A(全选),图片的顺序按照电脑文件的顺序排列的每一次按Ctrl+点击图片,被点击的图片放在首位效果:2.图片需要修改为具体的大小把图片复制,直接在word中粘贴,图片以原始大小显示按视图按宏,查看宏,输入setpicsize,按创建复制并粘贴以下程序并按调试+编译,看看程序有没有错误Sub setpicsize()Dim iDim Height, WeightHeight = 300Weight = 200On Error Resume Next 忽略错误For i = 1 To ActiveDocument.InlineShapes.Count InlineShapes类型图片ActiveDocument.InlineShapes(i).Height = Height 设置图片高度为Height_pxActiveDocument.InlineShapes(i).Width = Weight 设置图片宽度Weight_pxNext iFor i = 1 To ActiveDocument.Shapes.Count Shapes类型图片ActiveDocument.Shapes(i).Height = Height 设置图片高度为Height_pxActiveDocument.Shapes(i).Width = Weight 设置图片宽度Weight_px Next iEnd Sub如果没有错误,保存(Ctrl+S)并退出(Alt+F4)然后按宏,查看宏,选择名字为setpicsize的宏,并按运行,稍等片刻即可完成或者直接在代码页面按运行+运行子过程(F5)效果:程序二修改第x张图片到第y张图片的大小(可以分成很多段)Sub ModifyPhoto1()Dim i, x, yDim Height, WeightHeight = 80Weight = 100修改第x张图片到第y张图片的大小x = 4y = 13On Error Resume Next 忽略错误For i = 1 To ActiveDocument.InlineShapes.Count InlineShapes类型图片If i >= x And i ActiveDocument.InlineShapes(i).Height = Height 设置图片高度为Height_pxActiveDocument.InlineShapes(i).Width = Weight 设置图片宽度Weight_pxEnd IfNext iFor i = 1 To ActiveDocument.Shapes.Count Shapes类型图片If i > k ThenActiveDocument.Shapes(i).Height = Height 设置图片高度为Height_pxActiveDocument.Shapes(i).Width = Weight 设置图片宽度Weight_pxEnd IfNext iEnd Sub效果:。

Word中修改图片尺寸的方法

Word中修改图片尺寸的方法

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 '设置图片宽度300pxNext nFor n = 1 To ActiveDocument.Shapes.Count 'Shapes类型图片ActiveDocument.Shapes(n).Height = 400 '设置图片高度为400pxActiveDocument.Shapes(n).Width = 300 '设置图片宽度300pxNext nEnd Sub3、返回word,工具-宏-宏(或者直接按Alt+F8),再次进入宏的界面,选择刚才编辑好的宏,并单击“运行”按钮,就可以了!(图片多时,可能会花一些时间)word批量修改图片大小——按比例缩放篇这部分要说的是把word中的所有图片按比例缩放!具体操作同上,只是代码部分稍做修改,代码如下:Sub setpicsize() '设置图片大小Dim n '图片个数Dim picwidthDim picheightOn Error Resume Next '忽略错误For n = 1 To ActiveDocument.InlineShapes.Count 'InlineShapes类型图片picheight = ActiveDocument.InlineShapes(n).Heightpicwidth = ActiveDocument.InlineShapes(n).WidthActiveDocument.InlineShapes(n).Height = picheight * 1.1 '设置高度为1.1倍ActiveDocument.InlineShapes(n).Width = picwidth * 1.1 '设置宽度为1.1倍Next nFor n = 1 To ActiveDocument.Shapes.Count 'Shapes类型图片picheight = ActiveDocument.Shapes(n).Heightpicwidth = ActiveDocument.Shapes(n).WidthActiveDocument.Shapes(n).Height = picheight * 1.1 '设置高度为1.1倍ActiveDocument.Shapes(n).Width = picwidth * 1.1 '设置宽度为1.1倍Next nEnd Sub会声会影的高级运动——自定义运动详解会声会影高级运动之自定义运动的操作:会声会影的高级运动之自定义运动,可在主视频轨及覆叠轨编辑!在主视频轨编辑时背景颜色默认为黑色,而在覆叠轨编辑时,主视频轨的素材可以作为背景,实现画中画的效果(即不使用画中画滤镜而实现画中画效果)。

用宏批量调整word中图片版式、大小、方向

用宏批量调整word中图片版式、大小、方向

用宏批量调整word中图片版式、大小、方向Sub 图片对齐() (2)Sub 图片大小() (3)Sub 浮于文字上方()................... 错误!未定义书签。

Sub 浮于文字上方().. (9)Sub 连续() (10)Sub 版式转换() (11)Sub 图片方向() (14)Sub 图片对齐()Application.ScreenUpdating = False '关闭屏幕更新Dim nOn Error Resume NextActiveDocument.Shapes(n).Select orizontalPosition = _wdRelativeHorizontalPositionMarginwdRelativeVerticalPositionMarginNextApplication.ScreenUpdating = True '恢复屏幕更新End SubSub 图片大小()On Error Resume NextDim mywidthDim myheightApplication.ScreenUpdating = False '关闭屏幕更新mywidth = Val(InputBox(Prompt:="单位为厘米(cm);如果输入为0,则图片保持原始纵横比,宽度根据输入的高度数值自动调整;", Title:="请输入图片宽度", Default:="0")) * 28.35myheight = Val(InputBox(Prompt:="单位为厘米(cm);如果输入为0,则图片保持原始纵横比,高度根据输入的宽度数值自动调整;", Title:="请输入图片高度", Default:="0")) * 28.35'------------------------------------------------------------------'调整嵌入式图形Dim pic As InlineShapeFor Each pic In ActiveDocument.InlineShapes If mywidth = "0" Thenpic.Height = myheightpic.ScaleWidth = pic.ScaleHeightElseIf myheight = "0" Thenpic.Width = mywidthpic.ScaleHeight = pic.ScaleWidthElsepic.Width = mywidthpic.Height = myheightEnd IfNext'调整浮动式图形Dim tu As ShapeFor Each tu In ActiveDocument.ShapesIf mywidth = "0" Thentu.Height = myheightElseIf myheight = "0" Thentu.Width = mywidthElsetu.LockAspectRatio = msoFalsetu.Width = mywidthtu.Height = myheightEnd IfNextApplication.ScreenUpdating = True '恢复屏幕更新End SubSub 浮于文字上方()Dim oShape As Variant, tu As Shape, i Application.ScreenUpdating = False '关闭屏幕更新On Error Resume Next'调整嵌入图形为浮于文字上方,并旋转90度For Each oShape In ActiveDocument.InlineShapesSet oShape = oShape.ConvertToShapeActiveDocument.InlineShapes(i).SelectWith oShape.WrapFormat.Type = 3' (去除.Zorder行.WrapFormat.Type = shapeType四周形.WrapFormat.Type = wdWrapTight紧密形改为.ConvertToInlineShape嵌入形).ZOrder 4 '4浮于文字上方5衬于下方.Rotation = -90#End WithNext'调整其它图形为浮于文字上方,并旋转90度For Each tu In ActiveDocument.ShapesActiveDocument.Shapes(i).SelectWith tu.WrapFormat.Type = 3' (去除.Zorder行.WrapFormat.Type = shapeType四周形.WrapFormat.Type = wdWrapTight紧密形改为.ConvertToInlineShape嵌入形).ZOrder 4 '4浮于文字上方5衬于下方.Rotation = -90#End WithNextApplication.ScreenUpdating = True '恢复屏幕更新End SubSub 浮于文字上方()Dim oShape As Variant, iApplication.ScreenUpdating = False '关闭屏幕更新On Error Resume NextFor Each oShape In ActiveDocument.InlineShapesSet oShape = oShape.ConvertToShapeActiveDocument.InlineShapes(i).Select '选中图片With oShape.ZOrder 4 '选中图片版式调为浮于文字上方.Rotation = -90# '选中图片向左旋转90度End WithNextApplication.ScreenUpdating = True '关闭屏幕更新End SubSub 连续()Call 浮于文字上方Call 图片大小Call 图片对齐End SubSub 版式转换()Dim oShape As Variant, shapeType As WdWrapTypeOn Error Resume NextIf MsgBox("Y将图片由嵌入式转为浮动式,N 将图片由浮动式转为嵌入式", 68) = 6 ThenshapeType = Val(InputBox(Prompt:="请输入图片版式:0=四周型,1=紧密型, " & vbLf & _"3=衬于文字下方,4=浮于文字上方", Default:=0)) For Each oShape In ActiveDocument.InlineShapesSet oShape = oShape.ConvertToShapeWith oShapeSelect Case shapeTypeCase 0, 1.WrapFormat.Type = shapeTypeCase 3.WrapFormat.Type = 3.ZOrder 5Case 4.WrapFormat.Type = 3.ZOrder 4Case ElseExit SubEnd Select.WrapFormat.AllowOverlap = FalseEnd WithNextElseFor Each oShape In ActiveDocument.ShapesoShape.ConvertToInlineShapeNextEnd IfEnd SubSub 图片方向()Dim nOn Error Resume Next ActiveDocument.Shapes(n).IncrementRotation -90#Next nEnd Sub。

  1. 1、下载文档前请自行甄别文档内容的完整性,平台不提供额外的编辑、内容补充、找答案等附加服务。
  2. 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
  3. 3、如文档侵犯您的权益,请联系客服反馈,我们会尽快为您处理(人工客服工作时间:9:00-18:30)。

插入图片的同时显示图片名称
SubInsertPic()
DimmyfileAsFileDialog
Setmyfile=Application.FileDialog(msoFileDialogFilePicker)
Withmyfile
.InitialFileName="F:\"
If.Show=-1Then
ForEachfnIn.SelectedItems
Setmypic=(FileName:=fn,SaveWithDocument:=True)
'按比例调整相片尺寸
WidthNum=mypic.Width
c=10'在此处修改相片宽,单位厘米
mypic.Width=c*28.35
mypic.Height=(c*28.35/WidthNum)*mypic.Height
IfSelection.Start=-1Then'如光标在文末
Selection.TypeParagraph'在文末添加一空段
Else
Selection.MoveDown
EndIf
Selection.Text=Basename(fn)'函数取得文件名
Selection.EndKey
IfSelection.Start=-1Then'如光标在文末
Selection.TypeParagraph'在文末添加一空段
Else
Selection.MoveDown
EndIf
Nextfn
Else
EndIf
EndWith
Setmyfile=Nothing
EndSub
FunctionBasename(FullPath)'取得文件名
Dimx,y
Dimtmpstring
tmpstring=FullPath
x=Len(FullPath)
Fory=xTo1Step-1
IfMid(FullPath,y,1)="\"Or_
Mid(FullPath,y,1)=":"Or_
Mid(FullPath,y,1)="/"Then
tmpstring=Mid(FullPath,y+1)
ExitFor
EndIf
Next
Basename=Left(tmpstring,Len(tmpstring)-4)
EndFunction
word批量修改图片大小——固定长宽篇
这部分要说的是把word中的所有图片修改成固定的并且相同的长和宽!
1、打开word,工具-宏-宏(或者直接按Alt+F8)进入宏的界面,如下面所示,输入一个宏名,宏名自己起,能记住就行!
2、宏名起好了,单击“创建”进入VisualBasic编辑器,输入如下代码并保存Subsetpicsize()'设置图片大小
Dimn'图片个数
OnErrorResumeNext'忽略错误
Forn=1To'InlineShapes类型图片
ActiveDocument.InlineShapes(n).Height=400'设置图片高度为400px
ActiveDocument.InlineShapes(n).Width=300'设置图片宽度300px
Nextn
Forn=1To'Shapes类型图片
ActiveDocument.Shapes(n).Height=400'设置图片高度为400px
ActiveDocument.Shapes(n).Width=300'设置图片宽度300px
Nextn
EndSub
3、返回word,工具-宏-宏(或者直接按Alt+F8),再次进入宏的界面,选择刚才编辑好的宏,并单击“运行”按钮,就可以了!(图片多时,可能会花一些时间)
word批量修改图片大小——按比例缩放篇
这部分要说的是把word中的所有图片按比例缩放!
具体操作同上,只是代码部分稍做修改,代码如下:
Subsetpicsize()'设置图片大小
Dimn'图片个数
Dimpicwidth
Dimpicheight
OnErrorResumeNext'忽略错误
Forn=1To'InlineShapes类型图片
picheight=ActiveDocument.InlineShapes(n).Height
picwidth=ActiveDocument.InlineShapes(n).Width
ActiveDocument.InlineShapes(n).Height=picheight*1.1'设置高度为1.1倍ActiveDocument.InlineShapes(n).Width=picwidth*1.1'设置宽度为1.1倍
Nextn
Forn=1To'Shapes类型图片
picheight=ActiveDocument.Shapes(n).Height
picwidth=ActiveDocument.Shapes(n).Width
ActiveDocument.Shapes(n).Height=picheight*1.1'设置高度为1.1倍ActiveDocument.Shapes(n).Width=picwidth*1.1'设置宽度为1.1倍Nextn
EndSub。

相关文档
最新文档