使形状渐入

Question

这听起来真的很愚蠢（我不敢相信我无法做到这一点！），但是我实在无法理解！我有一些不错的代码可以使对象淡出，但是我无法使其淡入！

有人可以帮忙吗？

这就是我要使其淡出（然后它消失在最后）

With ActiveSheet.Shapes("linha1")
    For i = 0 To 100
        .Fill.Transparency = i / 100
        Delay = 0.001
        starttime = Timer
        Do
            DoEvents
        Loop While Timer - starttime < Delay
    Next i

End With
ActiveSheet.Shapes("linha1").Visible = False`: