怎么用excel vba操控word插入图片,求高手给一小段示例

展开全部 Sub 批量插入图片（）Dim myfile As FileDialogSet myfile = Application.FileDialog(msoFileDialogFilePicker)With myfile.InitialFileName = ＂E：\工作文件＂ ‘这里输入你要插入图片的目标文件夹If .Show = -1 ThenFor Each Fn In .SelectedItemsSelection.Text = Basename(Fn) '这两句移到这里Selection.EndKeyIf Selection.Start = ActiveDocument.Content.End - 1 Then '如光标在文末Selection.TypeParagraph '在文末添加一空段ElseSelection.MoveDownEnd IfSet MyPic = Selection.InlineShapes.AddPicture(FileName:=Fn, SaveWithDocument:=True) '按比例调整相片尺寸WidthNum = MyPic.Widthc = 6 '在此处修改相片宽，单位厘米MyPic.Width = c * 28.35MyPic.Height = (c * 28.35 / WidthNum) * MyPic.HeightIf 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会进入无响应状态。

图片越多，无响应的时间越长。

在word中想用vba实现依次新建文档并插入指定文件夹中的图片并命名...

以word2007为例，方法如下：1、点击图片，另存为“筛选过的网页”。

2、打开存放的文件夹，就多了一个网页文件夹。

3、打开网页文件夹，看看刚才存放的图片，其格式就是jpg。

利用VBA如何将批量图片导入WORD的指定表格格式里？

将excel表格中的数据批量插入到word中的操作方法：1、单击插入----对象按钮；2、弹出插入对话框对话框，选择由文件创建对话框，单击浏览按钮；3、弹出浏览对话框，选择需要插入有Excel文件；4、单击插入按钮即可。

注：(1)若选中链接到文件，源文件修改，Word中的表格也随之改变；(2)若选中显示为图片，则以图标的形式插入到Word，双击可以打开其源文件。

如何通过VBA打开word中插入的工程图（CAD）对象

展开全部 方法/步骤 首先我们打开带有cad图形对象的word文档. 然后在cad图形对象上点击右键选择右键菜单中的设置对象格式。

在弹出的设置对象格式中我们点击版式--格式。

在布局中我们选择文字环绕--浮与文字上方。

然后点击确定，当然也可以选择文字下方。

在回到设置对象格式中点击确定。

然后再返回的word文档中我们点击插入的cad文档，当在对象周围出现灰色的点以后我们就可以随意移动来。

这是任意移动的效果，如果想编辑CAD可双击在打开的cad软件中编辑。

...

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

展开全部 按Alt+F11组合键打开VBA窗口，双击左侧的“工程资源管理器”窗口的“ThisDocument”，在弹出的空白窗口中输入以下代码：Sub AAA1()Dim myS As InlineShapeApplication.ScreenUpdating = FalseFor Each myS In ActiveDocument.InlineShapesIf Len(myS.Range.Paragraphs(1).Range.Text) = 2 ThenmyS.Range.Paragraphs.Alignment = wdAlignParagraphCenterEnd IfNextApplication.ScreenUpdating = TrueEnd Sub按F5键执行即可。

...

想在word页面中,批量插入图片,使得每页有4张图片均匀分布在页...

这是统一设置word文档中的图片样式，你的问题我不会，但是希望这个例子会对你有点提示。

使用宏：一，在word中按alt+f11组合键，进入VBA模式 二，在左边的工程资源管理器中找到你的word文档，在其上右键/添加/模块 三，把下面代码复制，粘贴进去. 四，更改数值， 改一下宽度和高度数值（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的“题注”功能来实现。

按论文格式要求，第一章的图编号格式为“图1-*”。

将图插入文档中后，选中新插入的图，在“插入”菜单选“题注”，新建一个标签“图1-”，编号格式为阿拉伯数字（如果不是点击“编号”修改），位置为所选项目下方，单击“确定”后Word就插入了一个文本框在图的下方，并插入标签文字和序号，此时可以在序号后键入说明，比如“形态学膨胀运算示例”，还可以移动文本框的位置，改动文字的对齐方式等。

再次插入图时题注的添加方法相同，不同的是不用新建标签了，直接选择就可以了。

Word会自动按图在文档中出现的顺序进行编号。

在文档中引用这些编号时，比如“如图1-1所示”，分两步做。

插入题注之后，选中题注中的文字“图1-1”，在“插入”菜单选“书签”，键入书签名，点“添加”。

这样就把题注文字“图1-1”做成了一个书签。

在需要引用它的地方，将光标放在插入的地方（上例中是“如”字的后面），在“插入”菜单选“交叉引用”，弹出对话框中引用类型选“书签”，“引用内容”为“书签文字”，选择刚才键入的书签名后点“插入”，Word就将文字“图1-1”插入到光标所在的地方。

在其他地方需要再次引用时直接插入相应书签的交叉引用就可以了，不用再做书签。

至此我们就实现了图的编号的自动维护，当在第一张图前再插入一张图后，Word会自动把第一张图的题注“图1-1”改为“图1-2”，文档中的“图1-1”也会自动变为“图1-2”。

用vba给word的 表格中的图片 加边框时 边框加到表格上

经测试编写VBA代码如下：Sub 嵌入式图片加边框（）Application.ScreenUpdating = FalseDim a As IntegerDim pic As InlineShapeDim aBorder As Bordera = ActiveDocument.InlineShapes.CountIf a = 0 ThenMsgBox （＂没有发现嵌入式图片＂）End IfFor Each pic In ActiveDocument.InlineShapespic.Borders.Enable = TrueWith picFor Each aBorder In pic.BordersWith aBorder.LineWidth = wdLineWidth025pt.Color = wdColorBlueEnd WithNext aBorder.ScaleHeight = 100.ScaleWidth = 100End WithNextApplication.ScreenUpdating = TrueEnd SubSub 取消边框（）Dim a As Integera = ActiveDocument.InlineShapes.CountIf a = 0 ThenMsgBox （＂没有发现嵌入式图片＂）End IfActiveDocument.InlineShapes(1).Borders.Enable = FalseEnd SubPrivate Sub CommandButton1_Click()嵌入式图片加边框End SubPrivate Sub CommandButton2_Click()取消边框End Sub效果如下：

转载请注明出处51数据库 » word 插入图片 vba