Šajā rakstā mēs uzzināsim, kā aktivizēt pilnekrāna funkciju un atspējot loga lieluma maiņas pogu, izmantojot VBA.
Loģisks skaidrojums
Mēs esam izveidojuši makro “ActivatingFullScreen”, lai mainītu Excel lietojumprogrammas īpašumu, lai iespējotu pilnekrāna funkciju.
Mēs esam izmantojuši darbgrāmatas loga lieluma maiņas notikumu, lai atspējotu loga lieluma maiņas pogu.
Koda skaidrojums
Application.DisplayFullScreen = Patiesa
Mēs esam iestatījuši lietojumprogrammas rekvizītu DisplayFullScreen uz True, lai iespējotu pilnekrāna funkciju.
Wn.WindowState = xlMaksimizēts
Mēs esam iestatījuši Excel loga rekvizītu WindowState uz xlMaximized, lai novērstu loga atgriešanos normālā izmērā.
Lūdzu, sekojiet tālāk norādītajam kodam
Opcija Explicit Sub ActivatingFullScreen () 'Pilnekrāna lietojumprogrammas aktivizēšana.DisplayFullScreen = True End Sub' Ievadiet zemāk esošo kodu šajāWorkbook modulī Private Sub Workbook_WindowResize (ByVal Wn As Window) 'Loga stāvokļa mainīšana uz maksimālo izmēru Wn.WindowState = xlMaximized Application.DisplayFullScreen = Beigt apakš
Ja jums patika šis emuārs, kopīgojiet to ar saviem draugiem Facebook. Varat arī sekot mums Twitter un Facebook.
Mēs labprāt uzklausītu jūsu viedokli, dariet mums zināmu, kā mēs varam uzlabot savu darbu un padarīt to labāku jums. Rakstiet mums e -pasta vietnē