word 图片格式设置问题

〖Light〗

Sub 设置图片
Dim N As Integer    'n为图片个数
    For N = 1 To Selection.ShapeRange.Count 'Shapes类型图片
       With Selection.ShapeRange
       .LockAspectRatio = msoTrue  '锁定图片的纵横比
       .Width = 28.345 * 16.5 '设置图片宽度 28.345 * 3.52px，16.5cm
         .WrapFormat.Type = wdWrapTopBottom
         End With
    Next N

为什么这个代码，对新插入的图片没有用呢？必要先将插入的图片设置文字环绕类型后才能生效呢。另外帮忙加下图片居中对接的代码。谢谢

jiangxiaoyun

应用于 InlineShapes 对象的 AddPicture 方法。

在文档中添加一幅图片。返回一个 Shape 对象，该对象代表图片，并将其添加至 InlineShapes 集合。

expression.AddPicture(FileName, LinkToFile, SaveWithDocument, Range)

expression   必需。该表达式返回一个 InlineShapes 对象。

FileName  String 类型，必需。图片的路径和文件名。

LinkToFile  Variant 类型，可选。如果为 True，则将图片链接到创建该对象的文件；如果为 False，则将图片作为该文件的独立副本。默认值是 False。

SaveWithDocument  Variant 类型，可选。如果为 True，则将链接的图片与文档一起保存。默认值是 False。

Range  Variant 类型，可选。图片置于文本中的位置。如果该区域未折叠，那么图片将覆盖此区域，否则插入图片。如果忽略此参数，则自动放置图片。

〖Light〗

没明白2楼的意思

daibao88

代码应该没问题，word图片有两种InlineShape和Shape，也许选择的图片类型不对
选择图片后msgbox Selection.ShapeRange.Count  看看

〖Light〗

daibao88 发表于 2019-5-10 19:46
代码应该没问题，word图片有两种InlineShape和Shape，也许选择的图片类型不对
选择图片后msgbox Selection ...

恩，谢谢

413191246se

楼主，请注意 Selection 是已选定图片；另外，你的最终目的是什么呢？把想法全部说出来，如果原代码不行，可以尝试重新构思算法思路。