I provided the non macro version. The code that i use is
If Application.Documents.Count > 0 Then

With ActiveWindow

With .View
Status = .ShowPicturePlaceHolders
Select Case Status
Case False
.ShowPicturePlaceHolders = True
Case True
.ShowPicturePlaceHolders = False
End Select
End With

End With

Else
MsgBox "No documents open"
End If