如何通过VBA代码让插入的自选图形位于光标所在位置?

tangqingfu

如何通过VBA代码让插入的自选图形(版式为"浮于文字上方)位于光标所在位置?

chuhaiou

我也想知道

tangqingfu

自己顶一下，烦请各位帮帮忙！

chuhaiou

我也顶一下

守柔

原帖由 tangqingfu 于 2010-8-13 21:30 发表
如何通过VBA代码让插入的自选图形(版式为"浮于文字上方)位于光标所在位置?

Sub Example()
    Dim myShape As Word.Shape
    Set myShape = ActiveDocument.Shapes.AddShape(msoShapeRectangle, 0, 0, 100, 100, Selection.Range)
    With myShape
        .WrapFormat.Type = 3
        .ZOrder 4
    End With
End Sub

我想唐兄应该系统的学习一下Word VBA 的帮助，另外，对于Word中的一些常用对象的前台方法和属性也应该有所了解，毕竟和Word也是老朋友了，应该是无话不谈了。好好理解一下Anchor参数。

关于AddShape方法：
应用于 Shapes 对象的 AddShape 方法。
在文档中添加一个“自选图形”对象。返回一个代表该“自选图形”对象的 Shape 对象，并将其添加到 Shapes 集合。
expression.AddShape(Type, Left, Top, Width, Height, Anchor)
expression      必需。该表达式返回一个 Shapes 对象。
Type    Long 类型，必需。要返回的图形类型。可以是任何 MsoAutoShapeType 常量。
Left     Single 类型，必需。“自选图形”对象左侧边缘的位置，以磅为单位。
Top     Single 类型，必需。“自选图形”对象上部边缘的位置，以磅为单位。
Width     Single 类型，必需。“自选图形”对象的宽度，以磅为单位。
Height     Single 类型，必需。“自选图形”对象的高度，以磅为单位。
Anchor     Variant 类型，可选。代表该“自选图形”所连接文本的 Range 对象。如果指定 Anchor，则锁定标记位于锁定区域第一段的起始位置。如果忽略该参数，则 Word 将自动选定锁定区域，而自选图形将相对于页面的上部和左侧边缘进行定位。

最后，套用一句话：“学而不思则罔 思而不学则殆”，以君共勉之。

tangqingfu

谢谢守版的教诲！
习惯于拿来主义，对Word VBA没有多下功夫，所以没能入门。日后尽力学习，以求提高一二。

leikaiyi123

守柔 发表于 2010-8-28 14:17
Sub Example()
    Dim myShape As Word.Shape
    Set myShape = ActiveDocument.Shapes.AddShape(mso ...

word中如何用代码使选中的两个shaperange的Anchor相同？

dafanshu1

leikaiyi123 发表于 2018-2-18 17:41
word中如何用代码使选中的两个shaperange的Anchor相同？

可以将其中一个的shaperange剪切，然后在另一个shaperange上粘贴。