我试图在标题中的文字附近放置徽标。我能够调整它的大小。但是,我很难将它定位在任何地方(优先级为LEFT和TOP)。这是我的代码。它将图像转移到左上角的远处,我不知道如何移动它。在移动之前我是否必须将其转换为形状?
Dim SHP As InlineShape ' Dim SHP As Shape
With w_Wrd.Selection
.Font.Reset
.Font.Bold = True
.Font.Color = wdColorBlack
.Font.Name = "Times New Roman"
.Font.Size = 14
.ParagraphFormat.Alignment = wdAlignParagraphCenter
.TypeText " Needs Assessment/Family Care Plan NA/FCP "
End With
Set SHP = w_Wrd.Selection.InlineShapes.AddPicture(FileName:="Q:\IS\CEDAR\letetrhead.png", _
LinkToFile:=False, _
SaveWithDocument:=True)
With SHP
.Height = InchesToPoints(0.8)
.Width = InchesToPoints(1.3)
.ConvertToShape
End With