VBA-EXCEL：控制WORD指定位置，插入图片并调整在大小，高低，环绕

小鸿叔

于 2020-08-09 20:39:59 发布

阅读量9.7k

点赞数 8

分类专栏： VBA OFFICE-EXCEL WORD 文章标签： Word 位置插入图片调整

本文链接：https://blog.csdn.net/jyh_jack/article/details/107899639

版权

OFFICE-EXCEL 同时被 3 个专栏收录

52 篇文章

订阅专栏

VBA

42 篇文章

订阅专栏

WORD

4 篇文章

订阅专栏

本文介绍使用VBA在Word中自动化操作的方法，包括创建Word应用程序实例，打开指定文档，定位书签，插入图片并调整其位置和大小，以及设置图片环绕方式。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

Dim WordApp As Object
Set WordApp = CreateObject("Word.Application")
WordApp.Visible = True
Dim WordDoc As Object
Set WordDoc = WordApp.Documents.Open(ThisWorkbook.Path & "\TEST.docx")

PicPath="图片地址"
WordApp.ActiveDocument.Bookmarks("BM1_1").Range.Select 'Word里定义书签BM1_1
Set Pic = WordApp.Selection.InlineShapes.AddPicture(Filename:=PicPath, SaveWithDocument:=True) '插入图片
Set Shape = Pic.ConvertToShape '转为Shape后才可以调整
Shape.Top = Shape.Top + 10
Shape.Left =  10
Shape.Width = 10
Shape.Height = 10

'嵌入式  -未验证
Shape.WrapFormat.Type = wdWrapTight '紧密环绕

'wdWrapInline 嵌入式
'wdWrapNone 改为默认
'wdWrapSquare 四周环绕
'wdWrapThrough 穿越环绕
'wdWrapTopBottom 上下环绕

因为要用到Word中的一些常规变量，所以需要引用Microsoft Word 16.0 Object Library （版本号16因各人PC中安装的版本不同）