MS ProjectでIndentLevelを０にするVBA

質問

MicroSoft ProjectでIndentLevelを０にするVBAを書こうとしてますがうまくいきません。例えば、タスクID = tdiのタスクがIndentLevel = 3 になっていて、これをIndentLevel = 0 にするにはどのようなVBAを書けばいいのでしょうか。マニュアルによるとIndentLevelの絶対値を指定する方法は無いみたいなので、Indentを下げるメソッドを繰り返して、「もうこれ以上下げられません。」というエラーが出たら終了とマクロになるかと思いますが、具体的な書き方を教えてください。よろしくお願いします。

回答No.1

gyafun · ベストアンサー

Do While Tasks(tid).OutlineLevel > 1
　　OutlineOutdent
Loop

お礼

解答ありがとうございます。動きました！