Không record được code "thu gọn" Ribbon excel 2007??? (1 người xem)

[Tường_Vi]

Em được biết những gì mình có thể làm bằng tay đều có thể làm được với code

E dùng office 2007 & record hành động thu gọn ribbon excel bằng cách click đúp lên Ribbon đó

Ví dụ: Em muốn thu gọn Ribbon HOME thì em click đúp lên HOME
nhưng trong record thì ko có code

Ai chỉ giúp em với

 

[ndu96081631]

Em được biết những gì mình có thể làm bằng tay đều có thể làm được với code

E dùng office 2007 & record hành động thu gọn ribbon excel bằng cách click đúp lên Ribbon đó

Ví dụ: Em muốn thu gọn Ribbon HOME thì em click đúp lên HOME
nhưng trong record thì ko có code

Ai chỉ giúp em với

Chắc là hổng có cách đâu! Thôi thì vầy cho khỏe:
Application.DisplayFullScreen =True
và
Application.DisplayFullScreen =False

 

[Tường_Vi]

Anh NDU ơi
Có cách nào chỉ Fullscreen sheet chỉ định không?

 

[PhanTuHuong]

Bạn thử dùng cái lệnh dưới (thay phím tắt Ctr+F1) xem sao:

SendKeys "^{F1}"

 

[ndu96081631]

Bạn thử dùng cái lệnh dưới (thay phím tắt Ctr+F1) xem sao:

Thường thì tôi chẳng khoái gì cái vụ SendKeys nếu như có cách khác
Chẳng hạn là: ExecuteExcel4Macro "SHOW.TOOLBAR(""Ribbon"",True)"
-------------------

Anh NDU ơi
Có cách nào chỉ Fullscreen sheet chỉ định không?

Hổng có vụ đó đâu, nhưng bạn có thể dùng sự kiện Worksheet_Activate để điều khiểntùy ý

 

[siwtom]

Em được biết những gì mình có thể làm bằng tay đều có thể làm được với code

E dùng office 2007 & record hành động thu gọn ribbon excel bằng cách click đúp lên Ribbon đó

Ví dụ: Em muốn thu gọn Ribbon HOME thì em click đúp lên HOME
nhưng trong record thì ko có code

Ai chỉ giúp em với

Cái này

ExecuteExcel4Macro "SHOW.TOOLBAR(""Ribbon"",false)"

đâu có phải là minimize Ribbon?
Code trên trong Excel 2007 làm cho mất "Ribbon" (không phải minimize mà là mất hẳn), "Office Button", "Quick Access ToolBar", Help.


1. Excel 2007
a. Nếu đang làm việc trên sheet: CTRL + F1
b. Nếu đang làm việc trên sheet và có Button1

Sub Button1_Click()
      SendKeys "^{F1}", True
End Sub

c. Trong mọi trường hợp (đang trên sheet hoặc trong VBE)

Declare Function SetForegroundWindow Lib "user32.dll" (ByVal hWnd As Long) As Long
Declare Function SetActiveWindow Lib "user32.dll" (ByVal hWnd As Long) As Long
Declare Function SetFocus Lib "user32.dll" (ByVal hWnd As Long) As Long
Function MaxMinRibbon(Optional max As Boolean = True, Optional TimeOut As Long = 3)
    Dim T As Single
    Dim min As Boolean
    T = Timer()
    min = (CommandBars("Ribbon").Controls(1).Height < 100)
    Do While ((min And max) Or Not (min Or max)) And (Timer - T) < TimeOut
        SetForegroundWindow Application.hWnd
        SetActiveWindow Application.hWnd
        SetFocus Application.hWnd
        SendKeys "^{F1}", True
        DoEvents
        min = (CommandBars("Ribbon").Controls(1).Height < 100)
    Loop
End Function
Gọi: MaxMinRibbon False ' minimize
        MaxMinRibbon True ' maximize

2. Excel 2010
Hãy thử code

CommandBars.ExecuteMso "MinimizeRibbon"

CTRL + F1: dùng trong Excel, Access, Word