expression.ShowDrawings
expression Required. An expression that returns a View object.
Example
This example switches the active window to print layout view and displays objects created with the drawing tools.
With ActiveDocument.ActiveWindow.View
.Type = wdPrintView
.ShowDrawings = True
End With