Selles artiklis õpime, kuidas VBA abil aktiveerida täisekraani funktsioon ja keelata akna suuruse muutmise nupp.
Loogiline seletus
Oleme loonud makro “ActivatingFullScreen”, et muuta Exceli rakenduse omadust täisekraani funktsiooni lubamiseks.
Oleme akna suuruse muutmise nupu keelamiseks kasutanud töövihiku akna suuruse muutmise sündmust.
Koodi selgitus
Application.DisplayFullScreen = Tõsi
Oleme täisekraani funktsiooni lubamiseks määranud rakenduse atribuudi DisplayFullScreen väärtuseks Tõene.
Wn.WindowState = xlMaksimeeritud
Oleme määranud Exceli akna atribuudi WindowState väärtuseks xlMaximized, et takistada akna normaalse suuruse taastumist.
Palun järgige koodi allpool
Valik Explicit Sub ActivatingFullScreen () 'Täisekraani rakenduse aktiveerimine.DisplayFullScreen = True End Sub' Sisestage käesolevasse töövihikusse moodulis Private Code Workbook_WindowResize (ByVal Wn As Window) akna oleku muutmine maksimaalseks suuruseks Wn.WindowState = xlMaximized Application.DisplayFullScreen = End Sub
Kui teile see blogi meeldis, jagage seda oma sõpradega Facebookis. Lisaks saate meid jälgida Twitteris ja Facebookis.
Tahaksime sinust kuulda, andke meile teada, kuidas saaksime oma tööd paremaks muuta ja teie jaoks paremaks muuta. Kirjuta meile meilisaidile