确定内联形状的索引号

Question

我试图引用在文档中间添加的内嵌形状。我目前的解决方案是短期的，我想征求意见，寻求更好的解决方案。

情况是，我正在使用添加一个内联形状。在文档的一半处添加图片。这样做的问题是，如果在插入图片的位置之后有内联形状，那么我添加的内联形状的索引号不仅仅是添加到文档中的第n个形状。内线形状。count不会指我刚才添加的图片，它指的是文档末尾的图片。

我目前的解决方法是实际查看文档，计算下面输入新图片的形状数量，我可以使用类似inlineshapes（下面的totalShapes）的内容来引用它。选择

我想这样做的原因是，如果有必要，我可以裁剪图像区域或执行线性形状的其他操作。

Answer 1

好吧，如果我正确理解你，对你插入的东西“获得一个句柄”的正确方法是在它被创建的同时将它分配给一个对象变量，然后这样做：

Dim ils as Word.InlineShape
Set ils = ActiveDocument.InlineShapes.AddPicture('parameters here)
ils.Width = 100

如果您真的想要索引值，那么如下所示：

Dim rng as Word.Range
Dim ils as Word.InlineShape
Set ils = ActiveDocument.InlineShapes.AddPicture('parameters here)
Set rng = ils.Range
rng.Start = ActiveDocument.Content.Start
Debug.Print rng.InlineShapes.Count 

编辑：OP选择的方法

Dim rng as Word.Range
Dim bk As Word.Bookmark
Dim ils as Word.InlineShape
Set rng = ActiveDocument.Content
Set bk= ActiveDocument.Bookmarks([name])
rng.End = bk.Range.End
Set ils = ActiveDocument.InlineShapes.AddPicture(bk.Range, other param)
Debug.Print rng.InlineShapes.Count