|
9
smaharbA
09.08.05
✎
14:58
|
;))
Set obj = ActiveDocument.Shapes.AddTextEffect(msoTextEffect1, "Òåêñò ïîëóïðîçðà÷íûé," & vbCrLf & " íà çàäíåì ïëàíå...", "Arial Black", 36, msoTrue, msoFalse, 1, 1, ActiveDocument.Paragraphs(1).Range)
ActiveDocument.Shapes(1).Rotation = -45
ActiveDocument.Shapes(1).RelativeHorizontalPosition = wdRelativeHorizontalPositionMargin
ActiveDocument.Shapes(1).RelativeVerticalPosition = wdRelativeVerticalPositionMargin
ActiveDocument.Shapes(1).Left = 0
ActiveDocument.Shapes(1).Top = ActiveDocument.Shapes(1).Width / 2 * Cos(45)
ActiveDocument.Shapes(1).Fill.ForeColor = &H9F9F9F
ActiveDocument.Shapes(1).Fill.Transparency = 0.8
ActiveDocument.Shapes(1).ZOrder (msoSendBehindText)
|
|