Application.ActiveSelection プロパティ (Project)
アクティブな選択範囲を表す Selection オブジェクトを取得します。 読み取り専用で 選択 します。
構文
expression. ActiveSelection
expressionApplicationオブジェクトを表す変数 。
例
次の使用例は、選択された各タスクの名前をメッセージ ボックスに表示します。 選択が有効でない場合、この例を実行すると、トラップ可能なエラー (エラー コード 424) が発生します。
Sub SelectedTasks()
Dim T As Task
If Not (ActiveSelection.Tasks Is Nothing) Then
For Each T In ActiveSelection.Tasks
' Test for blank task row
If Not (T Is Nothing) Then
MsgBox T.Name
End If
Next T
End If
End Sub
サポートとフィードバック
Office VBA またはこの説明書に関するご質問やフィードバックがありますか? サポートの受け方およびフィードバックをお寄せいただく方法のガイダンスについては、Office VBA のサポートおよびフィードバックを参照してください。