次の方法で共有


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 のサポートおよびフィードバックを参照してください。