Task.Milestone プロパティ (Project)

の 場合は true タスクがマイルス トーンである場合。 値の取得と設定が可能なバリアント型 (Variant) の値です。

構文

式。 Milestone

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

例

次の使用例は、作業中のプロジェクトで、名前が "Inspection" で始まるすべてのタスクをマイルストーンとしてマークします。

Sub MarkInspectionTasks() 
 
 Dim T As Task ' Task object used in For Each loop 
 Dim MilestoneName As String 
 Dim NameLength As Integer 
 
 MilestoneName = "Inspection" 
 NameLength = Len(MilestoneName) 
 
 For Each T In ActiveProject.Tasks 
 ' If the task's name begins with Inspection, it's a milestone. 
 If UCase(Left(T.Name, NameLength)) = UCase(MilestoneName) Then 
 T.Milestone = True 
 End If 
 Next T 
 
End Sub

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

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