## WD: WordBasic Examples: Drawing Layer Commands

Q109628

The information in this article applies to:

- Microsoft Word for Windows, versions 6.0, 6.0a, 6.0c
- Microsoft Word for Windows NT, version 6.0
- Microsoft Word for Windows, versions 7.0, 7.0a
- Microsoft Word for the Macintosh, versions 6.0, 6.0.1

## SUMMARY

This article contains a sample macro that demonstrates the use of the following WordBasic statements and functions:

       DrawBringForward, DrawBringInFrontOfText, DrawBringToFront,
       DrawSendBackward, DrawSendBehindText, DrawSendToBack

This article supplements the information in online Help. To open this Help topic, click Contents on the Help menu and then click the "Programming With Microsoft Word" topic.

## MORE INFORMATION

DrawBringForward, DrawBringInFrontOfText, DrawBringToFront,

### DrawSendBackward, DrawSendBehindText, DrawSendToBack

Syntax:

> DrawBringForward
> DrawBringInFrontOfText
> DrawBringToFront
> DrawSendBackward
> DrawSendBehindText
> DrawSendToBack

Example:
The following sample macro uses text, a circle, and a rectangle to demonstrate the commands.

       Sub MAIN
          If SelInfo(27) = - 1 Then FileNewDefault
          Insert "Word for Windows 6.0 is the greatest"
          DrawEllipse
          DrawSendBehindText
          FormatDrawingObject .HorizontalFrom = 1, .VerticalFrom = 1, \
          .HorizontalPos = 110, .VerticalPos = 40
          MsgBox "Press Ok to bring the circle forward"
          DrawBringInFrontOfText
          MsgBox "Press Ok to send the circle back"
          DrawSendBehindText
          DrawRectangle
          FormatDrawingObject .HorizontalFrom = 1, .VerticalFrom = 1, \
          .HorizontalPos = 110, .VerticalPos = 40, .FillColor = 4
          DrawSendBehindText
          MsgBox "Push Ok to send the rectangle behind the circle"
          DrawSendBackward   ' or DrawSendToBack
          MsgBox "Push Ok to bring the rectangle in front of the circle"
          DrawBringToFront   ' or DrawBringForward
       End Sub

Additional query words:

Keywords : kbmacro kbprg kbdtacode wordnt kbmacroexample ntword macword word6 word7 word95
Issue type : kbhowto kbinfo
Technology :

Last Reviewed: November 4, 2000 © 2001 Microsoft Corporation. All rights reserved. Terms of Use.