CONVERTE EXCEL POWER POINT, APRESENTAÇÃO CONVERT EXCEL POWER POINT, PRESENTATION

PARA APRESENTAÇÃO EM PÚBLICO ONDE A PLANILHA FICA POR INTEIRA NA TELA SEGUE INSTRUÇÃO;
Sub Sair()
Dim barras
On Error Resume Next
For Each barras In Application.CommandBars
barras.Enabled = True
Next
Application.DisplayStatusBar = True
Application.DisplayFormulaBar = True
Application.DisplayFullScreen = False
ActiveWindow.DisplayHeadings = True
ActiveWindow.DisplayHorizontalScrollBar = True
ActiveWindow.DisplayVerticalScrollBar = True
ActiveWindow.DisplayWorkbookTabs = True
End Sub

Sub Entrar()
Dim barras, nTela, Cont
On Error Resume Next

For Each barras In Application.CommandBars
barras.Enabled = False
Next
Application.DisplayFullScreen = True
ActiveWindow.DisplayHeadings = False
Application.DisplayFormulaBar = False
ActiveWindow.DisplayHorizontalScrollBar = False
ActiveWindow.DisplayVerticalScrollBar = False
ActiveWindow.DisplayWorkbookTabs = False
Application.DisplayStatusBar = False


End Sub


APROVEITEM

FOR PUBLIC PRESENTATION WHERE THE BILL IS IN FULL SCREEN FOLLOW INSTRUCTIONS;

Sub Exit ()

Dim bars

On Error Resume Next

For Each bar In Application.CommandBars

barras.Enabled = True

Next

Application.DisplayStatusBar = True

Application.DisplayFormulaBar = True

Application.DisplayFullScreen = False

ActiveWindow.DisplayHeadings = True

ActiveWindow.DisplayHorizontalScrollBar = True

ActiveWindow.DisplayVerticalScrollBar = True

ActiveWindow.DisplayWorkbookTabs = True

end Sub

Sub Log ()

Dim bars, nTela, Cont

On Error Resume Next

For Each bar In Application.CommandBars

barras.Enabled = False

Next

Application.DisplayFullScreen = True

ActiveWindow.DisplayHeadings = False

Application.DisplayFormulaBar = False

ActiveWindow.DisplayHorizontalScrollBar = False

ActiveWindow.DisplayVerticalScrollBar = False

ActiveWindow.DisplayWorkbookTabs = False

Application.DisplayStatusBar = False

end Sub

ENJOY