在MS Word中定位.inlineshapes / shapes?

时间:2016-02-03 20:46:50

标签: ms-word vb6 report

我试图在标题中的文字附近放置徽标。我能够调整它的大小。但是,我很难将它定位在任何地方(优先级为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

0 个答案:

没有答案