wordvba图片位置

Ⅰ 大神，图片按照规律批量导入Word指定位置，如何用VBA实现

看我的头像，找到我的主页，联系上我。
网络很垄断，很霸道，我的任何回答，它就都直接屏蔽删除！

Ⅱ vba怎么控制word图片的间距

首先，正常插入图片的时候，默认图片在文档中会占据一整行。
这个时候，要改变文本与图片的距离，就要用到段落调整了。
将光标移动到图片旁，单击鼠标右键，选中“段落”选项。
在段落设置栏中，可以通过改变图片所在行的“段前”和“段后”距离，以改变文本和图片的间距。
也可以单击选中图片，右键选择“自动换行”选项中的不同图片模式以改变图片和文本的位置关系。

Ⅲ 用宏批量定位word中图片位置

帮你稍微修改了一下，使所有嵌入式图片居中。
对于所有图片，可以用ActiveDocument.Shapes.Count
注意：这里的Shapes（InlineShapes）不仅仅是指图片，也包含其它的，自选图形、任意多边形、OLE 对象、ActiveX 控件、图片等。

Sub setpicsize()
'设置图片大小
' 宏在 2008-3-31 由 hero_thm 录制
'
Dim j '计数图片个数
For j = 1 To ActiveDocument.InlineShapes.Count '文件中图片总个数，图片类型为inlineshapes
ActiveDocument.InlineShapes(j).Select '选中图片
Selection.ParagraphFormat.Alignment = wdAlignParagraphCenter '图片居中；wdAlignParagraphLeft左对齐
Next j

End Sub

上面，我补充的语句，其实也是录制宏的方式，生成的。（先选中图片，再点居中按钮）
另外，学习宏，多看看Word自带的帮助文档吧。

==========2008-4-16========

Sub setpicsize()
'
Dim j '计数图片个数

For j = 1 To ActiveDocument.InlineShapes.Count '文件中图片总个数，图片类型也可以为shapes

ActiveDocument.InlineShapes(j).Select '选中图片
'ActiveDocument.InlineShapes(j).Range.Paragraphs(1).Range.Select '上一行不行，用这个

With Selection.ParagraphFormat '所选段落的格式
.Alignment = wdAlignParagraphCenter '图片居中
.LeftIndent = 0 '左缩进磅数
.RightIndent = 0 '右缩进磅数
.FirstLineIndent = 0 '首行缩进磅数
.CharacterUnitLeftIndent = 0 '左缩进字符数
.CharacterUnitRightIndent = 0 '右缩进字符数
.CharacterUnitFirstLineIndent = 0 '首行缩进字符数

End With
Next j

End Sub

Ⅳ word的VBA问题，如何让光标移动到指定的位置

方法和详细的操作步骤如下：

1、第一步，打开包含4页的word文档，见下图，转到下面的步骤。

Ⅳ word里怎么用 宏 调整图片位置

如果用Word插入这种方法是最麻烦最累的一种，只要排版移动，图片即可窜到不知神马位置了。本人经验共享建议：
准备好照片后，打开插入，插入一个文本框，然后将照片粘贴到文本框里或文本框内容鼠标位置在插入照片里选中照片后被粘贴到文本框。
如果看不见照片，则在文本框位置排版的行距为单行距，照片即可显示，这时选择照片选择缩放到合适文件编辑排版的尺寸大小即可。
如果想调整位置，则鼠标放在文本框，按右键，弹出右键菜单后，找到居中，靠右靠左等位置，文本框会讲照片一起按选择移动到想要位置。
如果想换到另外的页，按住文本框，拖到想要的页面即可。
如果想添文字说明，则可以在照片的上下左右想要的位置输入文字，添加上去，文本框里的照片同样可以用右键菜单调整左中右排列，文字在上更简单，鼠标移到图片最前，回车即可换行，再在首行输入文字，同样可以排版左中右显示文字。
如果嫌文本框颜色不好看，可选中文本框，右键菜单线条颜色可任意调整也可无色线条只显示图片与文字。

Ⅵ word vba 插入图片

Sub 批量插入图片()
Dim myfile As FileDialog
Set myfile = Application.FileDialog(msoFileDialogFilePicker)
With myfile
.InitialFileName = "E:\工作文件" ‘这里输入你要插入图片的目标文件夹
If .Show = -1 Then
For Each Fn In .SelectedItems
Selection.Text = Basename(Fn) '这两句移到这里
Selection.EndKey
If Selection.Start = ActiveDocument.Content.End - 1 Then '如光标在文末
Selection.TypeParagraph '在文末添加一空段
Else
Selection.MoveDown
End If
Set MyPic = Selection.InlineShapes.AddPicture(FileName:=Fn, SaveWithDocument:=True) '按比例调整相片尺寸
WidthNum = MyPic.Width
c = 6 '在此处修改相片宽,单位厘米
MyPic.Width = c * 28.35
MyPic.Height = (c * 28.35 / WidthNum) * MyPic.Height
If Selection.Start = ActiveDocument.Content.End - 1 Then '如光标在文末
Selection.TypeParagraph '在文末添加一空段
Else
Selection.MoveDown
End If
Next Fn
Else
End If
End With
Set myfile = Nothing
End Sub
Function Basename(FullPath) '取得文件名
Dim x, y
Dim tmpstring
tmpstring = FullPath
x = Len(FullPath)
For y = x To 1 Step -1
If Mid(FullPath, y, 1) = "\" Or _
Mid(FullPath, y, 1) = ":" Or _
Mid(FullPath, y, 1) = "/" Then
tmpstring = Mid(FullPath, y + 1)
Exit For
End If
Next
Basename = Left(tmpstring, Len(tmpstring) - 4)
End Function
执行此代码后，弹出的选择对话框， 全选目标文件夹下的所有图片文件之后，点击确定。然后静静的等待电脑完成处理工作，次数word会进入无响应状态。图片越多，无响应的时间越长。

Ⅶ word 文档中的图片怎么用vba 批量自动保存为逐个的jpg 文件呢

不用VBA，编程一般人玩不了，给你一个最简单的方法，可以一下子把所有的图片一下子保存都保存下来。
1、你先把Word文档复制一个副本，用于保存原文档。
2、打开Word文档，Word菜单→另存为→选择htm网页格式，找到位置，保存。退出文档。
3、在保存网页的位置，找到与文档相同名字的一个文件夹，你想要的图片都在文件夹内了。
4、整理一下文件夹内的图片，OK。（可能会有较多不想要的其他东西，可以删除），也可以把文件夹外的网页文件删除了。

Ⅷ word 中使用vba 处理图片，能否以水平或垂直方式来处理宽和高，或者调整图片中的那个东东

选中那个东西，按住CTRL可以按15度角转到你想要人位置。

Ⅸ Word中VBA代码如何处理嵌入的图片真正做到居中

按Alt+F11组合键打开VBA窗口，双击左侧的“工程资源管理器”窗口的“ThisDocument”，在弹出的空白窗口中输入以下代码：
Sub AAA1()
Dim myS As InlineShape
Application.ScreenUpdating = False
For Each myS In ActiveDocument.InlineShapes
If Len(myS.Range.Paragraphs(1).Range.Text) = 2 Then
myS.Range.Paragraphs.Alignment = wdAlignParagraphCenter
End If
Next
Application.ScreenUpdating = True
End Sub
按F5键执行即可。

Ⅹ word中使用vba按照现在图片的顺序，用新的图片把旧图片全部替换，图片名称统一由规定的

解题思路很重要，下面给出替换图片的关键代码：

Sub替换活动文档中的第一张图片()
ActiveDocument.InlineShapes(1).Select
Selection.InlineShapes.AddPicture"[要替换的图片的完整路径]"
EndSub

PS：实际使用中可以将要替换的新图片按照 Word 文档中的图片出现的顺序进行编号（如1.jpg、2.jpg、3.jpg...）并放入一个文件夹中，然后将上述代码放入循环语句中并稍作修改，通过遍历 Word 文档中的 InlineShapes 对象同时传递图片的完整路径即可实现全部替换！