為Excel文檔添加啟動(dòng)畫面 效果更酷

你可能曾經(jīng)做過很多漂亮有趣的Excel文檔，但我敢打賭你還希望為這些文檔再添加些更酷的效果畫龍點(diǎn)睛一下。在本文中我將為你介紹一些關(guān)于Excel宏的小竅門，希望能助你一臂之力。

　　首先在Excel中鍵入ALT+F11打開VBA編輯器;在“插入”菜單中，選擇“用戶窗體”;在窗口編輯欄里拖住對話框的右下角，把窗體拉大;最后的大小就將是咱們自定義的啟動(dòng)畫面的大小了。

　　接下來，將“工具箱”里那個(gè)大大的“A”字圖標(biāo)拖拽到你的窗體上;鼠標(biāo)點(diǎn)住出現(xiàn)的文本框的一角，將它拉大，將框內(nèi)文字替換為之后想要顯示的標(biāo)題內(nèi)容即可。如果此時(shí)VBA編輯器里并沒有顯示控件屬性欄，請按F4將其調(diào)出，這樣就可以通過屬性欄中的字體一項(xiàng)更改標(biāo)題字體。這里默認(rèn)的字體是宋體，你也可以點(diǎn)擊它右邊畫著“…”的小方框，在彈出的對話框中重新設(shè)置。本文例子里采用的字體是Arial Black Regular，72點(diǎn)。接著將屬性“TextAlign”一欄調(diào)整為“fmTextAlignCenter”，選擇屬性“ForeColor”　“按鈕文本”　“調(diào)色板”，在其中選擇你喜歡的標(biāo)題顏色。

　　這里需要注意一件事，一個(gè)Label文本框內(nèi)只能有一種字體;所以如果還想在彈出框中建立副標(biāo)題，就還需要在窗體中再添加一個(gè)Label文本框才行。添加完填好文字，設(shè)置方法同之前那個(gè)Label完全相同。

　　下面我們要為彈出的這個(gè)對話框添加背景顏色：首先用鼠標(biāo)在窗體內(nèi)沒有其他控件的地方點(diǎn)一下，在屬性欄選擇“BackColor”　“調(diào)色板”，選擇你中意的顏色即可。

　　你這時(shí)可能也注意到了窗體的左上角顯示著UserForm1。這肯定不是我們希望在它彈出時(shí)顯示的東西。我們需要在屬性欄內(nèi)修改它。首先將最上面“名稱”一欄更改為“Intro”，然后選擇“Caption”，將后面的“UserForm1”更改為你喜歡的文字即可(本例中使用的是Intro)。

　　再添加一個(gè)Label，這個(gè)Label里面我們可以使用與前一個(gè)不同的字體。

　　接下來的界面設(shè)計(jì)階段只需要我們擺一擺幾個(gè)Label的位置即可。然后雙擊窗體(也就是剛才那個(gè)UserForm1)，在彈出的代碼編輯器里面，選擇右上角下拉菜單中的“Initialize”;在代碼窗口內(nèi)“Private Sub UserForm_Initialize()”和“End Sub”中間添加如下代碼：

　　Appliation.Ontime Now + TimeValue(“00:00:04”),“ClearForm”

　　這個(gè)宏可以用來控制標(biāo)題對話框顯示時(shí)間。在這個(gè)例子里，我將其設(shè)置為4秒鐘。當(dāng)然你也可以將00:00:04改成任何你想讓啟動(dòng)畫面停留的時(shí)間。

　　選擇VBA插入菜單中的“模塊”。并在彈出的代碼編輯框內(nèi)填入下面代碼：

　　Sub ClearForm()

　　Unload Intro

　　End Sub

　　這段代碼中的ClearForm函數(shù)在對話框顯示4秒后卸載掉該窗體。代碼中的“Intro”就是剛才編輯的窗體名稱(還記得之前咱們已經(jīng)將窗體名稱更改為“Intro”了嗎?)。

　　最后在工程資源管理器那里點(diǎn)開“ThisWorkBook”;如果你的VBA沒有顯示這個(gè)管理器，可以用CTRL+R將它調(diào)出;接著在彈出的代碼編輯器里面輸入：

　　Private Sub Workbook_Open()

　　Intro.Show

　　End Sub

　　按下ALT+F11返回到原來的Excel工作簿當(dāng)中;保存文件。如果是07版的Excel，請將文件后綴保存為.xlsm，這樣打開該文件時(shí)將會(huì)自動(dòng)運(yùn)行文件中定義的宏。如果你按照前面所述一步步完成，下次你再打開這個(gè)文件，便會(huì)見到一個(gè)只停留4秒的啟動(dòng)框。