M
mcwhirt3
This userform dumps blue wordart onto a apge. It require the left and
right variables. I want the text to be positioned in the center. I
tried ".Pageheight/2" and similar variations but i can;t figure it out.
Any ideas how to make the left and top values variable based on project
size?
--------------------------------------------------------
Private Sub CommandButton1_Click()
Dim shpWordArt As Shape
Set shpWordArt = ActiveDocument.Pages(1).Shapes.AddTextEffect _
(PresetTextEffect:=msoTextEffect7, Text:=TextBox1.Value, _
FontName:="Nino Salvaggio Sign", FontSize:=125, _
FontBold:=msoFalse, FontItalic:=msoFalse, _
Left:=144, Top:=72)
shpWordArt.Fill.ForeColor.RGB = RGB(Red:=0, Green:=0, blue:=255)
TextBox1.Value = ""
TextBox1.SetFocus
Unload bluetext
End Sub
right variables. I want the text to be positioned in the center. I
tried ".Pageheight/2" and similar variations but i can;t figure it out.
Any ideas how to make the left and top values variable based on project
size?
--------------------------------------------------------
Private Sub CommandButton1_Click()
Dim shpWordArt As Shape
Set shpWordArt = ActiveDocument.Pages(1).Shapes.AddTextEffect _
(PresetTextEffect:=msoTextEffect7, Text:=TextBox1.Value, _
FontName:="Nino Salvaggio Sign", FontSize:=125, _
FontBold:=msoFalse, FontItalic:=msoFalse, _
Left:=144, Top:=72)
shpWordArt.Fill.ForeColor.RGB = RGB(Red:=0, Green:=0, blue:=255)
TextBox1.Value = ""
TextBox1.SetFocus
Unload bluetext
End Sub