PowerPoint VBA：Chart.PlotArea.InsideHeight赋值丢失十进制数字

Question

我试图在VBA中为PP2016编写一个makro，它将调整图表的PlotArea的大小。我试过的是：

Sub setPlotArea()
With ActivePresentation.Slides(2).Shapes(1).Chart.PlotArea
    .InsideHeight = 110.253
    MsgBox (.InsideHeight)
End With
End Sub

MsgBox返回 110 。十进制数字丢失。 为什么我不能为.InsideHeight分配Double值？对象目录指出，InsideHeight应该是Double。 （与.Chart.Legend.Height相同的问题）

我很感激每一个提示，直到现在我还没有找到解决办法。

编辑1： 如果我将代码更改为

Sub setPlotArea()
With ActivePresentation.Slides(2).Shapes(1).Chart.PlotArea
    MsgBox (.InsideHeight)
    .InsideHeight = 110.253
    MsgBox (.InsideHeight)
End With
End Sub

我在新创建的图表（...插入 - ＆gt;条形图）上运行宏，然后第一个MsgBox返回220.794251968504，第二个仍然返回110.显然.InsideHeight可以有一个十进制数字（double ）作为价值。我只是不能分配它。