使用Microsoft Word宏插入調整大小和重新定位圖像

Question

我試圖在VB中爲Microsoft Word編寫一個非常基本的宏，但我沒有所需的知識。

我只是需要做兩件事情：

1. 從文件中插入一個圖片
2. 其重新定位到右上角，並調整其大小

我可以通過做第一個任務錄製新的宏功能，但無法在錄製模式下選擇移動圖片，因此我需要一些VB代碼。

我已經有這個，所以如何移動/調整圖像？

Selection.InlineShapes.AddPicture FileName:= _ 
    "C:\Users\***\Pictures\**.jpg" _ 
    , LinkToFile:=False, SaveWithDocument:=True 

Answer 1

AddPicture函數有許多參數，其中包括寬度和高度，您可以使用它們將圖像調整爲所需的大小。

請參考下面的例子：

Sub InsertImage() 

    Dim imagePath As String 
    imagePath = "C:\\picture.jpg" 

    ActiveDocument.Shapes.AddPicture FileName:=imagePath, _ 
    LinkToFile:=False, _ 
    SaveWithDocument:=True, _ 
    Left:=-5, _ 
    Top:=5, _ 
    Anchor:=Selection.Range, _ 
    Width:=20, _ 
    Height:=20 

End Sub 

此外，看看this MSDN文章爲給AddPicture（）函數的說明，以及你可以傳遞給它可用參數列表。