vb设置word图片比例

‘壹’ word中批量修改图片大小

小一最近在复习高数，复习材料当然是下载的电子版的了，嘿嘿！不过~~这材料居然~~所有复杂的式子都是图片形式的，光是这样小一也就忍了，关键高数 嘛~~式子会比较复杂，这些图片做的又那么小，根本看不清啊！按住Ctrl+滚轮倒是可以放大，但是这样不是很方便，而且~~小一还想打印出来呢，怎么办 呢？总不能一个图片一个图片的修改吧……

声明：小一下面要说的“批量修改word里的图片大小”的方法需要使用到宏，所以~~最好对VB有所了解！当然~~这不是必需的，只要跟着小一的图文教程走，不知道什么是宏，不知道什么是VB也可以！

这部分要说的是把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），再次进入宏的界面，选择刚才编辑好的宏，并单击“运行”按钮，就可以了！（图片多时，可能会花一些时间）

这部分要说的是把word中的所有图片按比例缩放！

   具体操作同上，只是代码部分稍做修改，代码如下：

   Sub setpicsize() '设置图片大小

   Dim n '图片个数

   Dim picwidth

   Dim picheight

   On Error Resume Next '忽略错误

   For n = 1 To ActiveDocument.InlineShapes.Count '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倍

   Next n

   For 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 n

   End Sub

虽然小一的代码不是好代码，但确实能解决小一的问题，瞬间就把word文档里所有图片放大了1.1倍，各种公式、坐标轴都比原来清楚多了，

自动批量处理Word中图片，主要完成的工作是：重置所有图片，对所有图片做裁剪。代码很简单，但值得记录，以后可以参考。

For Each iShape In ActiveDocument.InlineShapes '1cm = 28.35 pt Dim pic If iShape.Type = wdInlineShapePicture Then iShape.Reset iShape.PictureFormat.CropTop = 1.5 * 28.345 iShape.PictureFormat.CropBottom = 1.5 * 28.345 iShape.PictureFormat.CropLeft = 1.2 * 28.345 iShape.PictureFormat.CropRight = 1.2 * 28.345 End If Next iShape End Sub

‘贰’ 怎样一次选中word文档里的所有图片并调整其大小

其实你误解了网友寒浪的意思，他说的意思是在按住shift不松，用鼠标将你文档页面中的所有图片点一遍，使它们全部被选中，这时就可以同时调整所有图片的大小了。
你可能还会说，那些图片一次只能选中一个，选第二个时前一个又脱离了被选中状态。这也有解决的办法：你先将某个图片选中，将其的“环绕方式”从“嵌入型”（注意：此时的“尺寸控点”为八个实心的小方块）改为“穿越型”（“尺寸控点”变为空心的小方块），将所有的图片全部改为“穿越型”后，就能在按住shift键的同时将文档中的所有图片选中，再在“设置图片格式”中一次性改变它们的大小了。
可要注意是否“锁定纵横比”哟！
祝你成功。

‘叁’ VB中的图像如何运用windows的剪贴板粘贴到WORD

在VB中运用Windows剪贴板将图像粘贴至Word，首先需按下"alt + PRINTSCREEN"键截取当前活动窗口。与楼上的方法不同，这里采用的是捕捉活动窗口的一部分而非整个屏幕。接着，打开附件中的画图程序，利用其中的选定工具，通常是一个矩形形状的工具，选中你想要使用的图像区域。完成选区后，可以通过复制或粘贴功能，将选中的图像内容转移至Word文档中。

在复制过程中，确保已经选中了图像区域。使用Ctrl + C组合键执行复制操作。然后，切换到Word文档中，通过点击右键选择“粘贴”选项，或使用快捷键Ctrl + V来将图像粘贴至文档内。在粘贴过程中，确保Word文档处于活动状态，以确保图像正确地插入并显示在文档中。

在使用过程中，可能需要调整图像大小或位置以适应文档布局。可以通过点击插入的图像，然后使用鼠标拖动来调整图像的大小，或点击图像周围的小正方形按钮调整图像位置。此外，还可以使用“图片工具”中的各种选项来进一步编辑图像，如旋转、裁剪或添加文本等。

使用Windows剪贴板将图像粘贴至Word的流程简单高效，能够快速将图像整合至文档中。通过上述步骤，可以轻松地在VB环境下将图像运用至Word文档中，以满足不同需求。此方法适用于多种场景，如文档插图、报告制作等。

‘肆’ word中插入图片高度宽度比例怎样设置

你好！word中插入图片最常用的是已经剪裁好的图片，其高度和宽度已经确定也就是说是锁定了高度和宽度的比例。插入图片后双击图片显示出图片的编辑界面，这时单击高度或宽度上的上下箭头高度和宽度会按比例增大或减小。打开插入图片的高级设置可以看到默认的选项是勾选了 锁定纵横比。我们去掉该项的勾选，这时可以单独调节高度或宽度的大小，但是调节之后我们会发现图片已经明显的变形了。这就表明插入图片的高度和宽度的比例取决于图片制作时的比例，插入时只能按比例调整图片的大小。

锁定纵横比

‘伍’ word宏代码--选中的图片修改尺寸 代码，不是批量处理

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 '忽略错误
For n = 1 To ActiveDocument.InlineShapes.Count 'InlineShapes类型图片 picheight = ActiveDocument.InlineShapes(n).Height picwidth = ActiveDocument.InlineShapes(n).Width

ActiveDocument.InlineShapes(n).Height = picheight * 0.6 '设置高度为0.6倍
ActiveDocument.InlineShapes(n).Width = picwidth * 0.6 '设置宽度为0.6倍 Next n
For n = 1 To ActiveDocument.Shapes.Count 'Shapes类型图片 picheight = ActiveDocument.Shapes(n).Height picwidth = ActiveDocument.Shapes(n).Width
ActiveDocument.Shapes(n).Height = picheight * 0.6 '设置高度为0.6倍 ActiveDocument.Shapes(n).Width = picwidth * 0.6 '设置宽度为0.6倍 Next n End Sub

‘陆’ Word文档如何排版图片

品牌型号：ThinkPad T460
系统版本：Windows10
软件版本：WPS2020
首先打开已经插入好图片的文档

‘柒’ word如何调整图片的方向word如何将多张图片统一调整

导言：word中我们可以单独设置一个图片的角度，但是有时候我们如果想设置所有图片的角度有没有什么好办法呢？答案就是vba操作，有的朋友一听vba，抱拳就要准备离开，别别别，其实vba使用起来不麻烦的，可以参考《如何批量修改word所有图片的尺寸》这篇文章的方法，3步就可以使用vba实现目的。
比如我们现在想让下面的图片全都顺时针旋转90度
那么我们的步骤如下
勾选开发工具后，进入vb编辑器，在右面的代码窗口中输入
Sub 更改图片方向()
On Error Resume Next
Application.ScreenUpdating = 0
Dim 浮动图, 嵌入图, 旋转角度$
Set 文档 = ActiveDocument
旋转角度 = InputBox("请输入你想要旋转的角度" & Chr(13) & "顺时针90度输入 90" & Chr(13) & "逆时针170度输入 -170")
For 浮动图 = 1 To 文档.Shapes.Count
文档.Shapes(浮动图).IncrementRotation 旋转角度
Next 浮动图
For 嵌入图 = 1 To 文档.Range.InlineShapes.Count
With 文档.Range.InlineShapes(嵌入图).ConvertToShape
.WrapFormat.Type = 4
.Rotation = 旋转角度
.ConvertToInlineShape
End With
Next 嵌入图
Application.ScreenUpdating = 1
MsgBox ("一闪流溢提示：旋转完毕")
End Sub
关闭vb窗口，按alt+F8，运行这个宏接下来会弹出一个窗口 让我们输入旋转的角度
这里要注意的是如果你想让图片逆时针旋转，那么就要输入负值
因为我们想让所有图片顺时针旋转90度，所以我们输入90
稍等片刻后
会弹出一个窗口，提示你所有图片旋转完毕
我们关掉窗口，就会看到所有的图片已经旋转了90度了
可以参考动图操作
总结时间
善用vba宏批量操作文档可以极快地提升工作效率且不易出错，关注并给我私信，发送关键词“批量旋转图片”即可bas代码源文件哦！

‘捌’ VB 如何控制WORD中插入图片的大小等属性

自己录个宏，稍加改动就可以了。

Sub 图片旋转270度对齐页面()
'图片排版270度
If Selection.InlineShapes.Count = 0 Then
If Selection.ShapeRange.Count <> 0 Then
Selection.ShapeRange.Fill.Visible = msoFalse
'Selection.ShapeRange.AlternativeText = "Higer标书工具修改"
Selection.ShapeRange.Fill.Solid
Selection.ShapeRange.Fill.Transparency = 0#
Selection.ShapeRange.Line.Weight = 0.75
Selection.ShapeRange.Line.DashStyle = msoLineSolid
Selection.ShapeRange.Line.Style = msoLineSingle
Selection.ShapeRange.Line.Transparency = 0#
Selection.ShapeRange.Line.Visible = msoFalse
Selection.ShapeRange.LockAspectRatio = msoFalse
Selection.ShapeRange.Rotation = 270#
Selection.ShapeRange.Width = CentimetersToPoints(28.9)
Selection.ShapeRange.Height = CentimetersToPoints(20.2)
'Selection.ShapeRange.PictureFormat.Brightness = 0.5
'Selection.ShapeRange.PictureFormat.Contrast = 0.5
'Selection.ShapeRange.PictureFormat.ColorType = msoPictureAutomatic
Selection.ShapeRange.PictureFormat.CropLeft = 0#
Selection.ShapeRange.PictureFormat.CropRight = 0#
Selection.ShapeRange.PictureFormat.CropTop = 0#
Selection.ShapeRange.PictureFormat.CropBottom = 0#
'Selection.ShapeRange.Left = 90.1
'Selection.ShapeRange.Top = 88.15
'Selection.ShapeRange.Left = -120.45
'Selection.ShapeRange.Top = 109.1
Selection.ShapeRange.RelativeHorizontalPosition = _

Selection.ShapeRange.RelativeVerticalPosition = _

Selection.ShapeRange.Left = wdShapeCenter
Selection.ShapeRange.Top = wdShapeCenter
Selection.ShapeRange.LockAnchor = False
Selection.ShapeRange.LayoutInCell = True
Selection.ShapeRange.WrapFormat.AllowOverlap = True
Selection.ShapeRange.WrapFormat.Side = wdWrapBoth
Selection.ShapeRange.WrapFormat.DistanceTop = CentimetersToPoints(0)
Selection.ShapeRange.WrapFormat.DistanceBottom = CentimetersToPoints(0)
Selection.ShapeRange.WrapFormat.DistanceLeft = CentimetersToPoints(0.32)
Selection.ShapeRange.WrapFormat.DistanceRight = CentimetersToPoints(0.32)
Selection.ShapeRange.WrapFormat.Type = 3
Selection.ShapeRange.ZOrder 4
Selection.ShapeRange.ZOrder msoSendBackward
End If
End If
If Selection <> "" Then
If Selection.InlineShapes.Count <> 0 Then
'Selection.InlineShapes(1).Fill.Visible = msoFalse
'Selection.InlineShapes(1).Fill.Solid
'Selection.InlineShapes(1).Fill.Transparency = 0#
'Selection.InlineShapes(1).Line.Weight = 0.75
'Selection.InlineShapes(1).Line.Transparency = 0#
'Selection.InlineShapes(1).Line.Visible = msoFalse
'Selection.InlineShapes(1).LockAspectRatio = msoFalse
'Selection.InlineShapes(1).Width = CentimetersToPoints(28.9)
'Selection.InlineShapes(1).Height = CentimetersToPoints(20.2)
'Selection.InlineShapes(1).PictureFormat.Brightness = 0.5
'Selection.InlineShapes(1).PictureFormat.Contrast = 0.5
'Selection.InlineShapes(1).PictureFormat.ColorType = msoPictureAutomatic
'Selection.InlineShapes(1).PictureFormat.CropLeft = 0#
'Selection.InlineShapes(1).PictureFormat.CropRight = 0#
'Selection.InlineShapes(1).PictureFormat.CropTop = 0#
'Selection.InlineShapes(1).PictureFormat.CropBottom = 0#
Selection.InlineShapes(1).ConvertToShape '属性转换（InlineShapes(1)转换为ShapeRange）
Selection.ShapeRange.Fill.Visible = msoFalse
'Selection.ShapeRange.AlternativeText = "Higer标书工具修改"
Selection.ShapeRange.Fill.Solid
Selection.ShapeRange.Fill.Transparency = 0#
Selection.ShapeRange.Line.Weight = 0.75
Selection.ShapeRange.Line.DashStyle = msoLineSolid
Selection.ShapeRange.Line.Style = msoLineSingle
Selection.ShapeRange.Line.Transparency = 0#
Selection.ShapeRange.Line.Visible = msoFalse
Selection.ShapeRange.LockAspectRatio = msoFalse
Selection.ShapeRange.Width = CentimetersToPoints(28.9)
Selection.ShapeRange.Height = CentimetersToPoints(20.2)
Selection.ShapeRange.Rotation = 270#
'Selection.ShapeRange.PictureFormat.Brightness = 0.5
'Selection.ShapeRange.PictureFormat.Contrast = 0.5
'Selection.ShapeRange.PictureFormat.ColorType = msoPictureAutomatic
Selection.ShapeRange.PictureFormat.CropLeft = 0#
Selection.ShapeRange.PictureFormat.CropRight = 0#
Selection.ShapeRange.PictureFormat.CropTop = 0#
Selection.ShapeRange.PictureFormat.CropBottom = 0#
Selection.ShapeRange.RelativeHorizontalPosition = _

Selection.ShapeRange.RelativeVerticalPosition = _

Selection.ShapeRange.Left = wdShapeCenter
Selection.ShapeRange.Top = wdShapeCenter
Selection.ShapeRange.LockAnchor = False
Selection.ShapeRange.LayoutInCell = True
Selection.ShapeRange.WrapFormat.AllowOverlap = True
Selection.ShapeRange.WrapFormat.Side = wdWrapBoth
Selection.ShapeRange.WrapFormat.DistanceTop = CentimetersToPoints(0)
Selection.ShapeRange.WrapFormat.DistanceBottom = CentimetersToPoints(0)
Selection.ShapeRange.WrapFormat.DistanceLeft = CentimetersToPoints(0.32)
Selection.ShapeRange.WrapFormat.DistanceRight = CentimetersToPoints(0.32)
Selection.ShapeRange.WrapFormat.Type = 3
Selection.ShapeRange.ZOrder 4
Selection.ShapeRange.ZOrder msoSendBackward
End If
End If
End Sub