Vba 是否在MS project中使用宏设置时间刻度？

我试图录制一个宏，该宏将时间刻度设置为我希望它显示的时间刻度，但在运行它时出现以下错误：

运行时错误1100 在这种情况下无法访问方法（翻译自丹麦语）

代码是：

Sub SetTimescale()
' macro to set my timescale back
    TimescaleEdit TierCount:=3, _
    Separator:=True, _
    TopUnits:=0, _
    TopLabel:=0, _
    TopCount:=1, _
    MajorUnits:=2, _
    MajorCount:=1, _
    MajorLabel:=9, _
    MajorUseFY:=True, _
    MinorUnits:=3, _
    MinorLabel:=50, _
    MinorCount:=1, _
    MinorTicks:=True, _
    MinorUseFY:=True, _
    Enlarge:=95
End Sub

---

您提供的宏在“甘特图”视图中似乎运行良好，但在选择没有时间刻度的视图（例如“日历”视图）时会出现错误消息，并显示失败。

我大部分时间都会遇到错误。在启动时间刻度代码之前，是否有人可以帮助我使用代码选择特定视图？在运行时间刻度编辑之前，请使用

view应用“甘特图”

切换到甘特图。