使用AddPicture方法调整图像属性方法字vba

Question

我需要编辑由AddPicture方法插入的图像的属性。

1）我需要的高度调整到0.5" ，宽度是可变的（锁定的宽高比）。

2）环绕文本=‘以文字上方’

这是possile与这种方法如果让我怎么添加这些属性如果没有，我应该用什么样的方法，以及如何

Sub replaceWithImage() 

Dim imageFullPath As String 
Dim FindText As String 
imageFullPath = "C:\Logo.jpg" 
FindText = "PlaceHolder" 

'Application.ScreenUpdating = False 
With Selection 
    .HomeKey Unit:=wdStory 

    With .Find 
     .ClearFormatting 
     .text = FindText 
     ' Loop until Word can no longer 
     ' find the search string, inserting the specified image at each location 
     Do While .Execute 
      Selection.MoveRight 
      Selection.InlineShapes.AddPicture FileName:=imageFullPath, LinkToFile:=False, SaveWithDocument:=True 
     Loop 

    End With 
End With 


    End Sub 

Answer 1

我会做什么，你需要按以下步骤：？？？

1. ，而不是这一行：

   Selection.InlineShapes.AddPicture FileName:=imageFullPath, _ 
             LinkToFile:=False, SaveWithDocument:=True 
   

2. 我会做同样的，但使用Object Variable：

   'a) create new shape as object variable 
   Dim SHP 'As InlineShape/As Shape 
   Set SHP = Selection.InlineShapes.AddPicture(FileName:=imageFullPath, _ 
             LinkToFile:=False, _ 
             SaveWithDocument:=True) 
   'b) changes made according to SHP varialbe: 
   With SHP 
       'this will convert to 'in front of text' 
       .ConvertToShape 
       'this will keep ratio 
       .LockAspectRatio = msoTrue 
       'this will adjust width to 0.5 inch 
       .Width = InchesToPoints(0.5) 
   End With