更新履歴 [2021年06月13日]「Photoshop でグレースケールから色変更できない場合の対応方法」を更新。

タグ: Excel, マクロ

トップページ > ソフトウェアの操作 > マクロの実行フォーム起動時に指定の文字列を表示

マクロの実行フォーム起動時に指定の文字列を表示

マクロで用意したフォームに文字列を配置することができます。
今回は実行フォームの起動時にプログラム内に指定した文字列を表示します。
実行フォームは前回の「マクロ実行フォームに画像を貼り付ける」を引き続き利用します。

１．ラベルを用意する

フォーム上に文字列を表示するラベルを配置します。
上部メニューより「表示 -> ツールボックス」を選択し、表示されたツールボックス内から「ラベル」を選択します。

ラベルの選択

実行フォーム上にドラッグするとラベルが配置されます。

ラベルの配置

２．ラベルの設定

設置したラベルのプロパティを開くと詳細な設定を行うことができます。
主な設定項目は次の通りです。

ラベルのプロパティ

"Font"をクリックするとフォントと文字サイズを変更するウィンドウが表示されます。

フォントの設定

今回は次のように設定します。

設定値	設定値
オブジェクト名	Label1
BackStyle	0
Caption	ラベル
Font	メイリオ、サイズ16px
FontColor	&H00FFFFFF&

プロパティを編集するとVBエディタ上では次のように見えます。

フォントの設定後

３．フォーム起動時の設定

プロパティの「Caption」で"ラベル"と設定したので、この状態でマクロを実行すると配置したラベルにも"ラベル"と表示されます。
これをプログラム上で指定した文字列を表示するようにします。
「プロジェクト -> フォーム -> macroForm」から macroForm を右クリックして「コードの表示」を選択するとコード入力ウィンドウが表示されます。

コード入力ウィンドウに次のプログラムを追記します。

Dim labelText As String

Private Sub UserForm_Initialize()
    labelText = "Test Form"
    Label1.Caption = labelText
End Sub

コードの入力

前回記入した「マクロで表示した実行フォームに閉じるボタンを設置する」が残っています。
「Private Sub UserForm_Initialize()」はフォーム起動時に実行される箇所となります。
「labelText = "Test Form"」で表示したい文字列を指定しています。
「Label1.Caption = labelText」でフォーム上に設置したオブジェクト[Label1]のCaptionを入れ替えています。
マクロを実行すると次のようになります。

マクロの実行

Excel でマクロの開発と VB を記述するエディタとは

Excel, マクロ

Office 製品に搭載されている自動化ツール「マクロ」の開発と開発環境の VBE（Visual Basic Editor）ついて掲載しています。

操作を自動化させるマクロとは

Excel, マクロ

Office 製品に搭載されている自動化ツール「マクロ」の概要と VBA、記録型マクロについて掲載しています。

マクロの実行フォームに画像を貼り付ける

Excel, マクロ

Excelのマクロを利用して独自に用意するフォーム（入力欄）に画像を設置。

マクロで表示した実行フォームに閉じるボタンを設置する

Excel, マクロ

Excelのマクロを利用して独自に用意したフォーム（入力欄）を表示した後に閉じるためのボタンを作成。

マクロの実行フォームを作成する

Excel, マクロ

Excelのマクロを利用して独自に入力フォームを作成する方法について掲載しています。

マクロの実行フォーム起動時に指定の文字列を表示