none
파워포인트 리본메뉴 없에기 RRS feed

  • 질문

  • 안녕하세요 엑셀 메크로 사용자 입니다. 엑셀에서는 리본메뉴를 아래 코드처럼 없앨수 있는데요

    파워포인트에서는 잘 구현이 안됩니다. 오피스는 2013을 사용하고 있습니다.

    Option Explicit
    Sub dhMain()
    Const Es As String = "MagicSheet & 엑사모"
        If dhHideNShowRibbon(False) Then
            MsgBox "리본 메뉴를 숨겼습니다!", vbInformation, Es
            dhHideNShowRibbon True
            MsgBox "리본 메뉴를 다시 표시했습니다!", vbInformation, Es
        Else
        End If
    End Sub
    Function dhHideNShowRibbon(Optional blnView As Boolean = True)
    If Application.Version >= 15 Then
        dhHideNShowRibbon = CBool(Application.Windows("SHOW.TOOLBAR(""Ribbon""," & blnView & ")"))
    Else
    End If
    End Function


    • 편집됨 dalsj 2014년 9월 25일 목요일 오후 1:01
    2014년 9월 25일 목요일 오후 1:00