# Full View macro

**URL:** https://tech-community.robotics.abb.com/t/full-view-macro/132
**Category:** RobotStudio S4
**Created:** [April 2, 2004, 1:18pm UTC](https://tech-community.robotics.abb.com/t/full-view-macro/132 "2004-04-02T13:18:54Z")
**Posts on this page:** 1
**Page:** 1

<div class="post-metadata">

### Author: ![John\_Wiberg](https://dub1.discourse-cdn.com/flex005/user_avatar/tech-community.robotics.abb.com/john_wiberg/32/1485_2.png) [@John\_Wiberg](https://tech-community.robotics.abb.com/u/John_Wiberg)
#### Post date: [April 2, 2004, 1:18pm UTC](https://tech-community.robotics.abb.com/t/full-view-macro/132/1 "2004-04-02T13:18:54Z")

</div>

Paste this into TheRobotStudioProject and run it from RS with  
Tools\>Macro\>Macros

Sub FullScreen()  
'You have to run this from RobotStudio and not from the code window  
SendKeys “%1”, True 'Browser window  
SendKeys “%2”, True 'Output window  
SendKeys “%3”, True 'Properties window  
'SendKeys “%4”, True 'Status bar  
'This will turn all Toolbars invisible  
Dim cb As CommandBar  
For Each cb In RSE.CommandBars  
If cb.Name \<\> “Menu Bar” Then 'without this the menus would be gone to  
cb.Visible = False  
End If  
Next cb  
End Sub

I will put this into my next update of the JohnsBar…

😐