VBA code to align watermarks

[Catty]

Hi, I have used some code from the net to insert watermarks, but need help to position these watermarks on the document correctly. Below is the code used to insert these watermarks.

    Set Shp = HdFt.Shapes.AddTextEffect(msoTextEffect1, _
    "CONFIDENTIAL", "Arial Narrow", 38, False, False, 0, 0)
    With Shp
      .Name = "PowerPlusWaterMarkObject" & Format(Now, "YYMMDD") & Format(HdFt.Index, "00")
      .TextEffect.NormalizedHeight = False
      .Line.Visible = False
      .Fill.Visible = True
      .Fill.Solid
      .Fill.ForeColor.RGB = RGB(192, 192, 192)
      .Fill.Transparency = 0.5
      .Rotation = 315
      .LockAspectRatio = True
      .Height = InchesToPoints(3.29)
      .Width = InchesToPoints(6.85)
      .WrapFormat.AllowOverlap = True
      .WrapFormat.Side = wdWrapNone
      .Left = InchesToPoints(-0.5)
      .WrapFormat.Type = 3
      .RelativeHorizontalPosition = wdRelativeVerticalPositionMargin
      .RelativeVerticalPosition = wdRelativeVerticalPositionMargin
      .Top = InchesToPoints(3)
    End With
    .Range.FormattedText.ShowAll = False
  Next
End With

Thanks!