代码之家 › 专栏 › 技术社区 › Greg W

VBA Word宏选择插入形状

ms-word vba

Greg W · 技术社区 · 5 年前

欢迎帮忙。代码如下。

格雷格

ActiveDocument.Shapes.AddPicture Anchor:=Selection.Range, FileName:= _
    "c:\mydir\carp3d.tif", LinkToFile:=False, SaveWithDocument:=True
' get last inserted image
Set myImage = ActiveDocument.Shapes(ActiveDocument.Shapes.Count)
myImage.Select
myImage.LockAspectRatio = msoTrue
myImage.LockAspectRatio = msoTrue
myImage.Height = 180#
myImage.Width = 124.55

1 回复 | 直到 5 年前

BigBen 5 年前

Shapes.AddPicture 返回 Shape 应捕获的对象:

Set myImage = ActiveDocument.Shapes.AddPicture(....)

myImage.LockAspectRatio = msoTrue
' and so on

推荐文章

MarkA · 在excel中使用VBA打开Word文档-Word保持最小化

2 年前

chens11111010001 · 有人能帮我如何在vba中初始化对象文件夹吗

2 年前

ApexPolenta · 如何获取Range。找到要停在范围的末尾吗?

2 年前

M4tee · 从使用C的Word文档中删除重复的节控件和文本内容控件#

2 年前

DatHFA · 从用户窗体在Word中创建页脚

2 年前

Viraj Shah · 使用Microsoft Word通配符匹配时间代码

2 年前

sheridan1685 · 使用Word VBA SaveAs2时文件名中出现的问号

2 年前

DinahMoeHumm · 检查一下单词。文档是邮件合并,如果是,请删除邮件合并

2 年前

Rahilly · 如何使用Word VBA将<eq></eq>标记之间的文本转换为公式?

2 年前

Al Grant · 在VBA中编辑HTML

2 年前