Temat: Okno tytułowe
Super - działa. Ale myślałem o większym oknie, gdzie można wkleić jakąś graficzkę, wpisać drobnym maczkiem copyright itp. Ale to już pewnie nie przejdzie na forum excela ? ;)
To lepiej jest pokazać niż opisać ale mozna spróbować ;)
Tutaj samego programowania nie ma wiele - więcej jest projektowania "Twojego komunikatu".
wchodzisz do edytora VBA (np. Alt+F11), a tam powinno otworzyć Ci się kilka okienek dokowanych (jeśli nie to potrzebne otwierasz za pomocą menu głównego "View"/..).
By stworzyć formularz w oknie dokowanym "Project-VBA Project" na elemencie drzewa "ThisWorkbook" kliknij prawym myszy i wybierz "Insert" / "UserForm". Wtedy masz podstawę swojego okna które chcesz by pojawiło Ci się jak uruchomisz plik.
Jak klikniesz na ten "form" powinno pojawić Ci się okno "Toolbox" - masz tu różne narzędzia do odpowiedniego wykreowania formularza (czyli Twojego komunikatu) - podstawowe o których pisałeś to: "Label" - wpisujesz tam tekst (jeśli się nie mylę niestety nie da sie tu łatwo wymusić łamania linii więc trzeba użyć kilku obiektów), "Image" itd itp.. poeksperymentuj.
Ważna sprawa - za pomoca okna "Toolbox" narysujesz, przesuniesz i zresajzujesz obiekty, ale ich atrybuty/opcje są do ustawiania na oknie dokowanym "Properties". Musisz poklikac na różne elementy z listy i sprawdzić co daje zmiana - najważniejsze dla Ciebie to przy "Label": BackColor, Font, ForeColor; a przy "Image" po prostu Picture w którym ładujesz obrazek.
I jeszcze jedna wskazówka: jak klikniesz na formularz (nie obiekt w nim) to zmień w właściwościach nazwę Caption - to co wpiszesz będzie widoczne na pasku okna. Niestety nie wiem czy da się ten pasek ukryć.. :(
Poniżej kod który powinieneś wkleić do "ThisWorkbook" aby formularz ładował się przy otwieraniu pliku - zakładam że tworzony formularz we właściwościach (Name) nazwiesz "frmStart".
Private Sub Workbook_Open()
frmStart.Show
End Sub
Aby okno komunikatu zamykać nie tylko "krzyżykiem" możesz dodać przycisk ("ComandButton") - jak klikniesz na niego 2 razy otworzy Ci się okno z kodem (puste) - wklej tam:
Private Sub CommandButton1_Click()
frmStart.Hide
End Sub
(zakładam że w tym przypadku nie zmieniłeś nazwy przycisku i excel nazwał go automatycznie "CommandButton1", gdybyś jego "Name" zmienił na np. "Koniec" wpisałbyś w pierwszej linijce odpowiednio "Private Sub Koniec_Click()" )
Mam nadzieję że coś z tego zrozumiałeś ;P Powodzenia :)
Anna Czajka edytował(a) ten post dnia 20.07.07 o godzinie 15:55