この記事では、スプラッシュ画面を作成する方法を学習します。

エクセルファイルを開くとスプラッシュ画面が表示され、視聴者を感動させます。

VBエディターを起動するには、以下の手順に従う必要があります。[開発者]タブをクリックします。[コード]グループから[VisualBasic]を選択します

img1

[挿入]、[ユーザーフォーム]の順にクリックします

img2

ユーザーフォームはツールボックスから開きます。ユーザーフォームで[ラベルと描画]を選択します

img3

img4

ラベルボックスの名前を「MySplashScreen」に変更します

img5

フォントのサイズを大きくするには[ラベル]ボックスをクリックし、右クリックして[プロパティ]を選択します

img6

プロパティウィンドウから;フォントを選択し、3つのドットをクリックします

img7

[フォント]ダイアログボックスが開きます

img8

フォントを好きなように選択し、サイズを20程度に増やして大きくします

img9

次のステップは、ツールボックスから画像を挿入し、画像を選択して少し大きく描画することです

img10

img11

[画像]を右クリックして[プロパティ]を選択します[プロパティ]の[画像]メニューで3つのドットをクリックします

img12

画像を保存するパスを選択してください

img13

これがユーザーフォームの外観です

img14

プロジェクトペインでThisWorkbookをダブルクリックします

img15

次のコーディングを入力してください

プライベートサブWorkbook_Open()

UserForm1.Show

サブの終了

img16

ユーザーフォームを初期化するには;ラベルまたは画像以外のユーザーフォームをダブルクリックすると、次のコーディングが表示されます

===

プライベートサブUserForm_Click()

===

サブの終了

img17

上記のコードを次のコードに置き換えます

プライベートサブUserForm_Activate()

Application.OnTime Now + TimeValue( “00:00:05″)、 “Quitform”

サブの終了

img18

次に、ユーザーフォームに割り当てたコードをQuitformに追加して、5秒後にアクティブ化する必要があります。

[挿入]、[モジュール]の順にクリックします

img19

これにより、新しいモジュールが作成されます。

モジュールに次のコードを入力します

Sub Quitform()

UserForm1をアンロード

サブの終了

===

img20

ファイルを保存して開きます。

img21

このようにして、Excelでスプラッシュ画面を作成できます。