vba - 编写代码以在 ms word 中更改 Visual Basic 中图像的位置

Question

由于 ms word 不允许记录宏来更改已插入和选定图像的位置，因此我需要在 Visual Basic 中编写宏。

它需要做以下事情： 1. 给选中的图片一个边框 2. 改变它的位置到页面的下端。

Answer 1

InlineShape如果document ( )中只有一个，ActiveDocument则以下代码可以解决您的两个需求：

Sub qSolved()

    With ActiveDocument.InlineShapes(1)
        'border
        .Line.Weight = xlThin
        'conversion to Shape
        .ConvertToShape
    End With

    'bonus :) -if you need to set position of newly created Shape
    With ActiveDocument.Shapes(1)
        .Top = 100
        .Left = 100
    End With
End Sub