次の方法で共有


Application.Caption プロパティ (Project)

取得またはメイン ウィンドウのタイトル バーのテキストを設定します。 読み取り/書き込みが可能な String です。

構文

キャプション

expressionApplication オブジェクトを 表す変数。

注釈

アクティブなプロジェクト ウィンドウを最大化すると、タイトル バーには、アプリケーション ウィンドウとアクティブなプロジェクト ウィンドウの両方のタイトルがハイフン (-) で区切られて表示されます。 たとえば、アプリケーション ウィンドウのタイトルが "Microsoft Project" で、プロジェクト ウィンドウのタイトルが "Project1.mpp" の場合、プロジェクト ウィンドウを最大化すると、タイトル バーには "Project1.mpp - Microsoft Project" と表示されます。

Caption プロパティを に設定する場合、タイトル バーには、既定のキャプションが表示されます。 メイン ウィンドウの既定のタイトルは、「Microsoft Project」です。

ウィンドウが 1 つのプロジェクトでは、ウィンドウの既定のキャプションはプロジェクトのファイル名です。 複数のウィンドウが開いているプロジェクトでは、各ウィンドウの既定のキャプションは 名前です。 nここで、name はプロジェクトのファイル名、 n はウィンドウの一意の番号です。 たとえば、プロジェクト "Project1" の 2 番目のウィンドウがアクティブな場合、既定のタイトル バーに "Project1.mpp:2 - Microsoft Project" と表示されます。

次の使用例は、アクティブ ウィンドウのタイトルを変更するように求めるメッセージを表示します。

Sub ChangeWindowCaption() 
 
 Dim Entry As String ' Caption entered by user 
 
 ' Prompt user for a new caption. 
 Entry = InputBox$("Enter a new caption for the active window (enter 'reset' to set the caption to its default).") 
 
 ' If user chooses the Cancel button, exit Sub procedure. 
 If Entry = Empty Then Exit Sub 
 
 ' Set or reset the caption. 
 If Entry = "reset" Then 
 ActiveWindow.Caption = Empty 
 Else 
 ActiveWindow.Caption = Entry 
 End If 
 
End Sub

サポートとフィードバック

Office VBA またはこの説明書に関するご質問やフィードバックがありますか? サポートの受け方およびフィードバックをお寄せいただく方法のガイダンスについては、Office VBA のサポートおよびフィードバックを参照してください。