Parodykite komandų juostą ekrano centre naudodami „Microsoft Excel“ VBA

Anonim

Žemiau esančioje makrokomandoje galite rodyti komandų juostą, esančią centre, tiek horizontaliai, tiek vertikaliai.
Makrokomanda taip pat parodo, kaip galite gauti ekrano dydį naudodami funkciją „GetSystemMetrics32“.

Skelbti funkciją „GetSystemMetrics32 Lib“ User32 “_ Pseudonimas„ GetSystemMetrics “(„ ByVal nIndex As Long “) Kaip ilgas sub centras taškuose su „CommandBars“ („MyCommandBarName“) .Position = msoBarFloating .Left = w / 2 - .Width / 2 .Top = h / 2 - .Height / 2 End With End Sub